John,
Thanks for the help!! I new it had to be simple... but I just didn't see
it! I just need to add some more code to it but I think I can take it
from here.
Thanks again!
-Mike
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (John W. Krahn)
wrote:
> Mike Robeson wrote:
> >
> > In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (John W. Krahn)
> > wrote:
> > >
> > > According to your data this should work:
> > >
> > > #!/usr/bin/perl
> > > use warnings;
> > > use strict;
> > >
> > > my $len = 30; # pad out to this length
> > > while ( <DATA> ) {
> > > unless ( s/^\s*>// ) {
> > > chomp;
> > > my @char = ( split( // ), ( '-' ) x ( $len - length ) );
> > > $_ = "@char\n";
> > > }
> > > print;
> > > }
> > >
> > > __DATA__
> > > >dog
> > > agatagatcgcatcga
> > > >cat
> > > acgcttcgatacgctagctta
> > > >mouse
> > > agatatacgggt
> >
> > I do not know what happend but the text didn't get formatted correctly
> > on the list. But this is how the out put should really have been:
> >
> > a g a t a g a t c g c a t c g a - - - - - - dog
> > a c g c t t c g a t a c g c t a g c t t a - cat
> > a g a t a t a c g g g t t - - - - - - - - - mouse
> >
> > That is, I want the edited sequence data and the name on the same line.
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my $len = 30;
> my $name;
> while ( <DATA> ) {
> chomp;
> unless ( s/^\s*>(.+)// ) {
> $name = $1;
> my @char = ( split( // ), ( '-' ) x ( $len - length ) );
> print "@char $name\n";
> }
> }
>
> __DATA__
> >dog
> agatagatcgcatcga
> >cat
> acgcttcgatacgctagctta
> >mouse
> agatatacgggt
>
>
>
> John
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
