Foro - Perl en Español

Buenos días a todos.

Una pregunta rápida y sencilla: a la hora de realizar una clase el nombre de la clase tiene que coincidir exactamente con el nombre del archivo, añadiendo a este la extensión .pm, ¿verdad?

Me solicitan si es posible (no lo saben seguro) que el nombre del paquete sea por ejemplo este:

package Intercambio;

y el nombre del archivo correspondiente sea "Intercambio.class.pm" para poder llamarlo y usarlo así:

use Intercambio.class; ...

Hola. Tengo el siguiente problema: hice un pequeño código para interpretar un pdf y pasarlo a un cvs. Todo me funciona perfecto pero, al recorrer la página buscando los datos y se topa con una 'ñ' se salta a la línea siguiente y no muestra la información de esa línea, ilustro con ejemplo:

Nombre Nota Sexo Direccion Ciudad

Juan Luis Castro 1929 Hombre Los Boldos Santiago
Rodrigo Flores 1834 Hombre Siena 12 Valparaiso
Miguel Yañez ...

Hola, amigos. Necesito un poquito de ayuda en este caso. Lo que hice es que tengo un menú (do) y tengo algunos comandos, y necesito que el usuario cuando ponga

fav_url http://perlenespanol.com/

que "http://perlenespanol.com" se agregue a una lista de mis web favoritas...

my $url = 0;
do {
my $fav = "add fav_url ";
printf("I-ExploiT !¡> ");
chomp( $opt = <> );
if ( $opt eq $fav ...

Mi problema pueden ser las variables de entorno que están inicializadas...(concretamente JAVA).

Tendría que inicializar en un script de Perl lo siguiente:

PERL5LIB=/home/unarutaxx/bibliotecas/perl;
JAVA_HOME=/usr/java5_64/jre

y agregar a la variable de entorno UNIX "PATH"=$JAVA_HOME/bin

El problema es que para el usuario que ejecuta no están inicializadas, esas variables...

Lo que quiero hacer es que cuando ejecute un proceso de Perl, inicialice esas variables para que no rompa el proceso...

Gracias de antemano...

#!/usr/bin/perl
print "Ingrese la cantidad de números en el conjunto:";
$n=<stdin>;
$i=0;
$x=1;
while($i<$n)
{
print "Ingrese el número $x:";
$x=$x+1;
$num=<stdin>;
$dat=$num;
$i=$i+1;
}

$i=0;
$sum=0;
while($i<$n)
{
$sum=$sum+$dat;
$i=$i+1;
}
$prom=$sum/$n;
print "El promedio es $prom\n"


$i=0;
$max=$dat;
$min=$dat;
while($i<$n)
{
if($max<$dat)
{
$max=$dat;
}
if($min>$dat)
{
$min=$dat;
}
$i=$i+1;
}
print "El número máximo es $max\n";
print "El número mínimo es $min\n";


$i=0;
while($i<$n)
{
$j=0;
$frec=0;
while($j<$n)
{
if($dat==$dat)
{
$frec=$frec+1; ...

¡Buenos días!

Soy nuevo en el foro. Mi nombre es Adrián.

Quería hacerles la siguiente pregunta:

Estoy intentando ejecutar un .pl pero al hacerlo me devuelve el siguiente error:

perl: symbol lookup error: /usr/lib64/perl5/site_perl/5.8.8//x86_64-linux-thread-multi/auto/Data/Dumper/Dumper.so: undefined symbol: Perl_Tstack_sp_ptr


¿Alguien sabe por qué puede ser?


Desde ya, ¡muchas gracias!

¡Saludos!

Hola a todos, ¡ya estoy aquí de nuevo tocando un poquito las narices!

Nada, la pregunta es muy simple, aunque no he hecho la prueba directamente, sé que con XML::Simple puedo usar XMLout para introducir unos valores en un archivo xml, pero... ¿y si lo que quiero es sacar esos datos, que tengo en una serie de variables escalares, en formato XML pero por la salida estándar? ¿Tengo necesariamente que insertar los datos en un ...

Tengo el siguiente código :


use LWP::UserAgent;

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

my $url = "http://www.portalhacker.net" . "/index.php?action=login2";

print $url;

my $user = "test";
my $pass = "test";

my $code = tomar( $url, { "user" => $user, "passwrd" => $pass, "cookielength" => "9000", "hash_passwrd" => "" } );

print $code;

if ( $code =~ /Hola <span>(.*?)<\/span>/ ) {
my $name = $1;
print "Bienvenido $name\n"; ...

Estimados, soy nuevo en esto de Perl... Así que no se molesten por las consulta si no es la adecuada... Tengo realizada una consulta a una tabla de una base en MySQL mediante la cual quiero mostrar ciertos datos de la tabla... Ojo: no todos los datos al ejecutar me muestran los siguientes errores.
temp1.cgi: Scalar value @dato better written as $dato at conexion.pl line 44.
[Mon Dec 3 10:25:03 ...

Hola, necesito expresiones regulares para filtrar los dominios con WWW y sin WWW de una página que imprime lo siguiente:

{"status":"Success", "resultsMethod":"database", "lastScrape":"2012-11-25 18:55:32", "domainCount":"56", "remoteAddress":"www.google.com", "remoteIpAddress":"74.125.224.177", "domainArray":[, , , , , , , , , , , , , , , , , , , , , , , ["google.com.tw", ...