Hi (again) Henk:
OK, here's another approach adopts to your use of a second file to define the patterns to match:
# cat ./match.pl
#!/usr/bin/perl
use strict;
use warnings;
my @tokens;
my @strings;
die "Usage: $0 tokenfile file ...\n" unless @ARGV > 0;
my $tokenf = shift;
open( FH, "<", $tokenf ) or die "Can't open '$tokenf': $!\n";
chomp( @tokens = );
close FH;
push @strings, $_ for @tokens;
while (<>) {
for my $match (@strings) {
if (m/.{2}$match/) { #...adjust as needed
print "$_";
last;
}
}
}
1;
...run as:
# ./match.pl file_of_tokens file
That is, the "file_of_tokens" is your attachement of strings to be matched in "file".
Once again, you say position-3 and I counted that as postition-2 (zero relative) so you may need to adjust the code above as annotated.
Regards!
..JRF...
