Foro - Perl en Español

por **perl biología** » 2015-06-14 12:14 @551

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

#!/usr/bin/perl
use strict;
use warnings;
 
my $secuencia = 'AAATTTGGGTGTAATTGGGCCCGT';
my $longitud  = length $secuencia;
my $borde     = $longitud / 2;
 
print "La longitud de la cadena es $longitud y el borde mide $long\n";
 
my $primera_mitad = substr $secuencia, 0, $borde;
my $segunda_mitad = substr $secuencia, $borde +1;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

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

por **perl biología** » 2015-06-14 14:09 @631

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

Muchas gracias por la gran ayuda.

Foro - Perl en Español

Cortar secuencia por la mitad

Cortar secuencia por la mitad

Publicidad

Re: Cortar secuencia por la mitad

Re: Cortar secuencia por la mitad

¿Quién está conectado?