知乎专栏 | 多维度架构 |
#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); my $uuid_str; if (@ARGV) { $uuid_str = $ARGV[0]; } else { eval { require Data::UUID; my $ug = new Data::UUID; $uuid_str = $ug->create_str; }; if ($@) { $uuid_str = `uuidgen`; $uuid_str =~ s/\r?\n?$//; } } my @stuff = split /-/, $uuid_str; print "Content-type: text/html\n\n"; print "<html><head><title>GUID Generator</title></head><body>"; print '<h2><font face="verdana, arial">GUID Generator</font></h2>'; print '<font face="new courier, courier">'; print "{$uuid_str}</font><br>"; print '<h6><font face="verdana, arial"><a href="http://extensions.roachfiend.com/cgi-bin/guid.pl">Get another GUID</a></font></h6>'; print '<h6><font face="verdana, arial"><a href="http://extensions.roachfiend.com/guid.txt">View the source of this script</a></font></h6>'; print "</body></html>"; exit;
参考:http://extensions.roachfiend.com/cgi-bin/guid.pl