Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Unless statement
#!/usr/local/bin/perl -w
    while ()
    {
       chop;
       print "I have found what I'm looking for: <$_>\n" unless $_ ne "Tom";
    }