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:\>