Opened by binse at 2013-11-28 15:52
User since
2006-05-04
564 Artikel
BenutzerIn
2006-05-04
564 Artikel
BenutzerIn
Hallo binse,
das mit der Reihenfolge wundert mich.
Die Leerzeile deutet auf eine Datei hin, die ausgelesen wird aber in Zeile 28 nichts brauchbares stehen hat(?).
Du könntest Dir mit print "$quelle\n" irgendwo in der Schleife zur Kontrolle die Dateinamen ausgeben lassen. Vielleicht siehst Du dann, woher das Verhalten kommt (beide obigen).
Die Textersetzung könnte gehen, indem Du die Zeilen 26 und 27 aus dem von mir angepassten Beispiel so ersetzt:
Mit Deinem Beispiel funktioniert das; mit allen wirklich vorkommenden Zeilen 28 vielleicht nicht, dann muss die Regex nachbearbeitet werden (der Vorschlag von clms gefällt mir jetzt besser).
HTH
Grüße
payx
das mit der Reihenfolge wundert mich.
Die Leerzeile deutet auf eine Datei hin, die ausgelesen wird aber in Zeile 28 nichts brauchbares stehen hat(?).
Du könntest Dir mit print "$quelle\n" irgendwo in der Schleife zur Kontrolle die Dateinamen ausgeben lassen. Vielleicht siehst Du dann, woher das Verhalten kommt (beide obigen).
Die Textersetzung könnte gehen, indem Du die Zeilen 26 und 27 aus dem von mir angepassten Beispiel so ersetzt:
Code (perl): (dl
)
1 2 3
while (<$FHquelle>) { next unless $. == 28; print $FHziel if s/^.+src=".+\/([^"]+)".+alt="([^"]+)".+title="([^"]+)".+$/"$1";"$2";"$3"\n/;
Mit Deinem Beispiel funktioniert das; mit allen wirklich vorkommenden Zeilen 28 vielleicht nicht, dann muss die Regex nachbearbeitet werden (der Vorschlag von clms gefällt mir jetzt besser).
HTH
Grüße
payx