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

Gast Jacop
 2014-02-06 11:55
#173404 #173404
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)

View full thread 80 Mio Zeilen einlesen