in reply to grep regex exact match last n positions

If you want to match the string in the array end with same number of characters as the pattern.Then,you try this. 
my $search = "foo";

my $len=length($search); #finding the length of the pattern

my @array = ("s1 bar", "foo", "s3 foo");

print grep {/.*\b(.{$len})/;$_=$& if $1 eq $search;} @array;

#checking whether the end characters of the string in the 
array is same as the pattern given

[download]

Replies are listed 'Best First'.
Re^2: grep regex exact match last n positions
by JavaFan (Canon) on Apr 13, 2010 at 07:02 UTC
    That's an expensive way of doing substr! Not to mention that your regexp actually doesn't find the last 3 characters - it finds the first 3 characters following the last word boundary. 
    print grep {substr($_, -length($search)) eq $search} @array;

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom