Copy Befehl kopiert nicht alle Daten - #151091 (Allgemeines zu Perl)

topeg

2011-08-03 15:25

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Was mir auffällt du entfernst nicht das "\n". Das kann Probleme machen weil dann jeder Name mit "\n" endet. Mach mal ein chomp

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;

my $file='d:\temp\result.txt';
my $dir='d:\temp\Testordner\\';

open (my $fh, '<', $file) or die qq!ERROR OPEN $file ($!)\n!;
while (<$fh>)
{
  # \n entfernen
  chomp;

  # weiter wenn die Datei nicht existiert
  next unless(-f $_);

  copy($_, $dir) or die qq!ERROR MOVE "$_" ($_)\n!;
}
close ($fh);