Re: joining files

If you're happy to use modules

use IO::File;
use Functional qw( zip );

my $f1 = IO::File->new( shift ) or die("ack - $!");
my $f2 = IO::File->new( shift ) or die("ack - $!");

my $join = zip( [map { chomp; "$_ " } <$f1>], [<$f2>] );;
[download]

Here's to hoping that more of Functional makes it into perl6.
HTH

_________ broquaint

update: added chomp() and extra space per dada's request

Comment on Re: joining files Download Code

Replies are listed 'Best First'.
Re: Re: joining files by dada (Chaplain) on Oct 17, 2002 at 13:28 UTC
...and who's gonna chomp the lines? :-) regarding perl6, here's how I would do it (untested code, of course :-) `require 6.0; # yeah, sure my $f1 is chomped = IO::File.new( shift ) or die("ack - $!"); my $f2 is chomped = IO::File.new( shift ) or die("ack - $!"); my @f1 is from <$f1>; my @f2 is from <$f2>; my @join = @f1 ^_ @f2;` [download] but this way you can't have a space between the lines from $f1 and $f2... Update: actually, this seems to work: `my @join = @f1 ^_ " " ^_ @f2;` [download] ...I'm such a newbie :-) cheers, Aldo King of Laziness, Wizard of Impatience, Lord of Hubris	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: joining files
by dada (Chaplain) on Oct 17, 2002 at 13:28 UTC

regarding perl6, here's how I would do it (untested code, of course :-)

require 6.0; # yeah, sure

my $f1 is chomped = IO::File.new( shift ) or die("ack - $!");
my $f2 is chomped = IO::File.new( shift ) or die("ack - $!");

my @f1 is from <$f1>;
my @f2 is from <$f2>;

my @join = @f1 ^_ @f2;
[download]

Update: actually, this seems to work:

my @join = @f1 ^_ " " ^_ @f2;
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

[reply]
[d/l]
[select]