Help for this page

Select Code to Download


  1. or download this
    open FH, '<', 'myfile';
print FH, "something\n";
  2. or download this
    No comma allowed after filehandle at ...
  3. or download this
    open my $fh, '<', 'myfile';
print $fh, "something\n";
  4. or download this
    open local *FH, '<', 'myfile';
while (<FH>) {
    # do something
}
close FH;
  5. or download this
    #!/usr/bin/perl

...
is \@bar, [$bar], 'good: got $bar';

done_testing;