Foro - Perl en Español

Hola, estoy haciendo una expresión regular, pero no consigo tenerla funcionando:

Por una parte en un fichero tengo un fichero conformado así:
linea6666
7-7-7
777--7777-777
7-----------------77777B--------------7777777
A1234-------7------6

Lo que necesito es capturar las lineas que empiecen por números o letras mayúsculas (cualquier cantidad de ellos), que después tengan un '-' o varios, que después tengan un número o varios, después guiones y después uno o más números. De momento lo que tengo hecho es esto: ...

Qué tal, buen día.... quisiera saber si me podrían ayudar y decirme de dónde puedo sacar unos módulos de BioPerl... se los agradecería muchísimo... los módulos son los siguientes:

use Bio::SeqIO;
use Bio::Tools::SeqStats;


De antemano ¡¡muchísimas Gracias!!

¡Saludos!

Hola

Cuando empecé con Perl ( hace más bien poco ) me pasaron una serie de preguntas, y fui incapaz de contestarlas todas.

Ahora lo he intentado y he contestado todo, pero no sé si estarán bien todas las respuestas. No soy un gran coder ni un experto en programación, así que si hay algo mal y lo podéis corregir/mejorar la explicación, os lo agradezco.

Además, me parece que estas respuestas contestadas aquí como recurso ...

Hola, veréis...estoy aprendiendo Perl, y en el curso que estoy leyendo, plantean un ejercicio en el que se le debe pedir al usuario un radio y el programa debe calcular el área del círculo. Pero hay una parte que pone...

Compruebe el comportamiento de su programa contra entradas
Valores normales: 1, 4.5, -3.2
Diferentes formatos de flotante: 1e2, 1.0e-1, etc.
Cero
Negativas
Cadenas de caracteres: la cadena vacía, cadenas de caracteres que contienen números, p. ...

Hola.
Necesito hacer un script que extraiga regiones al azar de un archivo genbank. La región debe tener 500 nt de longitud.

Mi código es el siguiente:

use Bio::SeqIO;

sub extract_intergenic_from_genbank {
my ( $infile, $out_intergenic_file, $min_intergenic_size, $max_intergenic_size ) = @_;

my ( $n_of_intergenic, $gi, $start, $end, $length, $strand, $taxon ) = (0);
my $in = new Bio::SeqIO( -file => "NC_002755.gb", -format => 'genbank' );

open( FNA, ">$salida.FASTA" )
|| die "# extract_intergenic_from_genbank : ...

¡Hola!
Por una parte tengo un fichero con líneas tal que así:
1999akestaesmicadenaak1212990as
Quiero guardar en una variable lo que esté entre ak y ak.

El problema que tengo es que todo lo que haya por delante y por detrás es variable, pueden ser números, letras, caracteres, de 1 a n veces.

Quiero hacerlo con una expresión regular, sin usar split(), substr(), unpack() o similares.

¿Me podéis echar un cable?

No sé cómo decirle a ...

# Como reemplazo esta string

$str = '34% es el total, y 4%<img alt="" src="Presentaci%C3%B3n_de_un_caf%C3%A9.jpg"><br>blabla de 10%';

# Quiero que el código anterior me quede algo así:
# 34% es el total, y 4%<img alt="" src="Presentaci@C3@B3n_de_un_caf@[email protected]"><br>blabla de 10%

# solo quisiera modificar el "%" por "@", pero solo dentro de las etiquetas "<img >" lo demás que lo deje intacto

# Saludos.

Hola saludos de ante mano.
¿Qué módulo o cómo hago url encode y decode, o cuál es el más recomendable para trabajar en estos casos?

Url encodig de una string

$str = 'La_ni%C3%B1a_es_una_inspiraci%C3%B3n';

¿Cómo hago para que me devuelva esta string?

La_niña_es_una_inspiración

Lo propio en MAYÚSCULAS:

LA_NI%C3%91A_ES_UNA_INSPIRACI%C3%93N
LA_NIÑA_ES_UNA_INSPIRACIÓN

Por ejemplo esta otra string:

URL Encode 'K%C3%B6nigsberg'
URL DECODE 'Königsberg'

Muchas gracias y Saludos desde ya.

Solucionado Muchas gracias. :D :D :D

Quisiera vaciar datos de un array, trabajando en un while()

open FICHERO, "def.txt";
while($dd = <FICHERO>) {
chop($dd);
my @capturados = $dd =~ //g;
# hago operaciones con @capturados

# aquí quisiera vaciar el array @capturados para que no influya en la
# siguiente ronda de while()
}


Saludos a todos.