Foro - Perl en Español

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

Hola.

Estoy empezando a utilizar Perl, PerlScript, comenzando con una migración de versiones de Perl de 5.005 a 5.16.3.

Tengo problemillas con el entorno de desarrollo al lanzar un simple asp.

La primera carga de la página la realiza correctamente, pero la segunda vez que recargo el mismo asp, peta con un mensaje tal que así:

PerlScript Error error '80004005'

Can't call method "ServerVariables" on an undefined value

SO Windows Server 2012 R2, IIS ...

Buenas a todos.

Les explico: Tengo un solr que me saca una URL que contiene unos datos en formato JSON.

He creado un script que entra en el json y me guarda los datos para crear un correo electrónico.

El script funciona cuando hay datos, pero hay veces que mi json no debe tener datos. Cuando sucede esto necesitaría pasar a la siguiente llamada pero me salta el siguiente error:

"malformed JSON string, neither tag, ...