2010-06-01から1ヶ月間の記事一覧

threads, Thread::Semaphoreを使ったperlサンプルコード

#!/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…

Getopt::Longをつかったperlスクリプトのサンプル

#!/usr/bin/perl use strict; use warnings; use Getopt::Long; use FindBin; my $mypath = $FindBin::RealBin; #die "$mypath\n"; use File::Basename; my ($myname) = fileparse($0); use Threads; # # Option handling # my $help = ''; #Default : false…