Foro - Perl en Español

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( ...

Hola, gente perlera, soy nuevo por acá y me gustaría pedir su ayuda.

Para dentro de dos horas tengo que entregar un programa que calcule la reversa complementaria de una cadena de ADN usando la función substr().

Sé que parece algo muy fácil, pero no sé cómo hacerlo, por eso la coloqué en la sección de nivel básico.

Por favor, ayúdenme lo más antes posible.

Gracias... :)

Hola a todos, tengo un problema.

Tengo en mi servidor varios archivos ".dat" que puedo abrir y leer, pero cuando intento abrir el fichero para poder escribir, me dice que no lo puede abrir.

Tengo todo alojado en ARSYS y me comentan que no puedo escribir ficheros, estoy intentando escribir en el fichero los datos de los clientes que se den de alta a través de la web.

Si no lo puedo hacer escribiendo directamente, ...