Re: Help with printing 2 files into 1

[Bernhard van Staveren]

> file_1:
> 12
> 13
> 14
> 3
> 
> file_2:
> 3
> 45
> 34
> 56

A real quick and dirty way of doing it:

-- 8< --

use strict;

open(FONE, $ARGV[0]);
open(FTWO, $ARGV[1]);
open(FOUT, ">$ARGV[2]");

my @f1;
my @f2;
my $c=0;
chomp(@f1=<FONE>);
chomp(@f2=<FTWO>);
close(FONE);
close(FTWO);

for($c=0;$c<scalar(@f1);$c++) {
  print(FOUT $f1[$c]." ".$f2[$c]."\n");
}

close(FOUT);

-- 8< --

works on only two files at a time so it might not be all that useful.
Also if the 2nd file is larger than the first one, it'll break.
YMMV and such.


-- 
Bernhard van Staveren   -   madcat(at)ghostfield.com
GhostField Internet     -   http://www.ghostfield.com/
"A witty saying proves nothing, but damn it's funny!" - me, 1998 

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