> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Sent: Wednesday, October 15, 2003 11:42 AM > To: [EMAIL PROTECTED] > Subject: how to read from more than one files at a time > > > 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=$_;
$_ is not automatically assigned the input in this case. try: $in2 = <IN2>; > printf OUT "$in1$in2\n"; You won't need the trailing \n, because you aren't chomping it from file IN2 -Mark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
