Re: gelöst: RE: perl -e Frage

Hallo, Am Mon, 05 Jul 2004, Yann Wissenbach schrieb:

---- #!/usr/bin/perl $indir = "/scripts/files/"; $batchfile = "/scripts/input/job";

use File::Path; use File::Copy;

chdir ("$indir"); @input=`cat $batchfile`; foreach $job (@input) { chomp($job);

if (-e $job) { print $file; print "OK\n"; } else { print "noe\n"; } }

Warum eigentlich nicht: ==== chdir($indir) or die $!; open(LST, "<$batchfile") or die $!; while(<LST>) { chomp; if( -e $_ ) { print "$_ OK\n"; } else { print "noe\n"; } } close(LST); ==== -dnh -- Now where were those frickin sharks with the frickin laser beams on their frickin heads? -- Bruce Tomlin