#!/usr/bin/perl -sw

use Data::Dumper;
use strict;
local $\=$/;
my %patterns;
open(PFILE, "whatpattern.txt")|| die "Cannot open whatpattern.txt file
+";
while (<PFILE>) {
    chomp;
    next unless $_;
    my @tags = split /; |:/;
    my $key = shift @tags;
    $patterns{$key} = \@tags;
}
open(TESTFILE, "alltestfile")|| die "Cannot open alltestfile";

while(defined(my $question=<TESTFILE>))
{

my @qkeys = $question =~ m!(/[A-Z0-9]+)!g;
my @qvalues = $question =~ m!(.*?)(?:/[A-Z0-9]+\s+)!g;


my %questionlookup;
@questionlookup{@qkeys} = @qvalues;   

my $key = join'',@qkeys;

print $question."\n\n";
if (my $answer = $patterns{$key})
{

  $answer =~ s!\s*$_\s*! $questionlookup{$_} !g for qkeys %questionloo
+kup;
  $answer =~ s/\:/\n\n/g;
  print $answer;

} else{

print "No Match\n";

}
}
[download]

First problem is that there is a typo in the code you posted. When doing the substitution, you had for qkeys %questionlookup; instead of keys.

However, I don't think that is the real problem as your code wouldn't compile without correcting this. So that leaves a second possibility - the format of your patterns file is not quite the same as I used in my answer.

Please go back to that answer and note the comment

#! Added leading and removed trailing /'s for consistancy

I slightly modified the format of your patterns as you supplied them as this made the format more consistent which greatly simplified the regexes used for parsing them.

As I don't have access to your patterns file, I re-used the (modified) versions that you supplied for the original question in the attached code. Using this, and with the correction above, your program works fine.

I'm afraid that if your existing patterns file omits the /'s on the first tag and includes a trailing / on the end, then you wil either have to

• Modify your patterns file or
• modify the regexes (and possibly more) used in my example code in order to get this to work.

I think that doing the former would be easier, as well as giving a more consistant format, but only you will know the scale of the problem and how easy that modification would be to do, so that decision is yours.

Code and output

Read more... (3 kB)

---

Nah! Your thinking of Simon Templar, originally played by Roger Moore and later by Ian Ogilvy

Hello Monk

Thanks for your answer but I double checked my patterns and they have the same format with /'s at the beginning of the tag and not / at the end, I even create a file with just one pattern, the one we have been using so far and it still showing me the same
For each question that match, the result is ARRAY(0x81527ec) btw I corrected the errors you mentioned, and as you said this was not the problem...

I don't know what to do, I read other post about people having the same results and it was a problem of reference but I tried the same and it did not work for me!!

Thanks

Input, will be the same as my first post, but instead of concatenate the answers, I print them out as a list