Foro - Perl en Español

¡Hola! Soy nueva con el uso del Perl y la programación en general y estoy tratando de hacer un oneliner para realizar la edición de la primera línea de un archivo FASTA (fastaheader) del Genebank, y básicamente lo he hecho a base de la expresión regular:

perl -pe 'if(/^>/){ s/gi\|//; s/\|.*\| / /;s/bv.//; s/strain//;s/gene,//;s/partial//;s/cds//;s/.//g;s/-//g;s/ / /g;s/ / /g;s/ / /g;s/ /_/g} s/^\n$//' archivo.fasta | grep '>'

Con el grep() voy viendo cómo va quedando y ...

Hola,
tengo 2 aplicaciones. Una se ejecuta inicialmente desde un main.cgi
y la otra se ejecuta inicialmente desde nombre.perl.
Uno tiene extensión cgi y otro extensión perl.
Mi pregunta es, como se puede hacer la llamada en código desde el archivo nombre.perl a main.cgi para que si se accede a nombre.perl se direccione a main.cgi a ejecutarse primero?

es decir, lo que quiero hacer es que si ejecuto nombre.perl se redireccione a main.cgi para utilizar ...

La tarea que tengo que hacer es un pequeño bot que registra unos datos en un formulario, pero éste tiene un select con categorías que, cuando le doy clic me despliega el formulario según la categoría...

No he podido pasar de ahí. Otro problema que tengo es cuando el botón es una imagen y retorna es una función de JavaScript. He buscando un módulo y encontré WWW::Mechanize::Plugin::Ajax pero no logro usarlo.

Cuando uso
$mech->use_plugin('Ajax');
obtengo ...

Buenas, tengo el siguiente problema, cuando introduzco datos por medio del teclado usando stdin y me equivoco quiero borrar el carácter o caracteres en que me equivoqué, pero en lugar de eso se introduce el carácter de borrado. ¿Cómo puedo solucionar esto?

Gracias.

¿Qué tal? Necesito entrar a un router Cisco 1841 vía telnet u otra para habilitar y deshabilitar interfaces.

Bueno, solo quiero hacer un simple listener en Perl. Debe ejecutarse siempre sobre algún puerto, escuchando si le llega alguna petición de un webservice que está enviando a cada N segundos información...

Yo lo hice en Visual Basic fácilmente pero no me agrado la solución, :?

Quiero hacer que mi script de copia de seguridad sea capaz de respaldar la copia también enviándola vía mail, enviando por ejemplo, 10 mails de 20mb a Gmail si el archivo es de 200mb.

¿Es posible? ¿Qué necesito?

Por ultimo, digamos que quisiera recuperar esos 10 mails. Podria crear una funcion que se conectara y buscara mails con ciertos codigos en los titulos, los descargara y volviera a unir?

Soy nuevo en Perl. No sé usar cpan::usb y quisiera poder enviar un byte por USB para que al recibirlo un PIC (18f4550) encienda un led conectado a un puerto de salida. Con Java ya lo conseguí, pero lo quiero hacer con Perl para después con PHP intentarlo por web.

Desearía me orientasen cómo usar cpan::usb para conseguirlo.

Gracias

Hola, tengo un archivo con:
EventContext ABS Sales Order Screen Homepage View
SQL Statement Prepare Time for SQL Cursor with ID D118080: 0.001 seconds
SQL Statement Execute Time for SQL Cursor with ID D118080: 0.004 seconds
SQL Statement Initial Fetch Time for SQL Cursor with ID D118080: 0.001 seconds
EventContext ABS Sales Order List View
SQL Statement Prepare Time for SQL Cursor with ID 101AD370: 0.001 seconds
SQL Statement Execute Time for SQL Cursor with ...

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);
open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

my $l = @urls;

my $forker = Parallel::ForkManager->new(20);

for (my $i = 0; $i < @proxy; $i++) {

$forker->start and next;


print $urls,"
"," PROXY: ",$proxy,"

";

$ua = new LWP::UserAgent();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$resp = $ua->request(GET "$urls");




open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ...