綾小路龍之介の素人思考

空ファイルを作るにはどーすりゃいーんじゃコラ

普通なら下のような感じで書けば、ファイル名1.txt,2.txt,3.txt,4.txt,5.txt,6.txt,7.txt,8.txt,9.txt,10.txtのファイル中にファイル名が書き込まれたファイルができるんだな。

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

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2007-12-24T03:03:03+09:00
  2. Modified: 2007-12-24T04:58:41+09:00
  3. Generated: 2017-03-07T23:09:21+09:00