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";
}