Re: If logic fails foreach mistake


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: If logic fails foreach mistake

by Ineffectual (Scribe)

on Mar 14, 2003 at 00:57 UTC ( [id://242913]=note: print w/replies, xml )

Need Help??

in reply to If logic fails foreach mistake

use IO::File;

foreach my $content (@contents) {
  $logfile = $pth .'\\' . $content;
  my $fs = filestamp($logfile);
  if ($fs == $datestamp) {
    print "$logfile --> is current, processing\n";
    my $fh = new IO::File "$logfile" || die "Error $logfile: $!\n";
    processFile($fh);
    $fh->close;
  } elsif ($fs == ($datestamp -1)){
    print "$logfile --> is one day old, processing\n";
    my $fh = new IO::File "$logfile" || die "Error $logfile: $!\n";
    processFile($fh);
    $fh->close;
  } else {
    print "$logfile is out of date range\n";
  }
}
[download]

You don't need multiple foreach loops and if you're going to pass a filehandle to a sub, you should probably use IO::File to do so.

HTH
'Fect