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!
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!