naven8
Novice
Mar 15, 2012, 1:47 PM
Post #2 of 6
(699 views)
|
|
Re: [muluwork] fasta mRNA selector
[In reply to]
|
Can't Post
|
|
How will you get this input? Is it form a file?
If Yes:
#!/home/utils/perl-5.8.8/bin/perl -w
use strict;
use warnings;
my $filename = "File.txt";
my $opfile = "op.txt";
open my $fh,'<',$filename or die "Unable to open the file $filename $!";
open my $OP,'>',$opfile or die "Unable to write $!";
while(<$fh>){
if(/A{50,}$/) {
print $OP $_;
}
}
close($fh);
close($OP);
Please change "A{50,}$" based on your requirement.
(This post was edited by naven8 on Mar 15, 2012, 1:48 PM)
|
MAIN
SEARCH
WHO'S 
LOG 