Prev: FAQ 1.8 Is Perl difficult to learn?
Next: Time::Local busted?
From: RedGrittyBrick on 24 Apr 2008 06:52
RedGrittyBrick wrote:
> #!/usr/bin/perl
> #
> use strict;
> use warnings;
>
> $/ = "\n >";
> while (my $record = <DATA>) {
> if ($record=~/CT2\n(.*)\n/s) { print $1 }
> }

Or
$/ = "\n >";
while (<DATA>) {
print $1 if /CT5\n(.*)\n/s;
}

>
> __DATA__
> >CT1
> XY0002658-96
> 0000222541
> >CT2
> XY0002688-55
> 0000254147
3333333333
4444444444
> >CT5
> ZZ0004854-00
> 0000475568



--
RGB
From: January Weiner on 24 Apr 2008 09:44
Amy Lee <openlinuxsource(a)gmail.com> wrote:
[snip]

Use bioperl to parse FASTA files :-)

j.

First  |  Prev  | 
Pages: 1 2
Prev: FAQ 1.8 Is Perl difficult to learn?
Next: Time::Local busted?