Re: regex variable matching when it's more than variable

[Dr.Ruud]

Richard Lee schreef:

> my $var1 = 'abcdefg';
> 
> my @array = ( 'abcdefg_3432', 'defg_333', 'abcdefg_' , 'abcdefg_a' );
> 
> Let's say I want to go through the array to see if $var1 exists and
> also to see if it followed by _ and then 4 digits (only first one
> should quailfy , abcdefg_3432 )

    for my $item ( @array ) {
        next unless $item =~ m/^\Q$var1\E_[0-9]{4}$/;
        print $item, "\n";
    }

or in more steps:

    for my $item ( @array ) {
        next if substr( $item, 0, length $var1 ) ne $var1;
        next if substr( $item, length $var1 ) !~ m/^_[0-9]{4}$/;
        print $item, "\n";
    }

(untested)

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/