Thread 80 Mio Zeilen einlesen (24 answers)
Opened by FanClub at 2013-07-16 10:17

guest Jacop
 2014-02-06 11:21
#173403 #173403
kannst du bitte den kompletten code posten auch den teil funktion

Danke
open(my $fh_in, '<', "input.xml") or die "... : $!";
open(my $fh_out, '>', "output.xml") or die "... : $!";

# Produkte, die schon ausgegeben wurden
my %Produkt_nummer_gesehen;

# lese immer einen kompletten Produktdatensatz ein
local $/ = "</Produkt>";

while (my $prod = <$fh_in>) {
my $pn = extract_produkt_nummer($prod);
next if $Produkt_nummer_gesehen{$pn}++;
print $fh_out, $prod;
Last edited: 2014-02-06 11:25:37 +0100 (CET)

View full thread 80 Mio Zeilen einlesen