Fehler beim ausführen eines Perl-Skriptes

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Fehler beim ausführen eines Perl-Skriptes

    Hallo zusammen!

    Habe ein Problem mit einem Perl-Skript:

    Eine Datenbank-Export Datei (ascii-Datei) mit ca. 15.000 Datensätzen und einer Größe von 482Mb, bei welcher sich zwischen jedem Datensatz eine
    Zeile mit einem $-Zeichen als Trennhinweis befindet, möchte ich in jeden
    einzelnen Datensatz zerlegen/zerschneiden lassen (also in 15.000 einzelne Dateien). Dazu nimmt das Script
    einfach den Text zwischen zwei Zeilen mit $-Zeichen und fügt diesen in eine leere, neu-erstellte Datei ein, deren Name sich aus der zweiten Zeile eines jeden Datensatzes ergibt!
    (Näheres dazu auch hier: http://www.php-resource.de/forum/sho...5&goto=newpost)

    Nun mein Skript:

    #!/usr/bin/perl -w
    use strict;
    $/ = qq{"\$"\t""\t""\n};
    my $inputfile = 'C:\test.asc';
    open A, $inputfile or die "Cannot open '$inputfile': $!";

    while ( <A> ) {
    my $file = ( split /\n/, $_ )[1] or next;
    ( $file ) = $file =~ m/"(.*?)"/ or next;
    open B, "> $file.csv"
    or warn( "Cannot open '$file': $!" ), next;
    print "[DEBUG] '$file': open ok\n";
    chomp $_;
    print B $_;
    close B or warn( "Cannot close '$file': $!" ), next;
    print "[DEBUG] '$file': close ok\n";
    }
    __END__


    Eine Test-Datei (hier z.B. test.asc) könnte folgendermaßen aussehen:

    "beginn erster Datensatz" "" ""
    "text" "" ""
    "texttexttexttetx text text" "" ""
    "texttext text" "" "98387"
    "text, text" "" ""
    "text" "" ""
    "" "" ""
    "text" 0.00 0.00
    "$" "" ""
    "" "" ""
    "mögliche Überschrift zweiter Datensatz" "" ""
    "" "" ""
    "texttext text" "5330146514" ""
    "" "" ""
    "text, text" "" ""
    "" "" ""
    "text" "30.06.1999" ""
    "$" "" ""
    "" "" ""
    "mögliche Überschrift dritter Datensatz" "" ""
    "" "" ""
    "texttext text" "5330146514" ""
    "" "" ""
    "text, text" "" ""
    "" "" ""
    "text" "30.08.2000" ""
    "$" "" ""
    "" "" ""
    "mögliche Überschrift vierter Datensatz" "" ""
    "" "" ""
    "texttext text" "5330146514" ""
    "" "" ""
    "text, text" "" ""
    "" "" ""
    "text" "30.08.2000" ""
    "$" "" "" "" ""
    "" "" ""


    Wenn ich oiges Script nun bei einer kurzen Test-Datei ausführe funktioniert es auch wunderbar und ich erhalte 4 Dateien mit den Dateinamen: text.csv, mögliche jedoch über die große 482Mb-Datei bügele, bricht es ab und meldet 'Die Batch-Datei konnte nicht gefunden werden!'. Woran könnte das liegen?

    Danke schonmal im Voraus!

    Viele Grüße & schönen abend!
Lädt...
X