Perl正则表达式求助

bikkuri

[ 本帖最后由 bikkuri 于 2017-03-14 03:36 编辑 ]\n\n大家好！我有一个问题向大家请教。
为什么下面的正则表达式不能得到希望的结果SAS-1471？

[root@shinagawa:/tmp]# cat test.pl
#! /usr/bin/perl
$jira="corp-jira:SAS-1471";
print "(jira1=$jira)\n";
$jira =~ /\w{2,4}-\d{3,5}/;
print "[jira2=$jira]\n";
[root@shinagawa:/tmp]#
[root@shinagawa:/tmp]# ./test.pl
(jira1=corp-jira:SAS-1471)
[jira2=corp-jira:SAS-1471]
[root@shinagawa:/tmp]#
[root@shinagawa:/tmp]#

谢谢大家。

sunzhiguolu

$jira =~ /(\w{2,4}-\d{3,5})/;
print "[jira2=$1]\n";

jason680

回复 1# bikkuri

1. check
  if(m/.../){...}

2. capture by ( ... )
  m/xxx(...)yyy/

if($jira =~ /(\w{2,4}-\d{3,5})/){
  print "[jira2=$1]\n";
}

bikkuri

谢谢两位大神的指点。