Foro - Perl en Español

Buenos días, compañeros, me presento nuevamente a este foro, debido a que presento un problema algo enredado del cual no he podido crear una solución, les trataré de explicar.

Tengo X cantidad de archivos CSV los cuales contienen 11 columnas de información, pero algunas columnas vienen algo así:
dato1,dato2,"dato3, dato extra que va siempre dentro del dato "3" algunas veces dentro del datoX vienen comas o bien comillas o saltos de línea ",dato4,etc.,etc.
O ...

De nuevo estoy con problemas con Ubuntu. Por eso quería preguntar si alguien sabia dónde conseguir los controladores para una ATI Radeon HD 5450 porque Ubuntu no me detecta la placa de vídeo y no puedo usar ningún efecto visual.

Hola, perleros.

Estoy tratando de establecer una conexión a través de un socket y sólo me funciona con localhost. Al tratar de usar la IP para conectarme a otro ordenador, no funciona...

# en el servidor
my $socket1 = new IO::Socket::INET(
LocalHost => $ip,
LocalPort => '139',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);
# en el cliente
my $socket2 = IO::Socket::INET->new(Proto => "tcp",PeerAddr => $ip, PeerPort => "139");

Según estaba leyendo, ...

Hola. Quería preguntar si hay alguna forma de cargar un comando silencioso en Linux. En Windows me acuerdo que podía. Con silencioso me refiero a que se ejecute pero que no muestre nada; en Windows lo hacía con algo así:
sub ejecutate {

my $job = Win32::Job->new;
$job->spawn(
"cmd",
qq{cmd /C $_},
{
no_window => "true",
stdout => "logx.txt",
stderr => "logx.txt"
}
);

$ok = $job->run("30");

¿ Cómo se podría hacer algo así ...

Hola, estoy tratando de hacer un script que carga cierto programa como tcpdump y la idea es que el programa pueda capturar los resultados que manda tcpdump. Lo difícil o el problema es que normalmente he hecho esto con programas que terminan al momento, al contrario de tcpdump al que no se corta hasta que cargamos control + C.

¿ Alguien tiene idea de cómo capturar la respuesta del comando al momento ?

Hola, estaba probando este código que sirve como sniffer que es muy viejo.
#!/usr/bin/perl

$LIMIT = shift || 5000;

$|=1;
open (STDIN,"/usr/sbin/tcpdump -lnx -s 1024 dst port 80 |");
while (<>) {
if (/^\S/) {
last unless $LIMIT--;
while ($packet=~/(GET|POST|WWW-Authenticate|Authorization).+/g) {
print "$client -> $host\t$&\n";
}
undef $client; undef $host; undef $packet;
($client,$host) = /(\d+\.\d+\.\d+\.\d+).+ > (\d+\.\d+\.\d+\.\d+)/
if /P \d+:\d+\((\d+)\)/ && $1 > 0;
}
next unless $client && $host;
s/\s+//;
s/({2})\s?/chr(hex($1))/eg;
tr/\x1F-\x7E\r\n//cd;
$packet ...

Buenos días,

Necesito editar un texto de tal forma que elimine toda cadena de caracteres que aparezca entre corchetes, a excepción de ciertas cadenas. Por ejemplo, imaginemos el siguiente texto:

Hola, a manejar perl, y tengo muchos conocimientos

Imaginemos que quiero obtener este mismo texto pero sin las frases que aparezcan entre corchetes, salvo que esas frases incluyan las palabras "no" o "el". Es decir, debería obtener ...

Hola. Estoy estrenando mi Ubuntu recién instalado y no sé cómo configurar el teclado porque la parte donde están los números a la derecha no anda nada ni los signos ni los números de la derecha.

¿ Alguien me puede explicar cómo los uso ?

Tengo este error cuando trato de cargar lampp

/opt/lampp/lampp: 4: Syntax error: "(" unexpected

Me puse leer el código de lampp y el error esta cuando empiezan estas líneas

function testport() {
if netstat -an | egrep ":$1 .*LISTEN" > /dev/null
then
return 0
else
return 1
fi
}

Probé usando otras versiones de lampp y siempre marcan la línea donde empieza esta función.

¿ Alguien me puede decir qué pasa ?

Estoy queriendo generar un archivo PDF, pero que se genere en memoria y se abra al usuario desde allí, sin necesidad de guardarlo a disco y luego abrirlo desde disco. ¿Cómo se haría, qué me está faltando? Se me abre una ventana de archivo PDF, pero en blanco, vacío.

use PDF::API2;

# Create a blank PDF file
my $pdf = PDF::API2->new( \*STDOUT );

print "Content-type: application/pdf\n\n";
print "\n";

# Add a blank page
my ...