Foro - Perl en Español

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

Hola,

Necesito coger la dirección incorrecta del correo de "Delivery Status Notification (Failure)".

Para ello me he montado un script que se encarga de acceder a todos los correos con este asunto. El problema es al ejecutar el patrón de búsqueda en el interior del contenido del correo.

while ( my ( $html ) = getTextIMAP('Delivery Status Notification (Failure)') ) {

print "entro en primer while \n";
if ($html) {

while ( $html =~ ...

Hola. Estoy cargando la siguiente página: http://www.ipnow.org/plugins.php El tema es que cuando lo cargo en otro lenguaje (C#) no muestra la tabla; de hecho carga la página y queda ahí pero el navegador detecta el efecto JavaScript terminado y lo muestra completo. ¿Qué tendría que hacer para mostrarlo bien?

Hola, estaba formateando Ubuntu y resultó que cpan no está bien configurado porque intenté instalar color output de esta forma: "Color-Output" y me tira todas estas preguntas que respondí bien pero la última me pide un espejo:

Unless you are accessing the CPAN on your filesystem via a file: URL,
CPAN.pm needs to keep the source files it downloads somewhere. Please
supply a directory where the downloaded files are to be kept.

<keep_source_where>
Download target ...