• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 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";
      }