Foro - Perl en Español

Hola, veréis...estoy aprendiendo Perl, y en el curso que estoy leyendo, plantean un ejercicio en el que se le debe pedir al usuario un radio y el programa debe calcular el área del círculo. Pero hay una parte que pone...

Compruebe el comportamiento de su programa contra entradas
Valores normales: 1, 4.5, -3.2
Diferentes formatos de flotante: 1e2, 1.0e-1, etc.
Cero
Negativas
Cadenas de caracteres: la cadena vacía, cadenas de caracteres que contienen números, p. ...

¡Hola!
Por una parte tengo un fichero con líneas tal que así:
1999akestaesmicadenaak1212990as
Quiero guardar en una variable lo que esté entre ak y ak.

El problema que tengo es que todo lo que haya por delante y por detrás es variable, pueden ser números, letras, caracteres, de 1 a n veces.

Quiero hacerlo con una expresión regular, sin usar split(), substr(), unpack() o similares.

¿Me podéis echar un cable?

No sé cómo decirle a ...

# Como reemplazo esta string

$str = '34% es el total, y 4%<img alt="" src="Presentaci%C3%B3n_de_un_caf%C3%A9.jpg"><br>blabla de 10%';

# Quiero que el código anterior me quede algo así:
# 34% es el total, y 4%<img alt="" src="Presentaci@C3@B3n_de_un_caf@[email protected]"><br>blabla de 10%

# solo quisiera modificar el "%" por "@", pero solo dentro de las etiquetas "<img >" lo demás que lo deje intacto

# Saludos.

Hola saludos de ante mano.
¿Qué módulo o cómo hago url encode y decode, o cuál es el más recomendable para trabajar en estos casos?

Url encodig de una string

$str = 'La_ni%C3%B1a_es_una_inspiraci%C3%B3n';

¿Cómo hago para que me devuelva esta string?

La_niña_es_una_inspiración

Lo propio en MAYÚSCULAS:

LA_NI%C3%91A_ES_UNA_INSPIRACI%C3%93N
LA_NIÑA_ES_UNA_INSPIRACIÓN

Por ejemplo esta otra string:

URL Encode 'K%C3%B6nigsberg'
URL DECODE 'Königsberg'

Muchas gracias y Saludos desde ya.

Solucionado Muchas gracias. :D :D :D

Quisiera vaciar datos de un array, trabajando en un while()

open FICHERO, "def.txt";
while($dd = <FICHERO>) {
chop($dd);
my @capturados = $dd =~ //g;
# hago operaciones con @capturados

# aquí quisiera vaciar el array @capturados para que no influya en la
# siguiente ronda de while()
}


Saludos a todos.

¡¡¡Hola!!!

Tengo el siguiente código

if ( $xml_res->{response}->{status} eq 'success' and $xml_res->{response}->{isAvailable} eq 'Y' ) {
my $arref = \@{ $xml_res->{response}->{ratesFound}->{rate} };
for ( my $i = 0 ; $i < @{$arref} ; $i++ ) {
if ( @{$arref}->{invSource} && @{$arref}->{roomTypeCode} && @{$arref}->{ratePlanCode} ) {
my %hash = (
invSource => @{$arref}->{invSource},
roomTypeCode => @{$arref}->{roomTypeCode},
ratePlanCode => @{$arref}->{ratePlanCode}
);

return %hash;
}
}
}


La línea marcada en rojo me devuelve el error "Not an ...

Hola,

He leído acerca de las variables especiales $! y $@. En su tiempo me recomendaron que las usara en ciertas líneas, por ejemplo:

open FILE, <, 'fich.txt' ||die "$!"

Pero el resultado de poner la variable o no, es el mismo, no muestra nada por pantalla.
Para obtener el error tengo que hacer un
print $!;
Y en el caso de $@, ni siquiera así.
¿Para que se suele usar esta variable? ...

¡Hola!

Tengo una variable que trae un valor decimal con dos decimales, por ejemplo $a = 15.00.

A esa variable la tengo que dividir por cierto valor, por ejemplo 3.

O sea $a = $a / 3. Y me queda $a = 5, sin los decimales. Yo quiero que me quede $a = 5.00.

O sea, que siempre tenga dos decimales, por más que el resultado sea entero.

¿Hay alguna forma de hacer esto?

¡¡¡Desde ...

Hola a todos,

Necesito usar Perl o CGI para enviarle instrucciones a un programa externo que se ejecuta desde la línea de comandos. No tengo ni idea de cómo enfocar el tema, por eso no puedo poner ningún script de ejemplo. La idea es recoger de una página web varios parámetros (bien desde formularios, bien desde una línea de input de texto) y con esto componer la instrucción para enviar al otro programa y que ...