Thread regex: newbie frage zum ersetzen (s///)
(14 answers)
Opened by Lutz at 2006-01-25 19:11
[quote=Relais,25.01.2006, 23:44]> perl -wle '$d = "3-1-2006"; $d =~ s/-(\d)-/-0$1-/g; print $d'
3-01-2006[/quote] Der OP wollte aber alle einstelligen Felder mit einer führenden Null versehen. s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite |