Mehta, Perdeep wrote:
> Super! this works.
>
> I have one question, what are those spaces in between when I print as below, e.g.
>
> foreach my $acc (keys %hash){
> if ($acc =~ /1a1.f1b/) {
> print "[EMAIL PROTECTED]";
> }
> }
> produces following output:
> 1a1.f1b
> TAAATAGAGAGGTTCGACTCTGCATTTCCCAAATACGTAATGCTTACGGTACACGACCCA
> AGCTCTCTGCTTGAATCCCAAATCTGAGC
> GGACAGATGAGGGGGCGCAGAGGAAAAACAG GTTTTGGACCCTACA
>
> or as this
> 1a1.f1b
> TAAATAGAGAGGTTCGACTCTGCATTTCCCAAATACGTAATGCTTACGGTACACGACCCA
> AGCTCTCTGCTTGAATCCCAAATCTGAGCGGACAGATGAGGGGGCGCAGAGGAAAAACAG
> GTTTTGGACCCTACA
That's the normal field separator when you interpolate an array inside
a string. You could do a foreach (@{$hash{$acc}}) to avoid and poss.
print each on a separate line.
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
