Zeichen für eine "characterclass" in einer Variable speichern - #172650 (Allgemeines zu Perl)

Kuerbis

2013-12-18 16:32

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Hallo, könnte man das auch anders schreiben?
(Ich möchte Zeichen in einer Variable speichern die ich dann in [...] verwenden kann.)

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use strict;

my $string = 'hello';

my $allowed = 'a-zA-Z_-';

if (  $string =~ /^([+$allowed]+)\z/  ) {
    say $1;
}