Foro - Perl en Español

¿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.

Buenas, tengo un problema porque los resultados no me salen en letras y números.

#!/usr/bin/perl -w

use Net::FTP;

$ftp = Net::FTP->new( "xxx.xxx.xxx.xxx", Debug => 0 )
or die "Cannot connect to some.host.name: $@";

$ftp->login( "xxxxxx", 'xxxxxx' )
or die "Cannot login ", $ftp->message;

$ftp->get( "sapfi_rechazo_01032011_HCM_1724.txt.Z", "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" )
or die "get failed ", $ftp->message;
print "successful\n";

$ftp->quit;

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

my $archivo = "sapfi_rechazo_";

if ( ...