Perl语言入门

162

｜

第

8

章

my $names = 'Fred or Barney';

if ( $names =~ m/((?<name2>\w+) (and|or) (?<name1>\w+))/ ) {

say "I saw $+{name1} and $+{name2}";

}

在使用捕获标签后，反向引用的用法也随之有所变化。之前我们用

\1

或者

\g{1}

这

样的写法，现在我们可以使用

\g{label}

这样的写法：

use v5.10;

my $names = 'Fred Flintstone and Wilma Flintstone';

if ( $names =~ m/(?<last_name>\w+) and \w+ \g{last_name}/ ) {

say "I saw $+{last_name}";

}

我们也可以用另一种语法来表示反向引用。

\k<label>

等效于

\g{label}

：

use v5.10;

my $names = 'Fred Flintstone and Wilma Flintstone';

if ( $names =~ m/(?<last_name>\w+) and \w+ \k<last_name>/ ) {

say "I saw $+{last_name}";

}

实际上，

\k<label>

与

\g{label}

有着细微差别。在两个以上的组有同名标签时，

\k<label>

和

\g{label}

总是会指代最左边的那组，但

\g{N}

就可以实现相对反向引 ...