Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    __END__
    prints:
    at least one zero
    
  2. or download this
    print "at least one zero" if (grep {$_ == 0}@results_file);
    
  3. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
         print "\n--PASS--STATUS\n";
         print "\n@results_file\n";
    }