The problem is quite simple: You're using $1, $2, and $3 in your program, but by the time you use them, you've lost their value. These are global symbols, and they're replaced whenever you use a regular expression operator. After your first regex match, simply save them in another variable:
$first = $1;
$second = $2;
$third = $3;
You should also be careful with regular expressions. Your regular expressions work, but they are very, very narrow. I missed it the first time that you had tabs in your files. I like using \s+ for whitespace of any sort. This will cover multiple tabs or spaces or a combination of different ones.
I also highly recommend you learn some more modern Perl. You would have immediately picked up the problem if you had used these two lines in your program:
use strict;
use warnings;
The strict would make sure that you have defined your variables via my or our. That makes sure that you don't say $Foo one place and $foo another and wonder what happened to the value you stored in $foo.
The warnings would have immediately highlighted that $1 and $2 don't have values when you do your second regular expression match.
Because of the require, things are a bit sticky in variable declaration when you use strict. A my variable is a strictly local variable with limited scope. That's why it's used 99% of the time.
A my variable only exists in the scope it's declared. For example, if you declare a variable inside a loop, it doesn't exist outside the loop:
if ($a > $b) {
my $highest = $a;
}
else {
my $highest = $b;
}
print "The highest value is $highest\n";
This won't work because $highest is defined inside the if statement. You'll have to declare $highest outside the statement for it to work:
my $highest;
if ($a > $b) {
$highest = $a;
}
else {
$highest = $b;
}
print "The highest value is $highest\n";
An our declared variable is globally available to the whole package. You define it anywhere - inside a loop, inside an if statement, anywhere - and it will be available later on.
A package is just a namespace. Unless you've declared otherwise, you're always in the main package. It's useful to prevent module variables from affecting variables in your code. This way, your included module can use the variable $foo, and you can use the variable $foo without interfering with each other.
The reason I had to go into this is because of your require. A my variable is only available in its scope. That is, the for loop, the if statement, or the entire file. Notice that last one: The entire file. This means that if I do my %h1, it won't exist outside of the file. Thus, I have to declare it with an our.
Also, when you use strict, it is pretty darn strict. It generates a compile time error when it sees a variable that hasn't been declared. Thus, I have to declare %h1 inside the main program, so the compiler knows about it.
I also use the say statement which I get from my use feature qw(say);. It's like print except it always prints a NL character. It doesn't seem like much, but it can be a lot less messy in many circumstances.
It is now highly recommended that you use a declared scalar for opening a file instead of just a file handle. File handles are global and can cause problems. Plus, it's hard to use a file handle in a subroutine. Also, it's recommended to use the three part open statement. This prevents problems when file names start with > or |.
Here's the program rewritten with a bit more modern Perl flair. I kept your standard algorithm, but added the new pragmas, declared %h1 before requireing it, and used the more standard open. Otherwise, it's pretty much what you had.
#! /usr/bin/env perl
#
use strict;
use warnings;
use feature qw(say);
our %h1;
require "hash.pl";
open ( my $input_fh, "<", "input.txt" )
or die "can't open file: $! \n";
foreach my $amp ( <$input_fh> ) {
chomp $amp;
if ( $amp =~ /(\d+)\s+(\d+)\s+(\d+)/ ) {
# Got to save the $1, $2, and $3 for later
my $first = $1;
my $second = $2;
my $third = $3;
foreach my $key ( keys %h1 ) {
foreach my $tmp1 ( @{$h1{$key}} ) {
if ($tmp1 =~ /($first\s+$second|$second\s+$first)/ ) {
say qq("$key": "$third");
}
}
}
}
}
close $input_fh;
