Mailinglist Archive: opensuse-programming-de (244 mails)
| < Previous | Next > |
Kommentare aus HTML-Dateien extrahieren
- From: Werner Schalk <werner_schalk@xxxxxx>
- Date: Tue, 1 Jul 2003 17:36:48 +0200 (MEST)
- Message-id: <4938.1057073808@xxxxxxxxxxxxx>
Hallo,
ich möchte mit Perl gerne einfache Kommentare (z.B. "<!-- Ich bin ein
Kommentar -->") aus einer HTML-Datei extrahieren. Dazu habe ich mir folgenden Code
ausgedacht:
---cut---
#!/usr/bin/perl
die "Benutzung: $0 dateiname\n" unless defined $ARGV[0];
open DATEI, $ARGV[0] or die "Fehler beim Oeffnen der Datei ($!)\n";
while ($zeile=<DATEI>) {
chomp;
if ($zeile =~ /<!--.*?-->/) {
print $zeile;
}
}
close DATEI;
---cut---
Der Code klappt auch soweit wunderbar, nur leider kann dieser keine
Kommentare erkennen, die Zeilenumbrüche enthalten bzw. sich über mehrere Zeilen
erstrecken. Hat jemand dafür eine Idee, die vielleicht sogar ohne zusätzliche
Perl-Module auskommt?
Viele Dank und schöne Grüße,
Werner.
--
+++ GMX - Mail, Messaging & more http://www.gmx.net +++
Bitte lächeln! Fotogalerie online mit GMX ohne eigene Homepage!
ich möchte mit Perl gerne einfache Kommentare (z.B. "<!-- Ich bin ein
Kommentar -->") aus einer HTML-Datei extrahieren. Dazu habe ich mir folgenden Code
ausgedacht:
---cut---
#!/usr/bin/perl
die "Benutzung: $0 dateiname\n" unless defined $ARGV[0];
open DATEI, $ARGV[0] or die "Fehler beim Oeffnen der Datei ($!)\n";
while ($zeile=<DATEI>) {
chomp;
if ($zeile =~ /<!--.*?-->/) {
print $zeile;
}
}
close DATEI;
---cut---
Der Code klappt auch soweit wunderbar, nur leider kann dieser keine
Kommentare erkennen, die Zeilenumbrüche enthalten bzw. sich über mehrere Zeilen
erstrecken. Hat jemand dafür eine Idee, die vielleicht sogar ohne zusätzliche
Perl-Module auskommt?
Viele Dank und schöne Grüße,
Werner.
--
+++ GMX - Mail, Messaging & more http://www.gmx.net +++
Bitte lächeln! Fotogalerie online mit GMX ohne eigene Homepage!
| < Previous | Next > |