Foro - Perl en Español

Hola nuevamente,

quería saber si es posible crear barras de progreso como se hace en C, por ejemplo:

yan@Lola:~$ perl test.pl 10
Inyectando archivos...
Archivos cargados : 9
Archivos inyectados : 5
Archivos fallidos : 2

La idea es que me cuente el progreso de la operación sin crear una nueva linea hacia abajo, sino que sobreescriba el mismo valor ya escrito, por ejemplo cuando usas el wget dice el porcentaje que se ha ...

En Perl Cookbook sale un ejemplo de cómo usar Term::ReadKey para saber qué tecla fue usada (leer el STDIN sin tener que esperar el "\n").

Yo sé que usando POSIX y sysread se puede hacer:

use POSIX;
use 5.10.0;

my $termios = new POSIX::Termios;
$termios->setcc( VTIME, 1 );
my $key;
sysread ( STDIN, $key, 1 );
say $key;
$termios->setcc( VTIME, 0 );

Si a este código se le pone las funciones de noecho y echo, ...

Bueno, todavía no sé mucho sobre Perl, pero cada día me está gustando más esto de Perl :D , y quería hacer algunos programitas sencillos que tuvieran GUI (repito, cosas muy sencillas, por ejemplo hacer una suma y cosas muy sencillas no quiero hacer un programa comercial ni mucho menos).

Y bueno, vi que aquí había un pequeño tutorial introductorio para Gtk2 en Perl, pero me ...

Problema: Tengo un fichero en formato GenBank que almacena 20 secuencias de ADN. A partir de ahí he de extraer la parte codificante (FEATURES-CDS). Supongo que tengo que utilizar las expresiones regulares pero es que no sé ni cómo empezar.

Saludos
Un día de estos me hice la pregunta ¿Existe un framework para Perl?

Así como lo hay para PHP, bueno, como nuevo en este lenguaje quisiera saber si alguien conoce alguno y que tal como le ha ido...
:?:

De antemano Muchas Gracias :D

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