Re: Read two files and print

How about this:

use strict;
use warnings;
my %required;
open(IN,"<","text2.txt") or die;
while(<IN>){
   chomp;
   $required{$_}++
}
close IN;
open(IN,"<","text1.txt") or die;
while(<IN>){
   if (/\S+\s+(\S+)/ && !exists $required{$1}) {
      print "$1 doesnot match in text1.txt. Please help me.\n"
   }
}
close IN;
[download]

Comment on Re: Read two files and print Download Code

Replies are listed 'Best First'.
Re^2: Read two files and print by sandy1028 (Sexton) on Feb 26, 2009 at 03:42 UTC
Hi, How to extract only second field from the text1.txt `open(FILE1, 'text1.txt'); open(FILE2, 'text2.txt'); while ($line = <FILE1>) { @lines=split("\t",$line); print $lines[1]; if($lines[1] != <FILE2>){ # print "$line"; } }` [download] I tried something like this. But split doesnot works here. How can I check <FILE2> with second column of text1.txt	[reply] [d/l]
Re^3: Read two files and print by velusamy (Monk) on Feb 26, 2009 at 04:27 UTC
Hi, Try this.. `open(FILE1, 'File1.txt'); open(FILE2, 'File2.txt'); while ($line = <FILE1>) { @lines=split(' ',$line); print $lines[1]; if($lines[1] != <FILE2>){ print "$line"; } }` [download] In split use space as a delimiter, that will exactly splits the line.	[reply] [d/l]
Re^4: Read two files and print by GrandFather (Saint) on Feb 26, 2009 at 04:34 UTC
What do you expect `if($lines[1] != <FILE2>){` to do? Always use strictures (use strict; use warnings;)! != will unmify the strings on either side of it, most likely to 0, which is hardly what you might desire. != provides a scalar context for `<FILE2>` so a single line will be read from FILE2 for each iteration through the while loop, regardless of any synchronization issue that may be caused by extra or missing lines in either file. True laziness is hard work	[reply] [d/l] [select]