2010-06-09から1日間の記事一覧
#!/usr/bin/perl use strict; use warnings; use Getopt::Long; use FindBin; my $mypath = $FindBin::RealBin; use File::Basename; my ($myname) = fileparse($0); use threads; #read perlthrtut (perl thread tutorial) for details use Thread::Semapho…