perl有配置文件吗

perl有配置文件吗
perl下Excel写入中文很麻烦
能不能把 GB2312 设置位默认的编码模式
这样应该就不用 编码转换之类的了吧

有想象力，佩服！--.
有想象力，佩服！

不是不可能，不过还是要用.
不是不可能，不过还是要用unicode

中文写入 Excel 要不乱码，得把要输入的内容转成 unicode
如果你的内容来自某个文件比如说 source.txt,内容的编码方式是 gb2312,source.txt 文件内容类似这样：[quote]
张三,xxx@xxx.com,接口组
李四,aaa@aaa.com,设备组
......[/quote]
然后你可以把这个文件读进来,同时解码[quote]
open( FH,"<:encoding(gb2312 )","source.txt");
while(<FH>){
( $name,$mail,$group ) = split(',',$_);
# ... 用 Spreadsheet::WriteExcel 提供的函数写入文件 ...
}
#... 其他操作 ...
[/quote]

[color=red]open( FH,"<:encoding(gb2312 )","source.txt");[/color]
open 函数的[color=red] "<:encoding(gb2312)" [/color] 会自动把 gb2312 编码的 source.txt 文件的内容转换成 unicode,也就是说后面的 [b]$name,$mail,$group[/b] 无须再去转码就可以直接写入 Excel 文件了
你试试吧 :-)

   

谢谢了
这样似乎就方便多了
不必搞那么复杂
我好好看看 encode

[code]--open( FH,
[quote]
open( FH,"<:encoding(gb2312 )","source.txt");
while(<FH>){
chomp;
#( $name,$mail,$group )
@detail= split(',',$_);
print "@detail\n";
$worksheet->write_row($row, $col, \@detail, $format);
$row++;
}
[/quote]

谢谢 调试过了 很方便 呵呵