nicht angemeldet
Guten Abend und danke Beat es klappt hervorragend nur weiss ich leider nicht "warum"
Könntest du mir diese Zeile bitte grob erklären:
my ( $string ) = ( join('',<DATA>) =~ /<head>(.*?)<\/head>/sm );
Zuerst konstruiere ich einen List Context in der Zuweisung
my ( ) = ( );
Der Grund ist, dass ein captured $1 so zugewiesen wird, statt die Anzahl der Treffer.
join('',<DATA>)
erzeugt einen String, auf welchen ich m// anwende
m//sm
beinhaltet zwei Modifier
für multiline und für das matchen von newlines für . (den Punkt)
mfg Beat