blogaholic

Wenn man noch dazu sagt, dass die RegExp NICHT auf die Zahl, sondern auf den String, der aus exakt so vielen Einsen “1″ besteht, wie die Zahl angibt, dann ist es nicht mehr ganz so verrückt.

In Perl wenn also $zahl die zu testende natürliche Zahl ist, muss man obige RegExp auf $str

my $str = '1' x $zahl;

anwenden und prüfen, ob die RegExp NICHT matched.

Geschrieben von luchr am 24 December 2008 @ 9pm