• Publicidad

Fecha actual 2025-01-16 05:05 @254

News News of Básico

Site map of Básico » Foro : Básico

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Pasar parámetros a un package

Hola a todos:

Resulta que hice una subrutina para hacer Paginación en reportes que estén algo grandes y me funciona bien, ya la probé en un reporte de 1500 registros y todo bien.

Ahora necesito hacer lo mismo para una pila de más o menos 100 reportes diferentes, por lo que hice un "package" con la dichosa subrutina y así poder llamarla desde todos mis reportes con mínimos cambios en ellos, pero ya le intenté ...
Read more : Pasar parámetros a un package | Vistas : 1260 | Respuestas : 7


Error. No encuentra el módulo (can't locate...)

Hola a todos.

Tengo un problema con unos módulos instalados vía PPM y a mano.

El caso es que no los localiza cuando compilo el script (utilizo un script de ejemplo del propio módulo cogido de CPAN).

He cargado a el path a mano a través de use lib porque éste no está en la variable por defecto @INC, pero aun así no logro que lo localice.

#!/usr/bin/perl
use lib '/opt/ActivePerl-5.12/site/lib/auto/Net';
use Net::Divert;
En ...
Read more : Error. No encuentra el módulo (can't locate...) | Vistas : 560 | Respuestas : 4


Codificar caracteres al momento de imprimirlos

Quisiera una orientación, les explico mi caso:

Tengo unos datos en una base Oracle.

Al momento de imprimirlos por pantalla algunos de estos datos vienen con parámetros raros (ej:锟斤拷一锟斤拷楼锟斤拷锟斤拷锟斤拷式锟斤拷锟). Si uno elige manualmente la opción de codificación en Chino Simplificado (GBK) en el navegador (FireFox) estos datos se muestran bien.

Ahora, me gustaría hacer una condición antes de imprimirlos que dijera que si vienen caracteres raros hacer una codificación a Chino Simplificado e imprimirlos.

¿Se ...
Read more : Codificar caracteres al momento de imprimirlos | Vistas : 498 | Respuestas : 2


Función me entrega hash y matriz alternadamente

Hola,

Tengo la siguiente función:

sub GetAddressesNotInMailList {
my $self = shift;
my $MailListID = shift; # mandatory

$self->{MSG} = "";
my $Addresses = undef;

unless( defined $MailListID ) {
$self->{MSG} = "Mandatory Input Arguments are not defined";
$self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
} else {
my $Members = undef;
$Members = $self->GetMembersOfMailList( $MailListID );
if( defined $Members ) {
my $num_res = keys %$Members;
$self->{MSG} = "Number of members of \"$MailListID\" mail list is $num_res";
$self->{LOG}->log("GetAddressesNotInMailList: ...
Read more : Función me entrega hash y matriz alternadamente | Vistas : 417 | Respuestas : 1


Porcentaje de descarga

Hola.

Ando queriendo saber cómo calcular el porcentaje de descarga de un archivo.
Pues tengo este 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);

if (download("http://127.0.0.1/bones.rar","bones.rar")) {
print " file downloaded\n";
}

sub download {
if ($nave->mirror($_,$_)) {
if (-f $_) {
return true;
}}}

Pero no sé cómo calcular la cantidad descargada del archivo poniendo el porcentaje de 1 al %100.

¿ Alguien me ...
Read more : Porcentaje de descarga | Vistas : 511 | Respuestas : 2


Empleo de ficheros .pm

Buenas tardes,

He creado una librería .pm que quiero emplear en un script .pl
Cuando ejecuto el script me aparece el siguiente error:

Can't locate loadable object for module infovista in @INC (@INC contains: /usr/local/ActivePerl-5.6/lib/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl .)

¿Qué debo hacer para poder utilizar la librería?
Saludos y gracias
Read more : Empleo de ficheros .pm | Vistas : 931 | Respuestas : 6


Contraseña inicio sesión IRC

Estoy intentando conectar un bot Perl al chat de justin.tv, pero necesito introducir la contraseña del usuario pero no sé cómo hacer que el bot se identifique.
:?

Tengo:
my $socket = IO::Socket::INET->new(
PeerAddr => "$servidor",
PeerPort => "$puerto",
Proto => 'tcp' ) || print("No hay conexión\.\n\cC");

He intentado poner Pass => "$key", pero no funciona.
El bot se conecta pero el servidor lo rechaza ...
Read more : Contraseña inicio sesión IRC | Vistas : 712 | Respuestas : 2


Retroceder línea al leer un archivo

Buenas tardes, necesito ayuda para resolver el siguiente problema:

Tengo un archivo con texto parecido al siguiente:

/XXXXXXXXXX/00:00/00:05
PCKT_RCVD/21039
BAD_HCHKSM/0
PCBS_FAIL/0
/YYYYYYYYYY/00:00/00:05
net0: IPKTS/22240
net0: IERRS/0
/ZZZZZZZZZZ/00:00/00:05
DISK_ALL/8391600
DISK_FREE/1524255

Tengo el siguiente código para que cuando se encuentre una línea que inicia con "/" y no cumpla con cierta condición todas las siguientes líneas sean ignoradas hasta encontrar una nueva línea que inicie con ese carácter y sea evaluada, y así sucesivamente. ¿Está correcto el ...
Read more : Retroceder línea al leer un archivo | Vistas : 1125 | Respuestas : 7


Código de respuesta

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

for (my $i = 0; $i < @urls; $i++) {

print $urls,"::::"," PROXY: ",$proxy,"\n";

my $ua = LWP::UserAgent->new;

$ua->proxy(, "http://$proxy");
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);


my $req = HTTP::Request->new(GET => $urls);
$req->content_type('application/x-www-form-urlencoded');
my $response = $ua->request($req);


$result = $response->code();


open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $result," ",$response->message( ...
Read more : Código de respuesta | Vistas : 1770 | Respuestas : 22


Tiempo máximo de ejecución

Hola, probando un script (tarda bastante en ejecutarse, unos 10-20 segundos) veo que de una deja de funcionar si cambio una serie de parámetros (trabajando con librería GD, al trabajar con una imagen cada vez mayor).

¿Sabéis si por norma general un hosting (en mi caso 100WebSpace) tiene un parámetro como el maximun_execution_time de php.ini donde si estás más de 10 segundos, te tire?

¿Alguna opción para cambiar este parámetro?

Un saludo.
Read more : Tiempo máximo de ejecución | Vistas : 862 | Respuestas : 5


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981