12/06/03 00:12:33.56 e+bXADxj0
>>454
perl版
open FP "元file";
open FW ">出力file";
forreach( <FP> ){
my $str = sprintf("%02d,$_", $i++ );
print FW "$str";
}
close(FP);
close(FW);
12/06/03 00:12:33.56 e+bXADxj0
>>454
perl版
open FP "元file";
open FW ">出力file";
forreach( <FP> ){
my $str = sprintf("%02d,$_", $i++ );
print FW "$str";
}
close(FP);
close(FW);