Re: File Formatting in Perl

[Andy_Bach]

my $cnt = 1;
while (<DATA>) {
  next unless  /\w/;
  s/\n/\t\t/ if ($cnt++ % 2);
  print;
}
__DATA__
AAAA
BBBB

CCCC
DDDD

EEEE
FFFF

More homework?

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

" ... even if you're mediocre/decent at perl [the cmecf] code is pretty 
confusing in certain areas ..." CB
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs