Copy Befehl kopiert nicht alle Daten (Allgemeines zu Perl)

[thread]16586[/thread]

Copy Befehl kopiert nicht alle Daten

Tags: perl5 File::Copy Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+19 replies
Gast Death89

2011-08-02 13:42
Hallo Leute,
ich möchte ein Programm erstellen. Dieses soll eine txt-Datei öffnen. In der befinden sich je Zeile Pfadangaben, die auf eine Datei verweisen, wie z.B.: d:\temp\test.h

Auf diese Dateien soll zugegriffen werden, und anschließend sollen die einzelnen Dateien in ein anderes Verziechnis kopiert werden.
Die anzahl der zu kopierenden Dateien liegt bei ca. 1200 mit jeweils ein paar KB Dateigröße. Ich habe eigentlich ein funktionsfähiges Skript, allerdings werden nicht alle Dateien kopiert. Die erste Datei ist immer die 381ste Datei, die er kopieren soll. Woran kann das liegen?

Danke im Vorraus...
Code: (dl )

1 2 3 4 5 6 7 8 9 10

use File::Copy; open (FILE, "d:/temp/result.txt"); while (<FILE>) { copy($_, "d:/temp/Testordner/")or (print "File cannot be moved: " and print $_); } close (FILE);
- +15 replies
- pq
  
  2011-08-02 13:47
  User since
  2003-08-04
  12209 Artikel
  Admin1
  Guest Death89
  Ich habe eigentlich ein funktionsfähiges Skript, allerdings werden nicht alle Dateien kopiert. Die erste Datei ist immer die 381ste Datei, die er kopieren soll. Woran kann das liegen?
  
  1. bekommst du denn eine fehlermeldung für die nichtkopierten dateien?
  2. das mit der 381sten datei verstehe ich nicht.
  3. du musst vor dem copy noch ein chomp; ausführen, damit das newline vom dateinamen abgetrennt wird, denn in $_ steht immer die komplette zeile mit zeilenende.
  4. wenn du herausgefunden hast, welche datei nicht kopiert wird, mache eine ausgabe des strings mit dem dateinamen und überprüfe, ob die datei auch wirklich existiert. vielleicht hat sich ein falsches zeichen eingeschlichen. wie erstellst du die datei result.txt?
  
  edit: werde den thread später ins forum Fragen zu Perl-Modulen verschieben.
  
  edit: zur ausgabe möglichst Data::Dumper verwenden, um mögliche sonderzeichen zu entdecken. siehe auch VariablenInhalt
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper $_;
  
  Last edited: 2011-08-02 13:53:08 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +14 replies
  - Gast Death89
    
    2011-08-02 14:07
    
    hallo pq ,
    bei kleineren datenmengen bringt er mir auch keine fehler.
    
    es wird nur die Fehlermeldung ausgegeben, die er ausgeben soll, wenn die datei nicht kopiert werden kann (print "File cannot be moved: " and print $_).
    Mit der 381ten Datei meine ich das so, dass er beim kopieren der 381ten Datei mir den
    ersten Fehler bringt, sprich diese Datei nicht kopiert wird. Das passiert bei ungefähr 10 von 1200 Dateien. und wenn ich eine andere Datei an die stelle 381 zum kopieren übergebe,
    dann kommt auch eine fehlermeldung. hängt also nicht mit der spezifischen datei zusammen.
    das mit dem chomp hatte ich bereits ausprobiert. ändert allerdings auch nichts. die datei result.txt wird von einem anderen programm erstellt....ist aber soweit lauffähig, da dürfte es keine fehler geben.
    
    Last edited: 2011-08-02 14:08:27 +0200 (CEST)
    - +4 replies
    - renee
      
      2011-08-02 14:10
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Lass Dir den Fehler mal ausgeben. Also aus
      
      Code: (dl )
      
      print "File cannot be moved: "
      
      einfach
      
      Code: (dl )
      
      print "File cannot be moved: $!"
      
      machen.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - Gast Death89
        
        2011-08-02 14:12
        
        File cannot be moved: d:\temp\sbxs\ffs\reg\CTW\VIL\vil_dfm.he
        
        +2 replies
        
        pq
        
        2011-08-02 14:13
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        Guest Death89
        File cannot be moved: d:\temp\sbxs\ffs\reg\CTW\VIL\vil_dfm.he
        
        in der variable $! steht ein dateiname??
        windows ist kaputter als ich dachte.
        du hast nicht zufällig $_ statt $! geschrieben?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        renee
        
        2011-08-02 14:16
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2011-08-02T12:13:29 pq
        in der variable $! steht ein dateiname??
        windows ist kaputter als ich dachte.
        
        Nee, so kaputt is Windows nicht. Ich gehe eher davon aus, dass Deine Annahme bzg. $! vs $_ stimmt.
        
        So ist es unter Windows:
        
        Code: (dl )
        
        1 2
        
        C:\>perl -MFile::Copy=copy -le "copy 'talsdfjlsdfj.txt', 'hallsksd.txt' or die $!" Bad file descriptor at -e line 1.
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
    - +9 replies
    - pq
      
      2011-08-02 14:12
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      lass dir doch mal die fehlermeldung ausgeben. du lässt dir ja nur deine eigene meldung ausgeben.
      doku von File::Copy:
      
      Code: (dl )
      
      1 2 3 4
      
      SYNOPSIS use File::Copy; copy("file1","file2") or die "Copy failed: $!";
      
      in der variable $! steht die vom system zurückgelieferte fehlermeldung. also sowas wie file not found o.ä.
      
      ob das chomp was ändert oder nicht, ist egal, es gehört in den code. das newline muss weg, es sei denn, die dateien haben wirklich ein newline am ende, was sehr unwahrscheinlich ist.
      
      und mache bitte trotzdem die ausgabe von Data::Dumper, wenn das copy fehlschlägt.
      wenn etwas nicht so funktioniert wie erwartet, hole dir so viele informationen wie möglich.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +8 replies
      - Gast Death89
        
        2011-08-02 14:14
        
        oh stimmt ich habe $_ statt $! verwendet...sorry.
        
        +7 replies
        
        Molaf
        
        2011-08-02 15:07
        
        User since
        2007-10-11
        119 Artikel
        BenutzerIn
        
        Unter Windows kenne ich die Probleme mit copy auch, bei mir sind dann die meisten Fehler behoben durch ein s#\\#/#g; eine Zeile vor dem copy.
        Die falsch gebogenen Slashes als Verzeichnistrenner machten bei mir oft Probleme.
        
        +6 replies
        
        Gast Death89
        
        2011-08-03 10:21
        
        okay also als fehler bringt er mir: Bad file descriptor, wenn ich das auslesen lasse mit $!
        
        +2 replies
        
        renee
        
        2011-08-03 10:23
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Wie sieht denn die .txt-Datei aus? Sind die Dateipfade dort relativ oder absolut? Wenn sie relativ sind, sind die Dateien mit dem relativen Pfad vom Verzeichnis des Skripts erreichbar? Wenn nicht, musst Du sie entweder erst absolut machen oder Du musst in das Verzeichnis mit den Dateien wechseln und von dort aus das Skript starten.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        Gast Death89
        
        2011-08-03 10:27
        
        eine zeile der txt-Datei heißt besipielsweise so:
        d:\temp\test\test.c
        
        ich hatte auch eine txt-Datei erzeugt, die die \ in / umwandelt, da ich dachte, dass perl nicht mit der syntax klar kommt (d:/temp/test/test.c)
        ...allerdings bringt das auch nichts....
        
        +3 replies
        
        pq
        
        2011-08-03 11:36
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        und wo ist die Data::Dumper-ausgabe? hast du was gegen Data::Dumper? magst du es, stundenlang zu rätseln?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        Gast Death89
        
        2011-08-03 13:01
        
        $VAR1 = 'd:/test/sbs/ff/reg/CT/AC/global.he'
        meinst du sowas??
        Last edited: 2011-08-03 13:07:43 +0200 (CEST)
        
        pq
        
        2011-08-03 13:26
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ja, meine ich!
        und wenn du $Data::Dumper::Useqq gesetzt hast, wie ich es vorgeschlagen hatte (leider hast du ja erst jetzt reagiert), dann lässt sich hiermit ausschliessen, dass es sich um versteckte sonderzeichen handelt.
        ich nehme ja mal an, das du die wiki-seite gelesen hast, die ich verlinkt habe.
        
        mache vor dem copy eine abfrage, ob die datei existiert und lesbar ist.
        perldoc -f -f
        perldoc -f -r
        sind probleme mit dem plattenplatz auszuschliessen?
        
        ansonsten weiss ich leider keine anderen ratschläge. ich arbeite unter linux, weiss aber, dass dateioperationen unter windows immer etwas anfälliger sind, z.b. wenn noch andere anwendungen eine datei geöffnet haben und sowas.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +3 replies
- topeg
  
  2011-08-03 15:25
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  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 )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #!/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);
  - +2 replies
  - pq
    
    2011-08-03 15:33
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    blitzmerker.
    
    liest eigentlich niemand meine beiträge?
    
    2011-08-02T11:47:16 pq
    3. du musst vor dem copy noch ein chomp; ausführen, damit das newline vom dateinamen abgetrennt wird, denn in $_ steht immer die komplette zeile mit zeilenende.
    
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - topeg
      
      2011-08-03 15:44
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Entschuldige habe ich überlesen.

View all threads created 2011-08-02 13:42.