Re: arrange output in columns

[space_monk]

Update:Working version :-)

It's a slow day....

use strict;
use warnings;
use English;

# let's talk like pirates....
my @arr;


my $fc = 0;
for my $file (@ARGV) {
   open my $fh, "<$file" or die "We're screwed with $file";
   while (<$fh>) {
      chomp; # maybe s/\s+$// ?
      $arr[$INPUT_LINE_NUMBER][$fc] = $_;
   }
   close $fh;
   $fc++; # inc filecount
}

# print 
for (my $i =1; $i <= $#arr; $i++) {
   # fill in the blanks
   print join(',', map { $arr[$i][$_] // '' } 0..$fc-1)."\n"; 

}

[poj]

"I might get the bugs out of this later.... "

Here's the 3 missing characters you'll need to fix the script  = { }

<Reveal this spoiler or all in this thread>

but even when fixed it doesn't give the required result for files with different record counts.

Output     Required
a,2        a,2
b,f        b,f  
c,4        c,4
s          ,s
w          ,w

poj

[space_monk]

Thanks for the input. I knocked this up in part of my lunchbreak while munching a burrito, and it was totally untested. :-)

Update: I spotted the problems you mentioned before you posted and they've now been fixed.

Anyway, as my footer says, it's polite to ensure that the reader still has to think through some of the issues, especially as this may be a homework assignment! :-)