Foro - Perl en Español

http://dev.perltuts.com/

Tutoriales.

Probar Perl en línea (dentro de una sandbox) Perl 5 ¡y Perl 6!

Libros recomendados.

Bueno, pues el reto (que más que reto es curiosidad) consiste en hacer un programa que muestre su propio código fuente.

NOTA: El código más corto gana.

Estimados, primero que todo felicitarlos por el foro, ya llevo algunas semanas siguiéndolos y la verdad soy nuevo en este mundo, pero gracias a ustedes pude aprender a cómo respaldar la configuración de equipos Cisco con el módulo Net::Telnet::Cisco.

Ahora mi problema es el siguiente: necesito buscar en los respaldos un argumento (por lo general éste da inicio al párrafo que deseo mostrar) y que me muestre en pantalla el párrafo completo en el cual ...

Saludos al foro. En esta ocasión acudo a ustedes para pedir un poco de ayuda en un tema que no logro solucionar :oops:

Tengo un formulario el cual hice en PHP, y ejecuta un Perl pasando los parámetros en una variable de la siguiente forma:

$comando = "./config.pl $parametros";
La ejecución del "config.pl" la hace perfectamente, los parámetros los leo en el documento Perl y los ...

Un cordial saludo.

Alguien que me pueda orientar sobre cómo desarrollar un servicio web en Perl, haciendo uso de Apache. Estuve indagando y lo más cercano que encontré a lo que quiero hacer es algo como esto:

use JSON;
use Data::Dumper;

$json = '{"nombre":"jero2528","ip":"200.1.223.58","interfaz":"GigabitEthernet1","serviceid":99998,"accion":"cancelar"}';

$text = decode_json($json);
print Dumper($text);


Básicamente quiero recibir como parámetro el JSON indicado anteriormente, pero no sé cómo hacer para guardar por ejemplo este .pl y que sea ...

¿Qué cliente para descargar torrents como Utorrent me recomiendan para Linux?

Hola. Tengo el siguiente código

use IO::Socket;

my $hostname = "localhost";
my $port = "6667";
my $nombre = "dsadsa";

if (
my $socket = new IO::Socket::INET(
PeerAddr => $hostname,
PeerPort => $port,
Proto => "tcp"
)
)
{

print $socket "NICK $nombre\r\n";
print $socket "USER $nombre 1 1 1 1\r\n";
print $socket "LIST\r\n";

print " Spammer Online\n\n";

while ( my $log = <$socket> ) {
print $log;
}

}

Lo que hago es poder ...

Tengo el siguiente código:

use Image::ExifTool;

my $imagen_target = "test.jpg";
my $datos_imagen = new Image::ExifTool;
my $informacion_imagen = $datos_imagen->ImageInfo($imagen_target);

$datos_imagen->SetNewValue("Keywords","Model", DelValue => 1);

$success = $datos_imagen->WriteInfo($imagen_target);

Estoy tratando de borrar la etiqueta Model pero el código no lo hace. ¿Qué estoy haciendo mal?

P.D.: quiero borrarlo entero, no solo el valor.

Buenos días,

Poseo un VPS propio con Cpanel (whm).

En el servidor tengo web de clientes que utilizan diferentes formas de enviar emails.
- Web en Perl usando sendmail sin autentificar.
- Web en PHP usando mail() sin autentificar.
- Web en PHP que utilizan la librería phpmailer con o sin autentificar.

Lo que quiero configurar es que ningún script pueda enviar correo si no es autenticado.

He estado investigando y no consigo solucionar este ...

Hola, tengo el siguiente código:

sub abrir_archivo {
if ($^O =~/Win32/ig) {
system('"'.$_.'"');
} else {
system("gedit ".$_);
}
}


El tema es que la función en Windows no abre bien porque cuando la ruta tiene espacios da error. Recuerdo que en este foro me habían ayudado y me dijeron que agregara " a la ruta. Lo hice pero sigue en lo mismo.

¿ Alguien me puede ayudar ? ¿ En Linux también ...