Foro - Perl en Español

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 chicos, tengo un problema con un cgi a la hora de controlar las sesiones.

Utilizo un archivo que llamo sesiones.cgi que crea la sesión y luego comprueba los niveles de administración del usuario autenticado. Ese archivo lo llamo desde otro cgi, el que pinta en el navegador el html.

Pues bien, resulta que me funciona en todos mis cgi menos en uno concretamente y soy incapaz de determinar el porqué.

#!/usr/bin/perl

require $ENV{'DOCUMENT_ROOT'}."/design/cgi-local/sesiones.cgi"; ...

Hola, ¿sabéis dónde puedo acceder a bases de datos de bases nitrogenadas de distintas especies o personas, etc? Simplemente quiero varios listados de secuencias completas de bases nitrogenadas.
Gracias.

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

Saludos a todos, soy nuevo en el foro, espero encontrar ayuda en ustedes...

Mi problema es el siguiente: estoy desarrollando una aplicación (en Perl, claro) que se conecta a servicios de DBus. Ya he hecho la llamada a varias funciones retornándome el valor correcto, pero hay una de ellas que no me devuelve un escalar, sino una lista, lo cual me ha dificultado mucho el trabajo, ya que no encuentro la forma de mostrar los ...

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.

Hola amigos, mi nombre es Guillermo y me estoy iniciando en el mundo de Perl.

Les comento que estoy escribiendo un script, el cual, recibiendo los datos de un formulario me permita crear cuentas de usuario en Linux.

Hasta la parte de recibir datos desde un formulario, todo va excelente. El problema es cuando el script se ejecuta desde el navegador: simplemente no se ejecuta el comando 'adduser'. Pero, si el script lo ejecuto desde ...

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