Foro - Perl en Español

«En este artículo vamos a comentar la manera de usar la versión v201109 del API de Google Adwords en Perl. En la exposición que sigue suponemos que ya contamos con una cuenta de Adwords, y que hemos creado ya alguna campaña que contiene algunos adgroups.»

Artículo

¿Qué tal?

Trato de mostrar la información de mi servidor en un cgi dinámico con HTTP_USER_AGENT. He guardado mi archivo Perl en cgi-bin/ y he dado los permisos de ejecución con chmod +x name.pl.

El código que tengo es este:

#!/usr/bin/perl -T
use strict;
use CGI qw/:standard/;
my $useragent = $ENV ('HTTP_USER_AGENT');
print header, start_html('User Agent Example');
if ( $useragent =~ /Firefox/ ) {
print p("Tu estas visitando el servidor con un navegador Firefox"); ...

En la PC tengo Windows 7 64 bits y me bajé de ActiveState el Perl respectivo.

Mi problema viene en lo siguiente:

Al abrir el PPM no se encuentra listado el módulo Tk y, aunque agregué otros repositorios tampoco me lo lista.

Por default viene instalado el Tkx (no lo he usado nunca) y, la verdad, es que no sé cuál sea más completo ¿Tk o Tkx?

Venía usando un manualito bastante completo de Tk ...

Fisher-Yates shuffle
sub shuffle {
use integer;

my $array = shift;
my $i;

for ($i = @$array; -$i; ) {
my $j = int rand ($i+1);
@$array = @$array;
}
}
my %card;
sub init_cards {
my $c = shift;

my @denom = ( 2 .. 9, qw/ t j q k a / );
my @suits = qw/ h d c s /;

my @dim = ( -width => CARDWIDTH, -height => CARDHEIGHT ); ...

¿Qué tal, gente? Estoy tratando de hacer un programa que conecte a los puertos y si no que me diga que no se conectó, pero tengo un problema cuando empiezo a ejecutar me tira este error:

Useless use of a variable in void context at sockPerl.pl line 16.

Acá esta el código:
#!/usr/bin/perl -w
use IO::Socket;
$port = 20;
for($port; $port<=100;$port++){
$con = IO::Socket::INET->new(
PeerAddr => 'www.brianstanley.com.ar',
PeerPort => $port,
Proto => 'tcp',
Timeout ...

Hola, buenas tardes, perleros,

Una consulta relacionada con acceso a Internet.

Resulta que hasta ahora podía acceder a descargarme archivos desde una máquina sin problemas, pero ahora necesito hacerlo utilizando el proxy, definiendo una variable de entorno: export http_proxy=cache.local:3128.

Lo he probado en el siguiente script para que me baje los ficheros gfs de la NOAA, pero no me chuta. También he utilizado --proxy cache.local:3128 dentro de my $host = 'http://nomads.ncep.noaa.gov'; pero no me descarga... ...

Buenas. Quiero insertar unos datos a una tabla. Encontré este código. ¿Qué significa "posthilit"?

$fastaEntry = $dbh -> prepare("<span class="posthilit">INSERT</span> <span class="posthilit">INTO</span> fasta VALUES (?,?,?,?)");

my $sth1 = $dbh->prepare($query1) or die ("Error prepare: $query1" );
$sth1->execute() or die ("Error prepare: $query1" );
$sth1->finish;

Lo tengo con este código pero no me funciona. Los datos están en las variables de los values.

my $dbh = DBI->connect('DBI:Pg:dbname=hcm;host=xxx.xxx.xxx','xxx','xxxxxxx')|| die "ERROR CONEXIÓN : $DBI::errstr";

$sth = $dbh->prepare("INSERT INTO ...

Buenos días a todos.

He escrito un programa de Perl que llama a un "one-liner" para llevar a cabo una operación (eliminar todas las lineas que empiecen por "@" de un fichero de texto de un tamaño muy grande, varios Gigabytes).
Pero me dá el siguiente error al llamar al "one-liner":

Use of uninitialized value in concatenation (.) or string at samcleanser.pl line 23.
syntax error at -e line 1, near "="
Execution of -e ...

Hola, perleros. Soy Paco y soy algo nuevo en esto de la programación en Perl. He andado vuelto loco en la red buscando una solución a este problema. Ojalá alguien me pudiera ayudar...

Yo utilizo una base de datos creada en localhost y tengo el siguiente código:

#!/usr/bin/perl

use DBI;
use DBD::mysql;

print "Ingresa el query: ";
$query = <STDIN>;
my $roux;
my $t = 0;
my $dbh = DBI->connect( 'DBI:mysql:Database;host=127.0.0.1', 'root', '' ) ...

Versión Tk de un programa para buscar proxies de forma online.

Una imagen



El código


#!usr/bin/perl
#Proxy Tester 0.5
#Version Tk
#Coded By Doddy H

use Cwd;
use Tk;
use Tk::FileSelect;
use Tk::Dialog;
use LWP::UserAgent;

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

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "green";
my $color_fondo = "black";

my $newd =
MainWindow->new( ...