Foro - Perl en Español

Quisiera saber si hay una posibilidad de bajar el peso de una imagen al subirlo, estilo Outlook que las baja el peso de las misma de forma automática :?

¡¡Ayuda!! Estoy tratando de trabajar con el módulo CiscoRouter::Accesslist; al momento de instalarlo todo está bien ¡y se instala por completo! pero cuando lo voy a comprobar ¡me sale un error..! ¡y no se a qué se debe! ¿alguien puede ayudarme??

Can't locate CiscoRouter/Acceslist.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /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 /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 ...

¡Hola a todos!

Quiero enviar una cadena de caracteres desde Perl a un script bash y he leído que basta hacer en Perl: system (fichero_bash $variable1 $variable2...), y que luego, en el script bash, se reciben las variables como $1, $2... Pero pruebo en el script bash y no me los recibe (por ej., si hago echo $1 no imprime nada).

¿Qué puedo hacer?

Hola, soy nuevo en el foro. Tengo un problema a resolver, lo que quiero es agregar al final de un archivo "un texto" que dependa de lo que "contenga cada archivo" del directorio; por ejemplo:

Si el archivo contiene este texto: (comb. lineal con variables)

Code: Seleccionar todo

7.21*x101 + 5.66*x102;

tenga que agregar al final este texto: (declaración de las variables)

Code: Seleccionar todo

bin x101, x102;

En cambio, si contiene este texto, (más grande)
7.21*x101 + 5.66*x102 + 5.83*x103 ...

Buenas foreros,
Estoy haciendo una pequeña interfaz gráfica para consola con whiptail la pregunta es la siguiente: ¿cómo hago desde Perl para capturar el password que ingreso en whiptail --passwordbox?


Muchas gracias

Buenas.
Lo primero, presentarme. Soy Aitor, un estudiante de Informática que por una asignatura he comenzado a estudiar Perl.

Mis conocimientos son mínimos y las dudas aparecen rápidamente.

Tras mucho buscar y no encontrar lo que buscaba, he decidido probar suerte en este foro.

Veréis, tengo que conseguir hacer en Perl, una nube de etiquetas, con las etiquetas que se cogen de un fichero xhtml, concretamente, el de menéame:

http://meneame.net/rss2.php ...

Creo que es un problema de sintaxis pero me estoy volviendo loco, el asunto consiste en que por cada valor de un for quiero definir un string diferente, de esta forma:
for ($i=0;$i<=10;$i++) {
my $string.$i = $array;
}
Al que pueda llamar cuando quiera como:

print $string1 o 2 o 3....;

Imprimiendo en pantalla el valor $array.

Pero no lo consigo de ninguna forma.

Buenas, ante todo muchas gracias y cómo no, comento, por una duda que tengo. Veréis, tengo un programilla: que tiene que coger datos de un archivo que le introducimos como parámetro ($ARGV).

Pues bien, esos parámetros se separan por tabulaciones y lo que quiero es coger el primer valor como clave para un hash y los valores 4 y 5 (3 y 4 empezando de 0) como valores de esa clave. Y después mostrarlos ordenando ...

¡¡¡Hola a todos!!!

Necesito ayuda. Soy nueva en todo esto de Perl y redes... ¡¡¡pero tengo que hacer una interfaz web que maneje un router Cisco!!! la cual dé permiso o niege a las IP que mande vía web ¡¡y no tengo idea de cómo mismo comenzar hacer el script!! alguna idea... ¡¡¡agradecería mucho su opinión!!!

¿Hay alguna forma de hacer esto más rápido y "limpio"?

sub Crypt {
my ( $kk, $text ) = @_;
my $i = 0;
my @return;
for ( $i; $i <= length($text); $i++ ) {
my $a = unpack( 'C', substr $text, $i, 1 );
my $b = unpack( 'C', substr $kk, $i, 1 );
push @return, ( pack( 'C', $a ^ $b ) );
}
return @return;
}

Es un encriptador OTP (One-time pad) ...