从另一个字符串-Perl中提取所需的子字符串

发布时间：2020-12-15 23:27:15 所属栏目：大数据来源：网络整理

导读：我想从Perl中的一行中提取子字符串.让我解释一下这个例子： fhjgfghjk3456mm 735373653736icasd 666666666666222222222211 在上面的行中,我只想提取12位数字.我尝试使用拆分功能： my @cc = split(/[0-9]{12}/,$line);print @cc; 但它的作用是删除字符串的匹

我想从Perl中的一行中提取子字符串.让我解释一下这个例子：

fhjgfghjk3456mm   735373653736
icasd 666666666666
222222222211

在上面的行中,我只想提取12位数字.我尝试使用拆分功能：

my @cc = split(/[0-9]{12}/,$line);
print @cc;

但它的作用是删除字符串的匹配部分并将残留物存储在@cc中.我想要打印匹配模式的部分.我怎么样？

解决方法

$1内置变量存储正则表达式的最后一个匹配.此外,如果对整个字符串执行正则表达式,它将返回整个字符串.这里最好的解决方案是在比赛中加上括号,然后打印$1.

my $strn = "fhjgfghjk3456mm 735373653736nicasdn666666666666 222222222211";
$strn =~ m/([0-9]{12})/;
print $1;

这使得我们的正则表达式只匹配十二位数,然后我们将该匹配返回到$1.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!