perl怎么读_百度知道如何利用perl脚本，读文件的一行_百度知道很抱歉，该文档已经被删除了...先到其它地方遛一圈吧！
您可以在豆丁搜索您要找的内容
&2008- Inc. All Rights Reserved 豆丁网
扫描下载APP
扫描关注豆丁网
微信号：doudingwang
随时赢取精美礼品> perl中怎么统计中、英文单词个数
perl中怎么统计中、英文单词个数
tian_qi_ok & &
发布时间： & &
浏览：3 & &
回复：1 & &
悬赏：0.0希赛币
perl中如何统计中、英文单词个数这个问题早就有人问过，原来的字符串是：asldkfj中华sdkfj人民fkjs共和fj国djf那么应该返回4。大牛们给出的做法是：　　Perl code　　 my $s = 'dfsab准b好c,.aa123准哦难，。过'; my $x = () = $s =~ /[\x00-\x7f]+ /g; my $y = () = $s =~ /[^\x00-\x7f]+ /g; my $z = () = $s =~ /[^\x00-\x7f]+/g; print &$x\n&;#非中文字符的个数 print &$y\n&;#中文的字节数，除2就是中文个数 print &$z\n&;#不相连的中文字符串的个数
详见：;r=#r_现在我碰到的问题是：文本：“然而谁又知道ＢＰ机”，当将这句话放在perl代码中时，如：　　Perl code　　 my $s = 然而谁又知道ＢＰ机';
和将其放在一个文本文件中，读入进来，如：　　Perl code　　 Perl codeopen(my $fp, &&a.txt&) or die &can't open file\n&; my $s = &$fp&; chomp $s; close($fp);
得到的x,y,z的值分别为0，27，1和0，18，1。我的困惑是：1、不知道为什么会有这样的差异？2、一个中文占三个字节么？上面代码中说“除以2就是中文字数”3、这里的B和P应该转换为全角了，没有检查出来，要怎么检查出来呢？4、my $x = () = $s =~ /[\x00-\x7f]+ /g;这个表达式什么意思？一个标量等于一对括号，括号又等于一个正则表达式的返回值，而在正则表达式中+和？同时出现了，+表示匹配一到多次，？表示匹配0或一次。这个真没看懂。不胜感激！
1. 搞清楚你的问题。你到底是想统计非中文，还是简单的想统计英文？如果有日文呢？2. 处理中文的时候不要使用\xc0这种gbk编码。像3楼那样使用unicode。一定要养成这种习惯。否则问题不断。比如你上面的那个尝试，从一开始就是行不通的。再贴一段只抓英文和全角英文的代码：　　Perl code　　
my $s = decode('gbk', 'bp, 然而谁又知道ＢＰ机');
$s =~ s/[^a-zA-Z\N{U+ff41}-\N{U+ff5a}\N{U+ff21}-\N{U+ff3a}]//g;
print encode('gbk', $s);tian00000yu & &
10:11:39 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&PERL程序 open函数用+&&为什么读不出来东西？这个符号不是可读可写么？改成&就可以了。_百度知道}