Question

请教perl语言，/(\d{4}(\-?))/这句话什么意思啊？

Answer 1

这跟perl没关系，这是正则表达式，具体你可以百度一下：正则表达式。
这个正则是匹配一个字符串，这个字符串是4个数字，加一个横杠（可以没有横杠），比如：
1234
或
5555-

Answer 2

这一正则在尝试寻找 连续 4 个数字, 及 1 个可有可无的 - (横杠)

但值得留意的是, 这里有两组 () , 在括号中能找到匹配的文字时, 会顺序存到 $1, $2 ... 中

$str = "1234";
$str =~ /(\d{4}(\-?))/ ;
if ( $1 and $2 ) { print "\$1 = '$1', \$2 = '$2'. number with - " }
elsif ( $1 ) { print "\$1 = '$1', \$2 = '$2'. number only" }
else { print "not matched" }

print "$/==================$/";

$str = "9876-";
$str =~ /(\d{4}(\-?))/ ;
if ( $1 and $2 ) { print "\$1 = '$1', \$2 = '$2'. number with - " }
elsif ( $1 ) { print "\$1 = '$1', \$2 = '$2'. number only" }
else { print "not matched" }