Foro - Perl en Español

Tengo el siguiente código en Delphi :

function Check(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): string;
var
hInet: HINTERNET;
hHTTP: HINTERNET;
hReq: HINTERNET;
Buffer: array of AnsiChar;
i, BufferLen: Cardinal;
const
accept: packed array of LPWSTR = (PChar('*/*'), nil);
header: string = 'Content-Type: application/x-www-form-urlencoded';
begin
Result := '';

hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
try ...

Hola.

Estoy tratando de instalar el módulo Term::Screen sobre Perl 5.14.2 sobre Windows, pero me da error.

Cuando intento ejecutar el programa me dice:
Can't locate Term/Screen.pm in @INC (@INC contains: D:/Dwimperl/perl/site/lib D:
/Dwimperl/perl/vendor/lib D:/Dwimperl/perl/lib .) at menu.pl line 7.

El term::cap está instalado bien.

Me voy al cpan dependencias y le doy clic a un icono con forma de escarabajo y busco mi versión 5.14.2 y me sale fail.

¿ Eso que quiere decir ...

Hola.

Preguntaros si conocéis algún libro sobre wxperl.

Tengo una duda sobre las tuberías.

¿Yo puedo comunicar un programa C por medio de tuberías con Perl? ¿Esta comunicación sería igual de rápida que si se utilizara Inline::C?

Se puede utilizar las tuberías con C para aumentar la velocidad de proceso de Perl, es decir, que C calcule y los resultados los pase por una tubería a Perl.

Yo tengo un programa en C que escribe en un fichero.txt y luego Perl lee ese ...

Hola, tengo un problema con Apache debido al timeout de una función.

Me explico: tengo una consulta por Ajax que ejecuta una función hecha en Perl. El problema es que dependiendo de los filtros que se utilicen (más o menos filtros) para una búsqueda en una base de datos puede llegar el caso de que se me produzca un timeout con el consiguiente error.

¿Existe alguna manera de detectar ese timeout para mostrar una alerta ...

Hola,

Estoy intentando actualizar la versión 5.10.1 de Perl que trae CentOS 6.4 a la versión 5.14.4.

Una vez instalada la versión 5.14.4 he hecho:

# mv /usr/bin/perl /usr/bin/perl5101
# ln -s /usr/local/bin/perl /usr/bin/perl

de esta manera no pierdo la versión antigua. Lo único que tendría sería que instalar los módulos de CPAN, de nuevo.

Los módulos que tenía antes son GD,Image::GD::thumbnail,DBI y JSON.

He tenido problemas con GD pero forcé la instalación.

El problema ...

He estado tanteando Getopt::Long para darle un poco más de robustez a mis programas. Las posibilidades que ofrece para controlar los parámetros pasados al programa son exactamente lo que buscaba. He hecho este código para probarlo:


#!/usr/bin/perl

use v5.12;
use strict;
use warnings;
use MIME::Base64;
use Getopt::Long;

#Programa de codificación y decodificación en base64. De acuerdo con la información del módulo #MIME::Base64 codificaremos en múltiplos de 57 bytes: "This ensures that the base64 ...

¿Cómo declaro las variables $n1, $n2 y $resultado para que no me dé este error? Ahora, si le pongo my $n1; ya no me da error, pero my() es local. ¿Cómo la declaro global en este programa?

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
print "Introduce un primer numero:\n";
$n1 = <>;
print "Introduce un segundo numero:\n";
$n2 = <>;
$resultado=$n1+$n2;
print "El resultado es:$resultado\n";

Global symbol "$n1" requires explicit package name at sumanumero3 line ...

Un simple script en Perl para HTTP FingerPrinting o por lo menos lo intenta xDD.

El código :

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Coded By Doddy H

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"
);

print "\n-- == HTTP FingerPrinting 0.1 == --\n";

unless ( $ARGV ) {

print "\n Sintax : $0 <page> < -fast / -full >\n";

}
else {

print "\n Getting Data ...

El libro de M. Brown Perl sin errores muestra cómo utilizar este módulo para ver la interpretación que hace Perl de nuestro código al aplicar los órdenes de precedencia de los distintos operadores:
perl -MO=Deparse, -p -e '$a + $b * $c / $d % $e'
-e syntax OK
($a + ((($b * $c) / $d) % $e));
La documentación http://perldoc.perl.org/B/Deparse.html afirma, en efecto que:

When you use the -p option, the output also ...