#perl语言
#!/usr/bin/perl
use 5.14.2; use strict; use warnings; while(<>){ chomp; if(/abc/){ print "matched :|$`<$&>$'|\n"; } else{ print "no match: |$_|\n"; } }
#perl语言
#!/usr/bin/perl
use 5.14.2; use strict; use warnings; while(<>){ chomp; if(/abc/){ print "matched :|$`<$&>$'|\n"; } else{ print "no match: |$_|\n"; } }