Foro - Perl en Español

¡¡¡Muy buenas tardes a todos, espero puedan ayudarme!!!

Muchas veces, después de un proceso bioinformático obtenemos una gran cantidad de resultados. Estos resultados los llevamos a una hoja Excel para un mejor manejo. Además, no todos los resultados nos interesan, entonces necesitamos realizar una extracción de forma manual; pero esto es una pérdida de tiempo, cuando hablamos de una gran cantidad de datos (más o menos 1000).

Por ejemplo, supongamos que es una hoja Excel, ...

¿Se puede leer el nombre de un archivo y compararlo con las cabeceras escritas en él?

Hola a todos,

Soy nuevo en esto de Perl, necesito un validador de XML teniendo como referencia un .xsd. Tengo varios códigos sacados de Internet, el problema es que al ejecutarlos me da este error:
"Can't locate XML/SAX/Exception.pm in @INC (@INC contains: U:/Perl/site/lib U:/Perl/lib .) at U:/Perl/lib/XML/LibXML.pm line 1933.
BEGIN failed--compilation aborted at U:/Perl/lib/XML/LibXML.pm line 1933.
Compilation failed in require at comprobacion.pl line 5.
BEGIN failed--compilation aborted at comprobacion.pl line 5.

y así con varios ...

Hola, antes de nada, gracias por la atención.

Tengo un problema con Xpath ya que no acabo de entender bien en las tutoriales que he mirado cómo solucionar éste problema:

Tenemos un archivo de esta forma:

</text>
−
<terms>
<!-- Euskal Herriko -->
−
<term tid="t1" type="entity" lemma="Euskal_Herria" pos="R.IZE-LIB" case="GEL" netype="Tokia">
−
<span>
<target id="w1"/>
<target id="w2"/>
</span>
</term>
<!-- kostaldea -->
−
<term tid="t2" type="open" lemma="kostalde" pos="N.IZE-ARR" case="ABS">
−
<span>
<target id="w3"/>
</span> ...

Buenas tardes a todos, necesito ayuda con el siguiente ejercicio:

Teniendo presentes los 4 ficheros correspondientes a los 4 genes (‘ADH2’, ‘CEACAM4’, ‘TGM1’ y ‘GLDC’), escribir un programa que efectúe las siguientes operaciones:

• Permitir al usuario introducir el nombre de uno de los genes por teclado y abrir el fichero correspondiente.
• Extraer de dicho archivo las líneas correspondientes a los campos:
  ID y su valor
  GENE y su valor
  LOCUSLINK y su ...

Teniendo en cuenta los siguientes array

@nombres = ("hola","chau");
@edad = ("18,18");

¿ Cómo puedo juntarlos sin tener que abrir los dos y guardar los valores en un nuevo array usando push() ?

Hola, quería saber cuál es la orden que se debe dar para calcular una odds ratio a un programa Perl, es decir, tenemos un archivo en columnas y nos gustaría saber cuál es la función en Perl para poder hacer un script que nos informe de la odd ratio de dicho archivo en columnas.

Muchas gracias.

Bueno, tengo el siguiente código.

#!usr/bin/perl

use LWP::UserAgent;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");

getproxy();

sub getproxy {

my $code = toma("http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=1");

if($code=~/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig) {
my $porcion = $1;
chomp $porcion;
print $porcion;
if($porcion=~/<td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td>/sig) {
my($id,$ip,$port,$type,$pais,$fecha) = ($1,$2,$3,$4,$5,$6);
print "$ip:$port:$pais\n";
}}

}

sub toma {
return $nave->get( $_ )->content;
}

#The End ?


El problema está en la segunda expresión regular de la ...

Buenas tardes, un cordial saludo. Tengo una duda: no encuentro la función que me permita abrir un directorio de archivos para poder manejarlos globalmente. Actualmente lo manejo uno por uno así:

open( MIFICH, "/home/rocco/dir2/fi_sir_20120301_20120308.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "fi_sir_";

if ( $archivo =~ m/fi_sir_/ ) {

while (<MIFICH>) {

$cadena = "$_";

@cadena = split( /\|\s*/,, $cadena );
print "\n";
print $cadena;
}

}
else { ...

Hola,

¿Existe sentencia para saber cuál es la codificación de un archivo que estás leyendo? Cualquier tipo, cualquier extensión.

Gracias.