Foro - Perl en Español

Quisiera vaciar datos de un array, trabajando en un while()

open FICHERO, "def.txt";
while($dd = <FICHERO>) {
chop($dd);
my @capturados = $dd =~ //g;
# hago operaciones con @capturados

# aquí quisiera vaciar el array @capturados para que no influya en la
# siguiente ronda de while()
}


Saludos a todos.

Buenas a todos, tengo el siguiente código:
my $soapcli = SOAP::Lite->service("https://192.x.x.x/servicio.php?wsdl");
El cuál, luego de ejecutar me genera el siguiente error:
Service description 'https://192.x.x.x/servicio.php?wsdl' can't be loaded: 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed)
Lo extraño es que sí tengo dicho módulo instalado:
# find / -name https.pm
/root/.cpan/build/libwww-perl-x.xxx/lib/LWP/Protocol/https.pm
/root/.cpan/build/URI-x.xx/blib/lib/URI/https.pm
/root/.cpan/build/URI-x.xx/URI/https.pm
/usr/lib/perlx/vendor_perl/5.x.x/LWP/Protocol/https.pm
/usr/lib/perlx/vendor_perl/5.x.x/URI/https.pm
/usr/lib/perlx/site_perl/5.x.x/URI/https.pm
Pienso que el método service de SOAP::Lite no permite solicitudes vía HTTPS, pero desearía ...

¡¡¡Hola!!!

Tengo el siguiente código

if ( $xml_res->{response}->{status} eq 'success' and $xml_res->{response}->{isAvailable} eq 'Y' ) {
my $arref = \@{ $xml_res->{response}->{ratesFound}->{rate} };
for ( my $i = 0 ; $i < @{$arref} ; $i++ ) {
if ( @{$arref}->{invSource} && @{$arref}->{roomTypeCode} && @{$arref}->{ratePlanCode} ) {
my %hash = (
invSource => @{$arref}->{invSource},
roomTypeCode => @{$arref}->{roomTypeCode},
ratePlanCode => @{$arref}->{ratePlanCode}
);

return %hash;
}
}
}


La línea marcada en rojo me devuelve el error "Not an ...

Buenas tardes.

Como proyecto tengo que hacer un CGI, en el que al pulsar sobre un enlace se despliegue una descripción del mismo. Pensaba hacerlo a través de un DIV oculto. Además, al lado del enlace sería recomendable que apareciera un botón que, al pincharlo, te llevara a la página relacionada.

Los datos que aparecerían en el CGI, estarían en una BBDD MySQL. Para ir trabajando, de forma local, me he instalado el paquete XAMPP. ...

Hola,

He leído acerca de las variables especiales $! y $@. En su tiempo me recomendaron que las usara en ciertas líneas, por ejemplo:

open FILE, <, 'fich.txt' ||die "$!"

Pero el resultado de poner la variable o no, es el mismo, no muestra nada por pantalla.
Para obtener el error tengo que hacer un
print $!;
Y en el caso de $@, ni siquiera así.
¿Para que se suele usar esta variable? ...

Quisiera encontrar una respuesta y sé que este es el lugar indicado para preguntar, (soy miniperl, ¡je,je! llevo poco).

Supongamos que tengo un @array1 con 10 archivos y otro @array2 100 archivos.

De los 10 en @array1 pueden o no estar en @array2 (resuelto)
Ejemplo:
@array1: abc.txt, dre.txt, edu.txt, xxx.txt
@array2: set.txt ere.txt abc.txt, dre.txt, yui.txt

Ya tengo el archivo a comparar si existe en los dos arrays (ejemplo: abc.txt y dre.txt)

Lo que necesito ...

¡Hola!

Tengo una variable que trae un valor decimal con dos decimales, por ejemplo $a = 15.00.

A esa variable la tengo que dividir por cierto valor, por ejemplo 3.

O sea $a = $a / 3. Y me queda $a = 5, sin los decimales. Yo quiero que me quede $a = 5.00.

O sea, que siempre tenga dos decimales, por más que el resultado sea entero.

¿Hay alguna forma de hacer esto?

¡¡¡Desde ...

Buen día a todos...

Lo que necesito saber es cómo podría hacer un script, para administrar unos bots que se deben ejecutar cada cierto tiempo.

Ej.

Que un bot que va a mi página a checar información se ejecute cada 2 horas.

Sé que lo podría hacer con un cron jobs pero, ¿hay forma de administrar esos jobs, si ya hay alguna solución, o que se puedan crear esos jobs por un administrador?

Lo ideal ...

Hola, les escribo para ver si me pueden ayudar con el siguiente problema:

Tengo un proceso de conciliación de suscriptores que corre sobre Perl en un servidor UNIX; el proceso consiste en leer un archivo .txt (de 1.000.000 de registros) que contiene toda la información a conciliar y compara con los registros que están en 2 tablas en la BD (cada una con alrededor de 14.000.000 de registros). Las tablas tienen los índices necesarios para ...

Hola soy nuevo aquí. Espero estén muy bien y me puedan ayudar, bueno al punto.

Tengo una función llamada &table_split(); dentro de un script llamado test1.pl

La función va así:

sub table_split
{
print "Esta squi-..\n";
my $receive_fptbl= $_;
if($receive_fptbl eq 1)
{
my $name_cws= $_;
open (SPFILE,"$name_cws");
$. = 0;
while (<SPFILE>)
{
chomp($str_spfile = $_);
print SPTTABLE "$str_spfile\n";
if($str_spfile =~ /^\s*\D+\s*\#\s*\w+\d+\s*/)
{
chomp($Tname=$str_spfile);
$Tname =~ s/\s*\D+\s*\#\s//;
push(@table,$Tname);
close(SPTTABLE);
$file_cws_tmp = "$Tname.cws.temp";
unlink("$file_cws_tmp"); ...