[p5sagit/p5-mst-13.2.git] / interleave

#!/usr/bin/perl

while (<>) {
    chop;
    $stuff[$i++] .= $_;
    $i = 0 if eof;
}

$" = "\n";  print "@stuff\n";
Commit	Line	Data
79072805	1	#!/usr/bin/perl
	2
	3	while (<>) {
	4	chop;
	5	$stuff[$i++] .= $_;
	6	$i = 0 if eof;
	7	}
	8
	9	$" = "\n"; print "@stuff\n";