Mega Code Archive

 

Categories / Perl / Statement

 

Unless statement

#!/usr/local/bin/perl -w     while (<STDIN>)     {        chop;        print "I have found what I'm looking for: <$_>\n" unless $_ ne "Tom";     }