Portál AbcLinuxu, 7. května 2025 05:34
(?<=[^$]*$).*$+.*(?=$[^$]*)
@parts = split(/\$+/, $input); $output = '$' . join('&dolar;', @parts[1..$#parts-1]). '$';
$input =~ s/([^\$]+)\$+(?!$)/$1&dolar;/g;Pokud by se na vstupu objevil text ukonceny sekvenci dolaru, nebude tato nahrazena ale povazovana za ukonceni retezce a zachovana!
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.