Help for this page

Select Code to Download


  1. or download this
    while (<LOGFILE>) {
            ## do something with $_
}
  2. or download this
    foreach ($f->list) {
            ## do something with $_
}
  3. or download this
    #!perl

...
foreach ($f->list) {  ##problem??
    print "$_\n";
}
  4. or download this
    package List;

...
    $path = cwd unless @_ > 1;
    $self->{path} = $path;
}