2009-12-03T12:45:05 renee

Code (perl): (dl )

1
2
3
4

my $var1 = 'ABCDEFG';
my $var2 = 'ABCDEFGXXXXXX';

print "gueltig\n" if $var2 =~ /^${var1}X*$/;

Sieht zwar nicht mehr so schoen aus, aber ich wuerd das ja so schreiben:

\Q vermeidet Behandlung von Sonderzeichen in der Variable, \z matcht wirklich nur am String-Ende (ungeachtet von Newlines)


$subject =~ s/Scalare/Aufgefüllte Strings/
Last edited: 2009-12-03 14:00:00 +0100 (CET)