Perl Coding Standard

open(FOO,$foo) || die "Can't open $foo: $!";

ADVERTISEMENTS



						

die "Can't open $foo: $!" unless open(FOO,$foo);

ADVERTISEMENTS



						

print "Starting analysis\n" if $verbose;

						

$verbose && print "Starting analysis\n";

						

LINE:
for (;;) {
   statements;
   last LINE if $foo;
   next LINE if /^#/;
   statements;
}

						

opendir(D, $dir) or die "can't opendir $dir: $!";