> I have just started programming in Perl and i need a solution to the
> following problem :
>
> I have a file like this :
> >gi|56746574|
> fjhgfjhgfhgghdgfdhjsfghdfjdksjdijkjdskjdkjkjlopodlskdldkksjdkjf
>
fjhgfjhgfhgghdgfdhjsfghdfjdksjdijkjdskjdkjkjlopodlskdldkksjdkjffjhgfjhgfhggh
>
dgfdhjsfghdfjdksjdijkjdskjdkjkjlopodlskdldkksjdkjffjhgfjhgfhgghdgfdhjsfghdfj
> dksjdijkjdskjdkjkjlopodlskdldkksjdkjf
> >gi|875858568|
>
fjhgfjhgfhgghdgfdhjsfghdfjdksjdijkjdskjdkjkjlopodlskdldkksjdkjffjhgfjhgfhggh
>
dgfdhjsfghdfjdksjdijkjdskjdkjkjlopodlskdldkksjdkjffjhgfjhgfhgghdgfdhjsfghdfj
> dksjdijkjdskjdkjkjlopodlskdldkksjdkjf
>
> I essentially need to read the lines following the >gi|number| until the
> next >gi|somenumber| into a single line/single array.How do i do this?I
> would appreciate any help in this regard..
use strict;
my $count=0;
my @array;
open(F,"<file.txt") or die "Can't open file.txt: $!\n";
while (my $line=<F>) {
chomp $line;
$count++ if($line=~/\w+\|/);
$array[$count].=$line;
}
close(F);
print $_,"\n" for(@array);
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
