Foro - Perl en Español

Buenas.

Estoy tratando de cortar una secuencia por la mitad y que ambas mitades me la guarde cada una en una variable distinta.

Para ellos he probado con la variable chop() pero no consigo guardar ambas mitades.

El caso es que meto variables pero no consigo el fin.

#!/usr/bin/perl

my $secuencia = 'AAATTTGGGTGTAATTGGGCCCGT';
my $secuencia =~ s/\s//g;
my $longitud = length($secuencia);

my $long = $longitud/2;
print "La longitud de la cadena es $longitud y el borde mide $long\n";
my $char;
my $new;
for ($char = 0;$char < $long; $char++){
my $char = chop ($secuencia) >> my $new;
}

¿Me pueden ayudar?
Gracias

Muy creativo tu código... En una línea casi parece C++

El método (que no variable) chop() sirve para recortar el último carácter de una cadena de caracteres.

Si quieres extraer una cadena de caracteres de otra, puedes usar substr():

Tienes más información en tu ordenador, ejecutando el comando perldoc -f substr

Sí, ante la desesperación de tantas pruebas he liado varios programas.

Muchas gracias por la gran ayuda.