Foro - Perl en Español

Hola, antes que nada un saludo a todos, ya que soy nuevo en este mundo y he llegado hasta aquí googleando.

Llevo ya un tiempo programado en Perl, con lo que seguramente me convertiré en un asiduo a esta página.

Bueno, que me enrollo.

Tengo que conseguir un listado de atributos de un LDAP. El problema que me encuentro es que debo usar un certificado para acceder a el (a un LDAP con usuario/password ya ...

Hola Buenas Tardes:

Realicé un programa Perl para formatearlo por posiciones, pero la salida del archivo me deja blancos. Anexo programa:

while (my $linea = <>) {
chomp;
$Nombre = substr($_, 1, 255);
$SegNom = substr($_,256, 50);
$PriNom = substr($_,306, 50);
$Categor = substr($_,356, 20);
$SubCate = substr($_,376, 20);
$Pais = substr($_,396,100);
$FecNac = substr($_,496, 75);
$Otros = substr($_,571,430);
$Ast = ('*');
printf ("%255s%50s%50s%20s%20s%100s%75s%430s\n",
$Nombre, $SegNom, $PriNom, $Categor, $SubCate, $Pais,
$FecNac, $Otros, $Ast);
}

¡Hola a todos!

Tengo un problemita, ¡je,je,je,je,je!

Veamos el código:


my $sth = $dbh->prepare($statement);
$sth->execute();
my %hash;

print $statement;
while( my @data = $sth->fetchrow_array() ) {
push @{$hash{$data}}, @data;
}


Esto me hace que para cada key tener un array con todas la info de la BD. Lo que quiero hacer yo es lo siguiente.

Dado una Key que el contenido sea un array donde cada posición sea la info relativa a ...

Hola, me gustaría poder anexar un nuevo elemento a la siguiente estructura:

my %tributos = ( Tributo => );
# A la estructura anterior quisiera anexar el nuevo hash:

my %nuevo_elemento = { Id => ...

Estoy queriendo ver la página de HTML, y uso esta instrucción.

use URI::Url;

Cuando ejecuto el Perl me manda esto:

Can't locate URI/Url.pm in @INC (@INC contains:

Yo sé que está indicando que no está instalado, más he buscado muchas páginas, he instalado muchas cosas y no encuentro cómo instalarlo.

Me pueden decir dónde debo de buscar, en la página de CPAN, no hallo la respuesta.

Gracias

Hola amigos del foro. Quiero pedirles su ayuda con lo siguiente: tengo una carpeta con muchos archivos con extensión .dat a los que llamo así:
while($data=</home/lis/Escritorio/QS/2006_01/*.dat>){
y lo que quiero es crear un hash en donde la clave sea el nombre del archivo y su valor sea el número de posición pero que comience a partir del segundo archivo, me explico: si tengo los siguientes archivos

uno.dat
dos.dat
tres.dat
cuatro.dat
cinco.dat

el ...

Hola. Tengo un problema con el siguiente código al cual quiero sacar cierta parte del texto pero por el problema de espacios no me deja.

my $re = "testaraaa

aatestar";

chomp $re;

if($re=~/testar(.*)testar/) {
print $1;
} else {
print "no\n";
}


¿ Alguien me podría ayudar ?

Hola,

lo primero, gracias por este foro, seguro que ayuda a muchas personas.

Mi problema:

He empezado con Perl y no lo controlo. Tengo un fichero Kaf, algo así:

<text>
<wf wid="w1" sent="s1">Casa</wf>
<wf wid="w2" sent="s1">:</wf>
<wf wid="w3" sent="s2">una</wf>
<wf wid="w4" sent="s2">vivienda</wf>
<wf wid="w5" sent="s2">digna</wf>
<wf wid="w6" sent="s2">.</wf>
.
.
.

<terms>
<!-- Casa -->
<term tid="t1" type="open" lemma="casa" pos="N.IZE-ARR" case="ABS">
<span>
<target id="w1"/>
</span>
</term>
<!-- una -->
<term tid="t2" type="open" lemma="una" pos="G.ADJ-ARR" ...

Hola tengo un puntero a una lista de hash del siguiente tipo:

;

y una referencia a la misma,

1) ¿Cómo puedo acceder a tomar cada uno de los datos de cada hash ?

Gracias

Hola.

Tengo una imagen ASCII que me gustaría mostrar en pantalla; la imagen tiene caracteres como

h$($(4R$/*)400hhh6$+/+R00#R36

El problema es que Perl siempre me tira errores. He intentado usando qq() pero
siempre tira error. Mi duda es si no hay alguna forma de mostrar en pantalla ignorando
esos caracteres.