2007-12-03から1日間の記事一覧
@dirs = ; for( $n = 0; $n if( -d $dirs[ $n ] ){ MkFolder( $dirs[ $n ] ); } }sub MkFolder { my $tDir=@_[0]; my $dstDir = "jpg-$tDir"; mkdir( $dstDir ); chdir("$tDir/00000001"); while(){ /([^\.]*)\.tif/i; splitTiffToJPG( $_, "../../$dstDir/$…