Hyperlinks in HTML Datei öffnen (Allgemeines zu Perl)

[thread]18679[/thread]

Hyperlinks in HTML Datei öffnen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+2 replies
Lauvia

2013-10-16 16:00
User since
2013-09-05
42 Artikel
BenutzerIn
Hallo zusammen,
ich habe 2 Hyperlinks Probleme.

Das erste:

ich habe in einem einzigen Ordner mehrere html-Dateien, die sich auf 3 Ebenen verteilen:

- Hauptebene 1 besteht aus einer Datei (_Testresult.html, vgl. Anhang ), die die 2 Unterebenen auffasst, aber enthält Hyperlinks nur zu Unterebenen 2 (z.B. test_can_rxconv.AVL_DT_SRT_MOT_1.html)

- Unterebenen 2 (Frames) gibt's mehrere und enthalten je Hyperlinks zu ihnen zugeorneten Unterebenen 3 (z.B. test_can_rxconv.AVL_DT_SRT_MOT_1.AVL_REV_MOT_REX.html)

-Unterebene 3 (Signale) letzte Ebene, enthält viele html-Dateien.

Unterebene 3 kann ich ganz normal und direkt öffnen und parsen. Skript dafür besteht schon.

Da jeder Datei der Unterebene 2 bestimmte Files der Ebene 3 zugeordnet sind möchte ich lieber die Dateien ab Ebene 2 öffnen, einige Infos erfassen und dann... die enthaltenen Hyperlinks (-> Ebene 3) nacheinander öffnen und parsen. Parsen ist kein problem.
Die Frage ist wie kann ich diese Hyperlinks beim Parsen von Ebene 2 öffnen?

ich dachte mir sowas in der Art:
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

opendir (DIR, $DIR) || die ('Error Open $DIR'); my @files = glob("$DIR/*.*.html"); #Öffnen der Dateien 2. Ebene (Frames) foreach (@files) { $html_file = $_; if(! open (my $readf, $html_file)) # html 2. Ebene lesen { Log_Error("Cannot read html file: '$in_file'"); die; } while (my $line = <$readf>) { if ($line =~ /Marker i/) { einige infos erfassen } if ($line =~ /href\=/) #Zeile mit Hyperlinks { #---------(vielleicht hier eine Schleife um die Hyperlinks lesen zu können)-------- open (wie ich die Dateien hinter den Hyperlinks öffne: Ebene 3) if ($line =~ /marqueur j/) # Datei der 3. Ebene lesen { Parser; # besteht schon! } #---------(End Schliefe)----------------------------------------------------------------------------- } } }
Anbei ein Ordner mit den Dateien.

Das 2. Problem:
Wie kann ich die so erfassten Infos (Signalnamen, z.B. AVL_REV_MOT_REX ) in z.B. Excel als link kopieren (Anzeigename = Signalname)so, dass beim anklicken die entsprechende html-Datei sich öffnet?
Anhänge

application/zip
Log_test.zip

Last edited: 2013-10-16 16:05:32 +0200 (CEST)
- clms
  
  2013-10-16 17:33
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  Was mir auf die Schnelle auffällt:
  
  1. bei Dir fehlt use warnings; use strict;. Andernfalls hätte Perl Zeile 5 anmeckern sollen.
  
  2. statt Zeile 3+5 schreib besser foreach my $html_file (@files) {
  
  3. glob("$DIR/*.*.html"); liefert Dir auch die Files der 3. Ebene, da '*' auch den Punkt '.' abdeckt.
  
  4. open() besser in der 3-Argumente-Variante benutzen
  
  5. statt if (!open(...)) { Log_Error("..."); die; } verwende ich open(...) or die "...: $!";. Das kann man - wenn gewünscht auch um Log_Error() erweitern. Wichtig ist IMO, dass die Original-Fehlermeldung aus $! mit ausgegeben wird.
  Außerdem mag ich es nicht so, wenn die eigentliche Hauptfunktion in der Bedingung des if-Statements versteckt wird. Aber da gilt TIMTOWTODI.
  
  Nun zu Deinem eigentlichen Problem 1:
  Ich würde die Regex /href\=/ erweitern zu /href=["']?(.*?)["']?[ >]/ (o.ä). Dann landet der Teilstring, der von (.*\) gematched wird in $1 und Du kannst als erstes Statement im IF-Block my $link = $1 schreiben. Dann musst Du evtl. noch den Inhalt von $link filtern um an den gewünschten Filenamen der 3. Ebene zu kommen.

View all threads created 2013-10-16 16:00.