Foro - Perl en Español

¿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, ...

Hola, estoy elaborando un programa que me separe una lista de bases nitrogenadas en codones (tríos de bases). Para ello he elaborado este código. El problema está en que el archivo 20 tiene todo lo que tienen los archivos anteriores más lo que le correspondería por sí mismo. ¿Cómo lo soluciono?

$contador = 0;
@codon = ();
while ( $contador < 20 ) {
$contador += 1;
$espermatozoide = "espermatozoide$contador.txt";
open( FH, "$espermatozoide" ) ...

Buen día.

Estoy trabajando con Perl y Apache en el siguiente escenario:

servidor---------firewall--------cliente

Quiero analizar el tráfico del puerto 80 de mi equipo cliente con un cgi Perl. El objetivo es que este equipo cliente ejecute el script y le muestre información sobre los servidores, a los cuales realiza peticiones. Si el equipo cliente identifica alguna vulnerabilidad avisa al firewall; en este caso usaré iptables para que cierre tráfico con ese servidor.

He investigado un ...