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.

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

¡Qué tal, amigos!

Soy nuevo en el foro, así como también en el lenguaje Perl. Hace un momento leí las reglas que se deben de seguir para redactar una pregunta en el foro, por lo tanto espero que mi primer mensaje las cumpla al 100 %.

Requiero ejecutar una consulta cíclica por segundo a una aplicación Java mediante un cliente JMX. Sé que existen diversas aplicaciones que realizan estas funciones de una manera fenomenal (como ...

Hola.

Estoy intentando obtener datos de mensajes de error que vienen con la siguiente forma:

"Sat Jul 13 16:13 Encl 1 (8F45751042) A power supply module is either faulty or unpowered. Another failure will make the system inoperative. Rectify problem immediately"

De momento he hecho un split() para obtener todos los datos hasta el mensaje de texto que genera la alarma:

A power supply module is either faulty or unpowered. Another failure will make the ...

Buenos días.

Estoy acostumbrado a tratar con distintos scripts en Perl. La mayoría de ellos los utilizo para trasladar información de unas BBDD a otras según nos convenga, pero no soy ningún experto, y aquí la prueba de ello :lol: :lol: :

Hay otros casos en los que tengo que ejecutar pequeñas API de java, que devuelven datos de ...

Hola,

¿cómo se enviaría un directorio a un servidor externo por FTP? Actualmente envío fichero txt, CSV, y binarios... con el siguiente código:
#!/usr/local/bin/perl

use Class::Date qw(date now);
use File::Path ;
use DateTime;
use BSD::Resource;
use File::Copy;
use Net::FTP;

my $username = "web.com";
my $pwd = "¿Quien sabe?";

my $ftp = Net::FTP->new("xxx.xx.xxx.xxx", Debug => 0) or die("No s'ha pogut connectar el servidor: $!");
$ftp->login($username,$pwd) or die("Login incorrecte: $!");
#ACCIONS
$ftp->cwd("html/");
my @arxius = glob("/home/enric/csv/*.csv"); ...