• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• バックアップ を表示
• Perl/linuxで複数ファイルの文字コード変換 へ行く。
  • 1 (2009-07-22 (水) 12:36:07)

[[Perl]]

       @ls = `ls *.txt`;
       chomp @ls;
       foreach$file(@ls){
               $file_utf8 = $file;
               $file_utf8 =~ s/\.(.*)?$//;
               $file_utf8.= ".utf8";
               system("nkf -w $file > tmp");
               system("mv tmp $file_utf8");
               print "nkf -w $file > tmp\n";
       }