> But it didn't help at all with my benchmark. > ... > For information that change has no impact on my bench.
Interesting, what version of Perl are you running if those changes don't do anything? --- Futher improvement is that now it is unnecessary to read whole XML-file into memory, as the file is linearly scanned through. So no need to waste 5MB of memory if you are short of it. -- # Read all the XMLTV stuff into memory - quicker parsing open(XMLTV, "$xmltvfile") || die "cannot open xmltv file"; @xmllines=<XMLTV>; close(XMLTV); sub ProcessEpg # Find XML events foreach $xmlline (@xmllines) -- => open(XMLTV, "$xmltvfile") || die "cannot open xmltv file"; sub ProcessEpg while($xmlline = <XMLTV>) _______________________________________________ vdr mailing list firstname.lastname@example.org http://www.linuxtv.org/cgi-bin/mailman/listinfo/vdr