Thread Frage der Zweckmäßigkeit
(17 answers)
Opened by rosti at 2025-03-10 15:50
Auf den hinteren Seiten von
![]() Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 use 5.020; my @testdata = ( 'title=Titel der Seite', '<!-- title=Titel der Seite, XML-Stil -->', ); my $re = qr/^ ( <!--)? # Die optionale Klammer wird (1) \s*(\w+)\s*=\s*(.*\S)\s* # "Captures" ohne Leerzeichen am Rand (?(1)-->|) # Wenn (1), dann nimm --> $ /x; for my $string (@testdata) { if ($string =~ m/$re/) { say "Gefunden: '$2' = '$3'"; } } |