perl中每行有多个要匹配的字符串怎么取?

例如：“1232352》和罚款6899》浓咖啡7899》还记得”
想建一个hash,key是汉字，value为汉字前的数字，不过每行数字和对应汉字的组数不定，说不定下一行就只有：“689077》或更换i欧冠”一组

推荐答案 2011-12-17

while(my $line=~/(\w+)?(\d+)?/gi)
{

}
其实你的需求写的很不明确。我不知道你是只需要抓取汉字+数字的这种呢，还是只有汉字/数字的也需要抓取，如果只有汉字/数字的，又怎么存放在一个哈希里。如果只匹配汉字+数字就是(\w+)(\d+) 然后
把$1,$2,存到一个哈希里就行

温馨提示：答案为网友推荐，仅供参考

当前网址：http://44.wendadaohang.com/zd/633GDZWK3.html

其他回答

第1个回答 2011-12-16

/模式匹配/g
这个小骆驼书上有的

相似回答

利用Perl查找匹配打印字符串答：如果txt1和txt2是两个文件的话，编程如下 !/usr/bin/perluse strict;# 定义一个哈希变量存放结果my %hash;open TXT1, "<txt1";foreach my $line (<TXT1>){ # 去除文件的回车换行符 chop($line) while ($line =~ /[\r\n]$/); # 拆分每一行 my ($name, $path) = ...

perl如何匹配两个文本含有相同字符串的行,并且把含有相同字串的行抽取...答：暗淡作为字符串'声明一个字符串，点击看详细昏暗B作为Integer`声明塑料点击看详细暗淡作为字符串，B为整数`声明的字符串，b为整形点击看详细静态C作为字符串'静态声明的字符串。

当一个正则表达式取到匹配的字符串有3个时,如何取第2个字符串?答：public void test(){ String s1 = "abcdeeeffddaafds";String regx = "a";Pattern p = Pattern.compile(regx);Matcher m = p.matcher(s1);while(m.find()){ System.out.println(m.group());} }

perl中如何提取包含相同的字符串答：按照你的要求编写的perl程序如下(先用正则表达式提取,再用正则表达式替换)abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");$size=@abc;@www=();for($i=0;$i<$size;$i++){ $string=$abc[$i]; if($string=~ m/[A-Za-z]+...

大家正在搜

perl匹配字符串是否存在 perl多行匹配 perl输出匹配行以及下一行 perl怎么读csv文件中一行 python 字符串匹配 perl多组匹配 perl匹配数字 perl如何打印文件中的某些行 perl匹配空格