"John W. Krahn" wrote:
>
> This should do what you want:
>
> $/ = '>';
> while ( <> ) {
> next unless s/\s+\S.*//;
> chomp;
> tr/\n//d;
> print "$_\n";
> }
After seeing your data file change that to:
$/ = '>';
while ( <> ) {
next unless s/\S+.*\n//;
chomp;
tr/\n//d;
print "$_\n";
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
