You could try a variation of this:
use strict;
open(OUTFILE,">parse.log");
open(INFILE,"myfile.txt");
while(<INFILE>){
if($_ =~ /^>/){ #If it starts with >
$_ .= <INFILE>; #add the next line to $_
print OUTFILE $_; #and print it.
}
}
-----Original Message-----
From: Pedro A Reche Gallardo [mailto:[EMAIL PROTECTED]]
Sent: Friday, April 19, 2002 12:30 PM
To: [EMAIL PROTECTED]
Subject: help parsing file
HI, I have a file that it could be devided in set of lines, each set
startingi with a line that has the ">" symbol. Of everyset of lines, I
am trying to print only the line that contain the ">" symbol and the
next line. Please see below. Any help welcome.
Regards,
Example file
>sptrembl|Q22966|Q22966 HYPOTHETICAL 19.9 KDA PROTEIN. [Caenorhabditis
elegans]
MVLALITLVVSAFLIPEVLADPCGDSNWRYFPQTNSCYKLIDENLPWTIAEFKCLFQGAHHVSIDSPEENQFVHEL
SRWS
EIWTGAAFFGKDQHYVNSDGSRYGNFENWKDGRKPPMNRARRCIKMDGNGEWFQSCCKKKTFTICEKKAAYSASSY
SGSN
NSVNGFRFMRHRS
>sptrembl|Q23409|Q23409 HYPOTHETICAL 137.8 KDA PROTEIN. [Caenorhabditis
elegans]
MIHDSLTTRSTLRTLNDAAPRVINDILYQHPKWISNYQLIEFNSTTHTLIVDSESGQDLVTGIFNLYDQNRNHAGY
SCLG
LNFYSTLLEAISHDNVQWGGMIYVFLYGQPAQDLDSYEKILQRIEVNKIQINVVQSSLNPCGQDISLDGLISLTQF
SGGS
FITATTPNAGNVFNQVPTNYMSNLIYENIAQDCTDTTFYVPIDVGTQSFTTYVQGFLNTDVQYTSPTDSLSTVTNV
FNDL
The output I would like will be:
>sptrembl|Q22966|Q22966 HYPOTHETICAL 19.9 KDA PROTEIN. [Caenorhabditis
elegans]
MVLALITLVVSAFLIPEVLADPCGDSNWRYFPQTNSCYKLIDENLPWTIAEFKCLFQGAHHVSIDSPEENQFVHEL
SRWS
>sptrembl|Q23409|Q23409 HYPOTHETICAL 137.8 KDA PROTEIN. [Caenorhabditis
elegans]
MIHDSLTTRSTLRTLNDAAPRVINDILYQHPKWISNYQLIEFNSTTHTLIVDSESGQDLVTGIFNLYDQNRNHAGY
SCLG
*******************************************************************
PEDRO A. RECHE , pHD TL: 617 632 3824
Dana-Farber Cancer Institute, FX: 617 632 4569
Harvard Medical School, EM: [EMAIL PROTECTED]
44 Binney Street, D1510A, EM: [EMAIL PROTECTED]
Boston, MA 02115 URL: http://www.reche.org
*******************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
