Re^2: Accessing variables

[pavanmach]

hi, There is no open close error in the program as i have used autodie module as u have suggested and i am not into $@ at all. My problem is the value which i am assigned to a variable in first while loop is not accessible in second while loop, y so ? Your response will be highly appreciated.

[Krambambuli]

Maybe your code should look somewhat like

#!/usr/bin/perl

my ($file1,$file2);
open(FILE1,"<$ARGV[0]");

while(<FILE1>)
{
   chomp($_);
   $file1 = $_;
   $file1=~s/\s+//;
   open(FILE2,"<$ARGV[1]");
   while(<FILE2>)
   {
      print "<$file1> \n";
   }
   close FILE2;
}

?

What output do you wish or expect?

[pavanmach]

haai, Actually i need to check whether each line of file1 matches with any line in file2. Thanks & Regards, Pavan