Hallo,
gibt es einen frei verfügbaren Javascript Parser in Perl ?
ich möchte aus einem bestehenden HTTP-Datenstrom javascript löschen, sodass nur noch der html quelltext ohne js vorliegt.
mfg
User since
2003-08-04
7321
Artikel
ModeratorIn
ist zwar nicht perfekt, aber ich fahre mit
$data =~ s!<script(.+?)>!<script_deleted>!gism;
$data =~ s!</script>!</script_deleted>!gism;
ganz gut!
User since
2003-08-08
327
Artikel
BenutzerIn
So bleibt der JS-Code doch aber im HTML-Code drin, nur die <script>-Tags werden ersetzt. Ich glaube, er braucht eher etwas in diese Richtung:
$data =~ s!<script(.+?)>(.+?)</script>!!gism;
User since
2005-01-17
14748
Artikel
Admin1
Mit HTML::Parser und
mit ignore_elements( qw( script ) ) die Skriptteile ignorieren
User since
2003-08-04
2536
Artikel
ModeratorIn
zusätzlich müsste man aber noch alle tags durchgehen und entsprechende handler rauswerfen - sonst lässt sich über ein einfaches onload bei einem bild doch wieder js reinbringen.