Foro - Perl en Español

Hola

Cuando empecé con Perl ( hace más bien poco ) me pasaron una serie de preguntas, y fui incapaz de contestarlas todas.

Ahora lo he intentado y he contestado todo, pero no sé si estarán bien todas las respuestas. No soy un gran coder ni un experto en programación, así que si hay algo mal y lo podéis corregir/mejorar la explicación, os lo agradezco.

Además, me parece que estas respuestas contestadas aquí como recurso ...

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