Mega Code Archive

 

Categories / Perl / Statement

 

Conditional Modifiers and print

$_ = "xabcy\n"; print if /abc/;   # Could be written: print $_ if $_ =~ /abc/;