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

• 追加された行はこの色です。
• 削除された行はこの色です。

[[Perl]]

+Shift-JISなどのtxtファイルをUTF-8へ変換するスクリプト
       @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";
       }
+ディレクトリ構造になっている場合、Shift-JISなどのtxtファイルをUTF-8へ変換するスクリプト
--use File::Findを利用した再帰的な方法
       use File::Find;
       @ARGV = qw(.) unless @ARGV;
       find sub { push @list, $File::Find::name, -d && '/', "\n"}, @ARGV;
       chomp @list;
       foreach(@list){
               unless($_){next;}
               if(/^\//){next;}
               print "nkf -w $_ > tmp\n";
               system("nkf -w $_ > tmp");
               system("mv tmp $_");
       }