how to read from more than one files at a time

[PerlDiscuss - Perl Newsgroups and mailing lists]

Hi,

I need to read from more than one file at a time and do some operation on
the strings and join them together, and put into one output file.

Here is the code. But I noticed the second file never get read. It must be
sth very simple to overcome this. Can anyone give me a hint?

thanks,
Ben

# Usage: perl jointfiles.pl infile1 infile2 outfile 
open (IN1, $ARGV[0]);
open (IN2, $ARGV[1]);
open (OUT, ">$ARGV[2]");
print "Input fileis : $ARGV[0], $ARGV[1]\n";
print "Output file: $ARGV[2]\n";

while(<IN1>) 
  {
  chomp;
  $in1=$_;
  <IN2>;
  $in2=$_;
  printf OUT "$in1$in2\n";
  }
close(IN1);
close(IN2);
close(OUT);


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]