Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Merging files, 1 line for every 10

by ForgotPasswordAgain (Deacon)
on Sep 06, 2011 at 22:14 UTC ( #924475=note: print w/replies, xml ) Need Help??

in reply to Merging files, 1 line for every 10

Say that you read each file into an array.

use File::Slurp; my @file1 = read_file('file1'); my @file2 = read_file('file2');

Where would you go from there? Eventually you could have a new array, write it out like this:

my $lines = merge_lines(\@file1, \@file2); write_file('file3', @$lines);

How would you write 'merge_lines'?

sub merge_lines { my ($lines1, $lines2) = @_; my @lines; .... return \@lines; }

Not the most efficient way to do it, but...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://924475]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2016-10-27 05:02 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (353 votes). Check out past polls.