文件编码转换

#!/usr/bin/perl

use strict;
use IO::Handle;

if($#ARGV  < 0 )...{
    die "usage: filelist ";
}

if(!(-e "utf-8"))...{
    mkdir "utf-8", or die "cannot make directory : $!";
}

my @file_list = @ARGV;

foreach my $file (@file_list)...{
    if ($file eq "gb2utf8.pl")...{
        next;
    }

    print "converting $file ... ";
    system("iconv -f gb2312 -t utf8 $file -o utf-8/$file");
}

 文件编码问题真让头疼，参照网上的一些方法用 perl 写了个gb2312转utf8的脚本，文件的名字是 gb2utf8.pl ， 可根据需要修改。

用法：
./gb2utf8.pl file
会在当前目录下建一个名为 utf-8 的目录，转换后的文件就放在这个目录里。