for(1..10){
$f="$_.txt";
open(OUT,">$f");
print OUT "$f";
close OUT;
}
そこでこいつを下のようにしてみるんだな。
C:\>perl -e " for(1..10){$f=\"$_.txt\"; open(OUT,\">$f\"); print OUT \"$f\"; close OUT; }"
ファイルを作れませんでした.
C:\>
これはActivePerlの仕様なのか?もう今日は寝る。引数にワイルドカードも取れないし。どーすりゃいーんだ。
C:\>perl -e "for(1..10){print $_}"
12345678910
C:\>perl -e "for(1..10){print $_}">test.txt
C:\>perl -pe "" test.txt
12345678910
C:\>
C:\>perl -e "for(1..10){ system \"copy test.txt test$_.txt\"}"
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
1 個のファイルをコピーしました.
C:\>