Doppelbuchstaben umklammern (war: Help) - #64677 (Allgemeines zu Perl)

sid burn

2006-04-10 23:55

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Warum seid ihr den gegen die Strikte verwendung von "\w" ?
Immerhin erkennt es auch alle Möglichen Unicode Zeichen des Landes, sofern die Locale dementsprechend auch eingestellt ist.

Code: (dl )

1
2
3

$text = "@ARGV";
$text =~ s/(\w)\1/($1$1)/ig;
print $text, "\n";

Möchte man immer alle Unicode Zeichen erkennen, egal wie die Locale gerade eingestellt ist, dann sollte man "\X" nehmen. Das erkennt aber auch Japanische, Koreanische Zeichen etc. ...

Code: (dl )

1
2
3

$text = "@ARGV";
$text =~ s/(\X)\1/($1$1)/ig;
print $text, "\n";

\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de