Suchen mit Array - #80468 (Allgemeines zu Perl)

Crian

2004-03-04 12:45

User since
2003-08-04
5873 Artikel
ModeratorIn

Nö:

Code: (dl )

1
2
3

my $var = "123";

if ($var =~ "^\d+$") { print "jau\n"; }

liefert:

Code: (dl )

Unrecognized escape \d passed through at C:\Daten\perl\forum\qr.pl line 3.
Final $ should be \$ or $name at C:\Daten\perl\forum\qr.pl line 3, within string
syntax error at C:\Daten\perl\forum\qr.pl line 3, near "=~ "^\d+$""
Execution of C:\Daten\perl\forum\qr.pl aborted due to compilation errors.

Aber

Code: (dl )

my $var = "123";

my $re = qr/^\d+$/;
if ($var =~ $re) { print "jau\n"; }

funktioniert wunderbar.

Allerdings keine Variante mit "..."?\n\n

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