Thread 80 Mio Zeilen einlesen
(24 answers)
Opened by FanClub at 2013-07-16 10:17
kannst du mir helfen??
wie schaut my $pn = extract_produkt_nummer($prod); im detail 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:58:14 +0100 (CET) |