[Bioperl-l] Perl script for sequence matching

Paul Gordon gordonp@niji.imb.nrc.ca
Fri, 14 Jul 2000 17:25:55 -0300 (ADT)


Another one-liner, or at least close to it :-)

perl -ne 'BEGIN{$/=">";$"=";"}($d,$_)=/(.*?)\n(.+?)>?$/s;push
@{$h{lc()}},$d if $_;END{for(keys%h){print">@{$h{$_}}$_"}}'
     filename1 filename2 ...

________________________________________________________________________
Paul Gordon                                     Paul.Gordon@nrc.ca
Genomic Technologies				http://maggie.cbr.nrc.ca
Institute for Marine Biosciences
National Research Council Canada

On Fri, 14 Jul 2000, Suraj Peri wrote:

> 
> Hi all,
>   I am interested in knowing a script t o report the
> unique sequences from two files. It should not report
> the repetitions.
> I am infact trying to write this but  my script is not
> working.
> As i need it fast so can anyone please help .  is that
> in BIOPERL.
> 
> thanks.
> Peri.
> 
> __________________________________________________
> Do You Yahoo!?
> Get Yahoo! Mail – Free email you can access from anywhere!
> http://mail.yahoo.com/
> _______________________________________________
> Bioperl-l mailing list
> Bioperl-l@bioperl.org
> http://bioperl.org/mailman/listinfo/bioperl-l
>