Foro - Perl en Español

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

Alguien me podria explicar como untilizar este paquete o alguna forma de mostrar los datos de una consulta en un Grid o algo paresido...
:P
Gracias...

Estimados Perleros :

Sé que por allí hay un tutorial de cómo utilizar módulos de Perl, sin instalarlos... pero hoy me encuentro con un pequeño problema. Tengo un cliente que en su hosting no le quieren instalar un módulo, para ser específicos, Apache::Session::MySQL.
Mis preguntas :

1. ¿ Es posible instalarlo dentro de otra carpeta (a la que tengamos acceso) dentro del servidor web ?
2. ¿ Cómo lo instalo ? ¿Sólo se copia la ...