Foro - Perl en Español

Estimados :D ,

Necesito ejecutar dos scripts que tengo hechos en Perl desde una página web. La idea es ejecutarlo desde una simple página web en donde se tenga que loguear un usuario previamente. Y que al hacer un click sobre el botón 1 se ejecute el determinado script_1 y lo mismo con el 2.
¿¿¿ Alguien ya lo ha realizado ??? ¿Tienen algún modelo de ...

Hola a todos,

Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!

Buen día... otro problema de novato....

En mi programa necesito que el usuario ingrese 6 caracteres para crear un directorio. Más adelante en el programa se genera un fichero y lo coloca en esa carpeta creada.

Esto es lo que tengo
print " \f \a Especifique Cliente ( 6 Caracteres ) : \ t"
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X ...

Hola a todos.

¿Existe algún método para averiguar si mi variable $var en realidad contiene un hash en su interior?
Algo como:

Code: Seleccionar todo

if hash($var)....

Muchas gracias
Felipe

¡¡Hola a todos!! He intentado conectarme mediante SSH a otro servidor por FTP pero no he podido. He copiado el ejemplo de CPAN, instalé el modulo pero nada.

#

!/usr/bin/perl

use Net::SSH::Perl;

$host= "laipdelserver";
$user="miusuario";
$pass="xxxxxx";
$cmd="ls -l";

my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);


El error que recibo ese el siguiente

Can't locate Math/Pari.pm in @INC (@INC contains: /usr/lib/perl5/5.8.7/i686-linux /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl ...

Hola a tod@s.
Esta es mi primera participación en el foro y quería preguntaros si alguien tiene ejemplos de código perl o alguna documentación para escribir scripts en este lenguaje a través del SecureCRT.

Muchas gracias.

Hola a todos, primero mis mas sentido pesames para familiares y amigos de nuestro Genio.

Necesito saber como trabjar con Hlist??

Tengo este codigo, corre perfecto, ahora no se come meter valores desde variables en las diferentes columnas y filas de este hlist, Me pueden ayudar..

Gracias................

use Tk;
use Tk::HList;
use Tk::Scrollbar;

sub icmd {
my ($path, $state) = @_;
print "path is '$path', state is '$state'\n";
}

my $mw = MainWindow->new;



$hlist = ...

Saludos lista,

se me plantea la necesidad de usar fetchmail+procmail y un script en PERL que extraiga los ficheros adjuntos de cada mensaje recibido y los guarde en una carpeta concreta. Luego el mensaje será descartado.

He visto que tal vez se haga con Mime::Explode pero no tengo claro por donde empezar porque la documentación que he encontrado no me aclaraba nada.

Si alguien fuese tan amable de orientarme un poco se lo agradecería muchísimo. ...

@nodos = (
{ id => 17, size => 300, keys => 2, cmp => 'keys' },
{ id => 14, size => 104, keys => 9, cmp => 'size' },
{ id => 31, size => 2045, keys => 43, cmp => 'keys' },
{ id => 28, size => 6, keys => 0, cmp => 'id' },
);

La idea es ordenar las tres listas según el valor de 'cmp' en cada una ...

¿Alguien me puede explicar cómo mostrar la fecha, estoy utilizando Perl/Tk?

:( Gracias..........