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 );
Mfg Dietmar
nicht angemeldet nicht angemeldetGuten 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 );
Mfg Dietmar