Re^2: Number of digits at the end of the string

grinder's solution works for me (grinder++). Here's my test against your strings..

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

my @strings = qw/aaa_gjh1_dfgdf_0009 aaa_gjh_0000 00000 aaa_fdsfs_000 
+aaa_sdf_jdsh_01111/;

print is_valid($_) ? '' : "no ", "match: $_\n" for @strings;

sub is_valid {
    my $test = shift;
    return $test =~ /\Aaaa_\w{1,24}(?<=\D)\d{4}\z/;
}
[download]

Comment on Re^2: Number of digits at the end of the string Download Code

Replies are listed 'Best First'.
Re^3: Number of digits at the end of the string by isha (Sexton) on Jan 18, 2008 at 05:54 UTC
Thanks for the solution but this still says Match for aaa_fgjkghd11_hfksdh11__0000 ( two underscores)	[reply]
Re^4: Number of digits at the end of the string by grinder (Bishop) on Jan 18, 2008 at 10:27 UTC
Well -- to you, talk about ungrateful. It would be better to state more clearly what you want up front. Adding this additional constraint changes the pattern but a little. Were you to study perlre, you could probably have done it yourself. `sub is_valid { my $test = shift; return $test =~ /^aaa_\w{1,24}(?<!_)_\d{4}$/; }` [download] • another intruder with the mooring in the heart of the Perl	[reply] [d/l]