发布时间：2016-06-25 23:37:01
这个写的很好。http://blog.chinaunix.net/uid-22160801-id-3421333.html......【阅读全文】
发布时间：2015-06-05 15:36:52
#! /usr/bin/env perluse DateTime;my $dt_01 = DateTime->new(year=> 2015, month=> 5, day =>3);my $dt_02 = DateTime->new(year=> 2015, month=> 5, day =>1);my $du = $dt_01->subtract_datetime_absolute($dt_02);print $du->seconds();print "\n";......【阅读全文】
发布时间：2015-01-09 16:21:34
#!/usr/bin/perl -wuse strict;use threads;sub say_hello{ my $index = 0; my $tmp = 0; foreach $index (1 .. 100) { printf("Hello thread! @_.\n"); .........【阅读全文】
发布时间：2015-01-09 16:18:59
#!/usr/bin/perl -wuse strict;use LWP::Simple;use Time::HiRes qw(gettimeofday tv_interval);my $url = 'http://127.0.0.1/';foreach my $index (1 .. 10000){ my $t_01 = [gettimeofday]; my $content = get $url; my $t_02 .........【阅读全文】
