Help for this page

Select Code to Download


  1. or download this
    my @contents = grep { /^[Bb].+.txt$/ } @cont;
  2. or download this
    /^[Bb].+\.txt$/
  3. or download this
    open(FILE, "<$logfile"); # specify read explicitly with <
print "$logfile:\n";
print while(<FILE>);
close(FILE);