Thread WWW::Scripter verbraucht viel Resourcen
(13 answers)
Opened by IceRage at 2010-03-07 20:29
Ich habe jetzt mal ein lauffähiges Skript geschrieben, dass das tut was es soll, aber eben auch den hohen Speicherbedarf demonstiert. Den Speicherbedarf während der Laufzeit mache ich wie gesagt mit dem tool xosview sichtbar. Zur Ausführung notwenig ist außerdem noch eine Txtdatei, in der die Links stehen, um die es sich später dann handeln soll.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 #!/usr/bin/perl -w use strict; use warnings; use WWW::Scripter; print "Hello, RelinkFetchedWorld...\n"; my $log_file = 'demo_log.txt'; open(LOG_FILE, ">$log_file"); print LOG_FILE ''; close(LOG_FILE); open(LINK_FILE, "<links.txt"); my @ar_lines = <LINK_FILE>; close(LINK_FILE); my %attributes = (max_docs => 1, max_history => 1); my $www = new WWW::Scripter %attributes; $www->use_plugin('Ajax'); for (my $i = 0;$i<=$#ar_lines;$i++) { open(LOG_FILE, ">>$log_file"); print LOG_FILE "************** Neuer IFrame Inhalt: \n"; $www->get($ar_lines[$i]); $www->document->getElementById('file-1')->trigger_event('click'); my $iframe_doc = $www->document->innerHTML; $www->clear_history(); print LOG_FILE $iframe_doc . "\n"; close(LOG_FILE); } $www = undef; close(LOG_FILE); Die folgenden Links sollten dann in der Datei links.txt, im selben Verzeichnis wie das Skipt abgespeichert werden. Code: (dl
)
1 http://www.relink.us/view.php?id=f63818689c6e72a9a422ba1fec8286 Gruß, IceRage Last edited: 2010-03-08 14:00:03 +0100 (CET) |