Foro - Perl en Español

por **barbara** » 2011-01-12 14:00 @625

Hola...
Soy muy nueva en esto.. creo que sé solo lo más básico...

El problema es que necesito hacer un programa que recorra un archivo letra por letra, pero en una especie de ventana deslizante, y me entregue un archivo de salida con todos los cortes hechos por las ventanas...

Este sería como el archivo de entrada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

 AAABBCEDETGHJKFRFGGColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Por ejemplo... si especifico una ventana de largo 5... deseo que me entregue algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

AAABB

AABBC

ABBCE

BBCED.....Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y así sucesivamente...

Les agradecería mucho su ayuda...

#!/usr/bin/perl
use 5.010;
 
my $ADN = '
GATCTCGCAACTCTTAATAAAGCTAATTCCTGCTAATTCGCTATACACTAAATCTTAATAAACTTGCTTC
ATTATTTTCTCGATAAATATTTTATTTATAACAGTTTGTTAAATTGACAGGGTCCTTGCTAAGTTTCTAT
ATACAACATAAACATACTATACGAAATAACATTTTTCTCAAGGTATGTAGAGTATAAATGCTCCAACGTG
GCACAATTTCATTTCGTTTAGTTTACTAAAAACCCATATTCGCGTCGCACTCACACAGAATCTAGAGTTT
AGTACATTTTACCGGCTCAACAATTAACCATTCAAATTGTATTTCAAGTATGAGTAACAATCGAATAAAA
';
 
$ADN =~ s/\n//g;
 
my $i;
my $largo = 15;
 
for ($i = 0; $i < length $ADN; $i += $largo) {
    say substr $ADN, $i, $largo;
}
 
__END__
GATCTCGCAACTCTT
AATAAAGCTAATTCC
TGCTAATTCGCTATA
CACTAAATCTTAATA
AACTTGCTTCATTAT
TTTCTCGATAAATAT
TTTATTTATAACAGT
TTGTTAAATTGACAG
GGTCCTTGCTAAGTT
TCTATATACAACATA
AACATACTATACGAA
ATAACATTTTTCTCA
AGGTATGTAGAGTAT
AAATGCTCCAACGTG
GCACAATTTCATTTC
GTTTAGTTTACTAAA
AACCCATATTCGCGT
CGCACTCACACAGAA
TCTAGAGTTTAGTAC
ATTTTACCGGCTCAA
CAATTAACCATTCAA
ATTGTATTTCAAGTA
TGAGTAACAATCGAA
TAAAA
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si se trata solo de imprimirlo, te vale con usar un format:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $ADN = '
GATCTCGCAACTCTTAATAAAGCTAATTCCTGCTAATTCGCTATACACTAAATCTTAATAAACTTGCTTC
ATTATTTTCTCGATAAATATTTTATTTATAACAGTTTGTTAAATTGACAGGGTCCTTGCTAAGTTTCTAT
ATACAACATAAACATACTATACGAAATAACATTTTTCTCAAGGTATGTAGAGTATAAATGCTCCAACGTG
GCACAATTTCATTTCGTTTAGTTTACTAAAAACCCATATTCGCGTCGCACTCACACAGAATCTAGAGTTT
AGTACATTTTACCGGCTCAACAATTAACCATTCAAATTGTATTTCAAGTATGAGTAACAATCGAATAAAA
';
 
$ADN =~ s/\n//g;
 
write;
 
format STDOUT =
^<<<<<<<<<<<<<<~~
$ADN
.
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **barbara** » 2011-01-12 15:34 @690

¡¡¡Muchas gracias!!! Me ha servido mucho...
Es como lo principal que necesitaba hacer...

Gracias, ¡me has ayudado mucho! :wink:

Foro - Perl en Español

Especie de ventana deslizante

Especie de ventana deslizante

Publicidad

Re: Especie de ventana deslizante

Re: Especie de ventana deslizante

¿Quién está conectado?