nicht angemeldet
Hi!
use LWP::Simple; $total = get("http://www.irgendwas.de/index.shtml"); print "Content-type: text/html\n\n"; $total =~ s/</</g;
Hier ist ein kleiner Fehler: Die original Tags sollen hier eigentlich "entwertet" werden. Dazu werden die einleitenden < durch < ersetzt: $total =~ s/</</g;
Allerdings scheint bei dieser Lösung die "Formatierung" verloren zu gehen (dh. die Zeilenumbrüche). Ist es mit einem Perl-Modul möglich, den Quellcode 1:1 zu übernehmen?
Wenn Du den kompletten Text in Originalform sehen möchtest (und nur diesen) kannst Du einfach den Content-type auf text/plain setzten (statt text/html).
Gruß, Jörk