Aufgefüllte Strings vergleichen - #128893 (Allgemeines zu Perl)

renee

2009-12-03 13:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

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

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

Edit: Wenn es nur bei "genau" 3 X gültig sein soll, dann kannst Du es auch so machen:

Code (perl): (dl )

print "gueltig\n" if $var2 eq $var1 . 'XXX';

Last edited: 2009-12-03 13:46:31 +0100 (CET)