#perl语言
#!/usr/bin/perl
use 5.14.2; use strict; use warnings; while(<>){ chomp; if(/abc/){ print "matched :|$`<$&>$'|\n"; } else{ print "no match: |$_|\n"; } } 原文链接：https://www.f2er.com/regex/361250.html
#perl语言
#!/usr/bin/perl
use 5.14.2; use strict; use warnings; while(<>){ chomp; if(/abc/){ print "matched :|$`<$&>$'|\n"; } else{ print "no match: |$_|\n"; } } 原文链接：https://www.f2er.com/regex/361250.html