Foro - Perl en Español

No sé si está permitido esta clase de cosas en este foro pero de todas formas me atreveré.

Pensaba si era mejor crear un script bash que me hiciera el trabajo de un RootKit para Linux pero veo que Perl es mejor lenguaje de scripting aunque necesitas que Perl esté instalado, pero la gran mayoría si lo tiene por defecto y aún no he terminado de aprender a programar en C como para crearlo en ...

Hola, un pregunta complicada:

¿Cómo puedo especificar qué dispositivo de red usar en Socket?

Como muchos saben, un computador puede tener más de un dispositivo de red activo y yo quiero usar uno en específico.

¿Se puede con Socket o tiene que ser con Net::Pcap?

#!/usr/bin/perl -w
use strict;

my $palabra = 'W$j@/E';
if ($palabra =~ /./) {
print "Si que tiene un punto";
}

Ese código me dice que mi palabra tiene un punto, pero mi palabra no tiene ningún punto, :shock: ... ¿dónde está el error? ¿Se puede solucionar?

Gracias de antemano.

Tratando de instalar módulos usando cpanp -i módulo veo que no pregunta nada ( mirrors ní cosas como esas ) así que pregunto... ¿Cómo se instala módulos y cómo se configura cpanp?

Gracias.



perl -MCPANPLUS::Configure::Setup -e 'CPANPLUS::Configure::Setup->init();'

You called 'CPANPLUS::Configure::Setup::term' on 'CPANPLUS::Configure::Setup' which was interpreted by Object::Accessor as an object call. Did you mean to include 'term' from somewhere else? at /System/Library/Perl/5.10.0/Object/Accessor.pm line 413
Object::Accessor::AUTOLOAD('CPANPLUS::Configure::Setup') called at /System/Library/Perl/5.10.0/CPANPLUS/Configure/Setup.pm line 87
CPANPLUS::Configure::Setup::init('CPANPLUS::Configure::Setup') called at ...

Bien, yo tengo un array con palabras

@palabras=("raton","perro","vaca","caballo","gato","aguila","salmon");

Con una expresión regular compruebo que la palabra NO tenga la letra a y si esto resulta verdadero elimina ese elemento del array. En este caso eliminaría la palabra "perro".

Estuve ojeando algunos tutoriales y solo encontré cómo quitar el último elemento del arreglo con pop, o quitar el primer elemento con shift y encontré algo de delete aquí: viewtopic.php?t=951.html pero ...

Hola soy nuevo en este foro y en Perl y quisiera saber si alguien me ayuda con mi pequeño problema: quiero instalar un módulo. Mi Perl está en Windows, el módulo es el de CGI-Ajax-0.701.

Leí un tutorial pero no sé. Al parecer no sé muy bien cómo llamar al archivo. Me quedo en esta parte:

Code: Seleccionar todo

PPM interactive shell (2.1.5) - type 'help' for available commands.
PPM> install MODULO

MODULO-->pongo la dirección donde está el ...

Salu2

Quisiera ir viendo los log según van creciendo a través de una página.

Probé a hacer un cgi como el siguiente código.

Tengo que ponerle a la propiedad tail un valor >= 50 porque si no no muestra nada.

En la consola funciona al 100% pero cuando lo visualizo por web me muestra las mismas líneas aunque lo actualice varias veces.

#!/usr/bin/perl -w

print "Content-Type: text/html\n\n";
print "visualizador de logs<br>";

use File::Tail;
use strict; ...

Buenas gente, necesitaría saber si hay alguna forma de modificar un archivo en Perl, por ejemplo cambiar unas palabras o unos caracteres y/o borrar caracteres.

Lo que necesitaría es solamente cambiar 2 valores de esta cadena de texto:

a:4:{i:0;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"1";s:4:"blog";s:1:"1";}i:1;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"6";s:4:"blog";s:1:"3";}i:2;a:3:{s:8:"cat_name";s:8:"General";s:2:"id";s:1:"8";s:4:"blog";s:1:"5";}i:3;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:2:"10";s:4:"blog";s:1:"7";}}

Necesito cambiar el 3º carácter (en este caso es 4), borrar el último carácter y luego agregarle información.

¿Hay alguno manera de trabajar con el archivos que contiene esto para modificar lo que necesito?.

Muchas gracias, ...

¿Alguien me podría recomendar como estructurar un desarrollo Perl?

¿En pm y luego ir llamándoles? ¿Con sus librerías de funciones? ¿estructuras, objetos?

Si alguien me podría explicar un poco cómo lo hace le agradecería para poder ver más claro cómo poder organizarme en Perl.

Gracias y un saludo.

Hola Amigos Perlianos:

Tengo un problema algo extraño al recibir datos en XML, después de hacer un request a un ASP con LWP::UserAgent. Este es parte de mi script:

sub get_basket {
my $ua = LWP::UserAgent->new();
my $xs = new XML::Simple();
$ua->timeout(10);
$ua->env_proxy;
my $req = $ua->request('http://217.154.224.111/travelink/ExternalFunctions/basketcontents.asp?dbname=Travelly-Test-21Nov07&SessionId=93');
if ($req->is_success) {
my $respuesta = $xs->XMLin($req->content);
print Dumper $respuesta;

}else{
print "<p>Server Error, please try later ...</p>";
exit;
}

} # fin de get_basket

Al ejecutar esta ...