【perl】例子记录

#!/usr/bin/perl while(<STDIN>){ chomp; if(/(?<name1>\b\w+a\b)/g){ print "Matched:|$`<$&>$'|\n"； print "\'word\' contains \'$+{name1}\'";#注意反向引用 } else{ print "No match: |$_|\n";

>>阅读原文<<