Hello Kenneth,
Wednesday, January 29, 2003 you wrote:
KJM> Given the content of a file as:
KJM> AAAA
KJM> BBBB
KJM> CCCC
KJM> DDDD
KJM> EEEE
KJM> FFFF
KJM> I want it rearranged in the following format using Perl:
KJM> AAAA BBBB
KJM> CCCC DDDD
KJM> EEEE FFFF
one way:
open(FIN, $fpin) or die "no file";
my @FIN = <FIN>;
close(FIN);
my $str = join("x", @FIN);
$str =~ s/\nx\nx/\n/g;
$str =~ s/\nx/\t/g;
open(FOUT, ">$fpout");
print FOUT $str;
close(FOUT);
exit;
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
