Foro - Perl en Español

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

Hola. Tengo el siguiente código:

#!usr/bin/perl
#https://developer.shodan.io/api
#http://www.eekboek.nl/dl/ppms/Crypt-SSLeay.ppd
#http://www.bribes.org/perl/ppm/JSON.ppd

use LWP::UserAgent;

my $nave = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my $api_key = "test";

my $code = toma("https://api.shodan.io/shodan/host/5.135.178.142?key=".$api_key);
print $code;


sub toma {
return $nave->get( $_ )->content;
}

El gran tema es cómo leer esto con json porque no encuentro información sobre cómo leer los datos que me devuelve que ...

Hola. Tengo todo este texto:

<div class="division_requisitos" align="left">
<p><font face="Arial, Helvetica, sans-serif" size="2" color="#FFCC00"><strong>Desarrollador</strong>: <a href="http://www.valvesoftware.com/" target="_blank">Valve Software</a><strong> /
</strong><a href="http://www.es.ea.com/" target="_blank">Electronic Arts</a><a href="http://www.es.ubi.com" target="_blank"></a><strong> <br>
Distribuidor</strong>: <a href="http://www.es.ea.com/" target="_blank">Electronic Arts</a><a href="http://www.es.ubi.com" target="_blank"></a><br>
<strong>Adese</strong>/<strong>Pegi</strong>: <a href="http://www.pegi.info" target="_blank">18+</a><br>
<strong>Tipo</strong>: Acción / Terror<br>
<strong>Multijugador:</strong> Sí (entre otros, cooperativo 4 jugadores)<br>
<strong>Idioma Subtítulos</strong>: Castellano
<strong>Diálogos</strong>: Castellano <br>
<strong>Formato</strong>: 1 DVD <br>
<strong>Precio Salida: </strong>49.95€<br>
<strong>Web Oficial: </strong></font><a href="http://www.l4d.com" target="_blank" class="Estilo1">www.l4d.com</a></p>
<p><font face="Arial, Helvetica, sans-serif" size="2" color="#FFCC00"><strong>Relacionados: </strong></font><a href="left_4_dead.html" ...