Hi, I'm new to Perl, I'd like to create a script that reads two input files and writes their contents to one output file in a way that the first line of input 1 is followed by the first line of input 2 and so forth. If one input file is shorter than the other, it should return to the first line, which is the difficulty to me. check my code out:
#! /usr/bin/perl use strict; use warnings; my $input1=<>; my $input2=<>; my $output = "output.txt"; # open (READ1, $input1) || die "Cannot open $input1: $!.\n"; chomp ($input1); open (READ2, $input2) || die "Cannot open $input2: $!.\n"; chomp ($input2); open (WRITE, ">$output") || die "Cannot open $output: $!.\n"; while (my $line= <READ1>.<READ2>){ chomp ($line); print WRITE "$line\n"; } close (WRITE); close (READ2); close (READ1); print "done\n";
In reply to writing two files (different in length) to one output by ic23oluk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |