Foro - Perl en Español

#!/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 ...

Hola a todos,

Mi duda es muy sencilla pero no consigo encontrar información sobre ello.

Tengo un pipe en Linux en el que el fichero de salida del primer programa es el fichero de entrada del segundo programa y necesito conocer el nombre de ése fichero en el segundo programa para añadirle unas cosas. La cuestión es que el nombre de ése archivo es variable y lo crea el primer programa, entonces no lo conozco. ...

¡Hola a todos!

He creado un módulo para una aplicación webmin y no sé cómo instalarla sin que tenga que modificar código de ficheros de configuración del webmin.

Aparte de borrar un fichero llamado "module.infos.cache" que se debe hacer a pelo en la instalación, ¿debo ejecutar algún script del webmin para que me instale mi nuevo módulo?

Un saludo y gracias por vuestro tiempo.