请问：如何命令行传字符集参数

judite

有个excel文件，用spreadsheet：：parseexcel和writeexcel模块处理，假如excel是中文的，一定要定义use encoding "gbk"
假如是utf-8的，那要定义use encoding "utf-8"，有没有办法用输入参数来定义字符集呢？
谢谢

brotherjam

getopt::long

ttcn_cu

回复 1# judite


    很简单：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. our $enc;
   
4. BEGIN{
   
5. $enc="gbk";
   
6. defined $ARGV[0] and $ARGV[0]=~/^(gbk|utf-8)$/ and $enc=$ARGV[0];
   
7. };
   
8. 
   
9. warn "using encoding $enc";
   
10. use encoding "$enc";
    
11. 
    
12. 
    
13. 1;
    

复制代码

judite

谢谢 谢谢 试试