note
blue_cowdawg
<ul><ul><i>
Could somebody help me do this on a faster way? Thanks!
</i></ul></ul>
<p>
Faster? <shrug!> dunno, but pull up a chair. Here are the two input files..
<code>
$ cat file1.txt
1
2
3
4
5
$ cat file2.txt
5
4
3
2
1
</code>
and here's some code:
<code>
#!/usr/bin/perl -w
use strict;
use Tie::File;
my ($file1,$file2,$fileout) = @ARGV;
tie my @ry1,"Tie::File",$file1 or die "$file1:$!";
tie my @ry2,"Tie::File",$file2 or die "$file2:$!";
tie my @out,"Tie::File",$fileout or die "$fileout:$!";
@out=(@ry1,@ry2);
untie @out;
untie @ry2;
untie @ry1;
</code>
which gives you this as an output:
<code>
$ cat out.txt
1
2
3
4
5
5
4
3
2
1
</code>
</p>
<div class="pmsig"><div class="pmsig-72516">
<hr>
<font size="-2">
Peter L. Berghold -- Unix Professional<br>
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg<br>
</font>
</div></div>
1012948
1012948