请高手帮忙！

clustertech

有一个.txt文本里面的内容是这样的（截取一部分）
Abel亚伯
Abraham亚伯拉罕
Adam亚当
Adrian艾德里安
Alva阿尔瓦
Alex亚历克斯
Alexander亚历山大
Alan艾伦
Albert艾伯特
Alfred阿尔弗雷德
Andrew安德鲁
Andy安迪
Angus安格斯
Anthony安东尼
Arthur亚瑟
Austin奥斯汀
Ben本
Benson本森
Bill比尔
Bob鲍伯
Brandon布兰登
Brant布兰特
Brent布伦特
Brian布莱恩
Bruce布鲁斯
Carl卡尔
Cary凯里
Caspar卡斯帕
Charles查尔斯
现在我只要中文的，前面的英文我不需要，请问该如何做？split(/？？/)用什么切分？

Perl_Er

不要用split了，试一下.
s/\w*//;  把前面的英文去掉就可以了

shijiang1130

原帖由 clustertech 于 2009-8-20 11:48 发表
有一个.txt文本里面的内容是这样的（截取一部分）
Abel亚伯
Abraham亚伯拉罕
Adam亚当
Adrian艾德里安
Alva阿尔瓦
Alex亚历克斯
Alexander亚历山大
Alan艾伦
Albert艾伯特
Alfred阿尔弗雷德
Andr ...

while(<DATA>){ print ($2) if /^[A-Z](\w+)(\W+)/; } __DATA__ Abel亚伯 Abraham亚伯拉罕 Adam亚当 Adrian艾德里安 Alva阿尔瓦 Alex亚历克斯 Alexander亚历山大 Alan艾伦 Albert艾伯特 Alfred阿尔弗雷德 Andrew安德鲁 Andy安迪 Angus安格斯 Anthony安东尼 Arthur亚瑟 Austin奥斯汀 Ben本 Benson本森 Bill比尔 Bob鲍伯 Brandon布兰登 Brant布兰特 Brent布伦特 Brian布莱恩 Bruce布鲁斯 Carl卡尔 Cary凯里 Caspar卡斯帕 Charles查尔斯

Perl_Er

匹配汉字
use Encode;
$_="abc你好wert";
$a=decode('cp936',$_);
($x)=($a=~m/(\p{Han}+)/);
print encode('cp936',$x),"\n";

flw

s/[a-z]+//i;

clustertech

原帖由 shijiang1130 于 2009-8-20 12:17 发表

while(){
print ($2) if /^[A-Z](\w+)(\W+)/;
}

__DATA__
Abel亚伯
Abraham亚伯拉罕
Adam亚当
Adrian艾德里安
Alva阿尔瓦
Alex亚历克斯
Alexander亚历山大
Alan艾伦
Albert艾伯特
Alfred阿尔弗 ...

我想问下，$1与$2有什么区别？因为我开始写的是$1，打印出来的全是英文字？

Perl_Er

$1表示模式中第一个()中匹配的内容，$2表示第二个.
15、模式次序变量
   在模式匹配后调用重用部分的结果可用变量$n，全部的结果用变量$&。
     $string = "This string contains the number 25.11.";
     $string =~ /-?(\d+)\.?(\d+)/; # 匹配结果为25.11
     $integerpart = $1; # now $integerpart = 25
     $decimalpart = $2; # now $decimalpart = 11
     $totalpart = $&; # now totalpart = 25.11

iouhuan

长见识。

xti9er

原帖由 flw 于 2009-8-20 14:07 发表
s/[a-z]+//i;

我顶flw的