( f0xhu | 2012. 04. 17., k – 19:13 )

igy jar, aki iszik...
szoval e helyett:

foreach $line () {
my $dircopy = "$basedir/COPY/$line";
#print "$line\n";
copy ($line, $dircopy);
#system ("cp $line $dircopy");
}

ezt:

foreach $line (<FILE>) {
    chomp($line);
    my $dircopy = "$basedir/COPY/$line";
    copy($line, $diropy);
}

--
A gyors gondolat többet ér, mint a gyors mozdulat.