LWP

[Jörk Behrends]

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 &#38;lt; ersetzt: $total =~ s/</&#38;lt;/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

(sorry fürs 2te Posting - bin ich doch glatt in den gleichen Fehler gerannt :(  )