Opened by Updecrator at 2005-12-19 06:55
User since
2005-11-16
17 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-11-16
17 Artikel
BenutzerIn
Hallo, Zusammen,
Ich würde eine Substitution über ein negiertes Muster durchführen,
z.B. $line = " OK'#OKP=OKOK''?OK "
Ich möchte all Zeichen, die nicht geleich 'OK' sind, als 'X' codieren:
Das Ergebnis sollte so aussehen:
$line = " OKXXOKXXOKOKXXOK "
Vielen Dank im Voraus & Viel Gruss !
Ich würde eine Substitution über ein negiertes Muster durchführen,
z.B. $line = " OK'#OKP=OKOK''?OK "
Ich möchte all Zeichen, die nicht geleich 'OK' sind, als 'X' codieren:
Das Ergebnis sollte so aussehen:
$line = " OKXXOKXXOKOKXXOK "
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
sub convert {
my $line = shift;
my $legal_chars = 'O|K';
# wie negiere ich '$legal_chars' ??? ###
$line =~ s/ ??? $legal_chars/X/g;
########################
return $line;
}Vielen Dank im Voraus & Viel Gruss !