Perl中的分组匹配
从Perl中的正则表达式角度来看，以下两个表达式之间没有区别，只是前者稍微清晰些。
$string =~ /(\S+)\s+(\S+)/; and $string =~ /\S+\s+\S+/;
但是，分组的好处是它允许我们从正则表达式中提取序列。分组以列表在原始组中出现的顺序作为列表返回。例如，在以下片段中，我们从字符串中拉出了小时，分钟和秒。
my ($hours, $minutes, $seconds) = ($time =~ m/(\d+):(\d+):(\d+)/);
除此直接方法外，还可以在特殊的$x变量中使用匹配的组，其中x是正则表达式中组的编号。因此，我们可以将前面的示例重写如下：
示例
#!/usr/bin/perl $time = "12:05:30"; $time =~ m/(\d+):(\d+):(\d+)/; my ($hours, $minutes, $seconds) = ($1, $2, $3); print "Hours : $hours, Minutes: $minutes, Second: $seconds\n";
当执行上述程序时，将产生以下结果-
Hours : 12, Minutes: 05, Second: 30
在替换表达式中使用组时，可以在替换文本中使用$x语法。因此，我们可以使用以下命令重新格式化日期字符串-
示例
#!/usr/bin/perl $date = '03/26/1999'; $date =~ s#(\d+)/(\d+)/(\d+)#$3/$1/$2#; print "$date\n";
当执行上述程序时，将产生以下结果-
1999/03/26