Foro - Perl en Español

Buenas tardes. Quisiera guardar un log. Vi por el foro el Log::Log4Perl pero no lo entiendo bien, lo que quiero hacer algo como esto.

my $dbt= DBI->connect('DBI:Pg:dbname=xxx;host=xxx.xxx.xxx.xxx','xxxx','xxxxxx')|| die "ERROR CONEXION : $DBI::errstr";

Pero además, ese error, aparte de aparecer en pantalla en caso de no conectarse, se guarde en un archivo txt, ¿me podrían decir qué función uso? Gracias.

Hola, buenas noches:

Necesito saber cómo puedo seleccionar información que empieza con dos signos de mayor y además que empiece con inst. ¿Cómo le puedo hacer en Perl?

Hola. He visto el tutorial de la página pero hay algo que no me queda claro:

open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);

¿@e.mail es una variable donde pongo la dirección?

Perdonar, pero soy algo novato con esto. Gracias.

No sé si lo pueda llamar así...
:? no quiero usar Moose ni DBIx-Class.

La idea es que hice un ORM sencillo en Perl, pero quiero que mi módulo genere desde mi modelo de la base de datos
Ej.:

package MyApp::Model::Cliente
use base "MyApp::Model";

@campos = qw(id nombre cedula);


Luego de procesos internos, Perl me genere automáticamente la estructura para que yo pueda obtener ...

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

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