Hoi,
$k=~s/(^0*)3|4|5|6/$10/;
Nur geht das nicht, da PERL ja nicht $1 und '0' einsetzt, sondern die
Variable '$10' als Ersatz nimmt.
$k =~ s/^(0*)[3456]/${1}0/;
Gruesse,
CK
nicht angemeldet nicht angemeldetHoi,
$k=~s/(^0*)3|4|5|6/$10/;
Nur geht das nicht, da PERL ja nicht $1 und '0' einsetzt, sondern die
Variable '$10' als Ersatz nimmt.
$k =~ s/^(0*)[3456]/${1}0/;
Gruesse,
CK