Foro - Perl en Español

por **akire** » 2011-05-30 13:27 @602

Hola, ¿qué tal? Agradecería mucho su atención sobre la siguiente duda.

G07VVQL01AR4M7,497,01,CAGTGGTATCAACGCAGAGTACGCGGGCACTCCTCTCTCATTAGAGGTTGATCTTTG
AGGAAAACAGGGTGTTGCCTAAAGGATGAAAGTGTTGAGT

Quiero ir sustituyendo primero en el inicio un '>',
en la primera, colocar length,
y en la segunda, colocar lib,
y en la tercera, que sea un salto de linea "\n",

Es decir que quede de la siguiente manera:

>G07VVQL01AR4M7 length497 lib 01
CAGTGGTATCAACGCAGAGTACGCGGGCACTCCTCTCTCATTAGAGGTTGATCTTTG
AGGAAAACAGGGTGTTGCCTAAAGGATGAAAGTGTTGAGT

Llevo varios intentos pero no logro todo.

Gracias por su apoyo.

#!/usr/bin/perl
use Modern::Perl;
 
my $entrada = 'G07VVQL01AR4M7,497,01,CAGTGGTATCAACGCAGAGTACGCGGGCACTCCTCTCTCATTAGAGGTTGATCTTTG
AGGAAAACAGGGTGTTGCCTAAAGGATGAAAGTGTTGAGT';
 
say "[$entrada]";
 
$entrada = ">$entrada";
 
for ( $entrada ) {
    s/,/ length/;
    s/,/ lib /;
    s/,/\n/;
}
 
say "[$entrada]";
 
__END__
[G07VVQL01AR4M7,497,01,CAGTGGTATCAACGCAGAGTACGCGGGCACTCCTCTCTCATTAGAGGTTGATCTTTG
AGGAAAACAGGGTGTTGCCTAAAGGATGAAAGTGTTGAGT]
[>G07VVQL01AR4M7 length497 lib 01
CAGTGGTATCAACGCAGAGTACGCGGGCACTCCTCTCTCATTAGAGGTTGATCTTTG
AGGAAAACAGGGTGTTGCCTAAAGGATGAAAGTGTTGAGT]
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **akire** » 2011-05-30 15:53 @703

Hola, muchas gracias.

No tengo la versión o librerías adecuadas para correrlo
pero ya lo coloqué de acuerdo a mi versión, te agradezco
mucho. Ten un excelente día,
Dios te Bendice

Foro - Perl en Español

Sustituir elementos

Sustituir elementos

Publicidad

Re: Sustituir elementos

Re: Sustituir elementos

¿Quién está conectado?