Foro - Perl en Español

¡Hola de nuevo!

Tengo otro pedazito de código (se nota que estoy practicando a diario)
Os pego el código y lo que me devuelve:



y me devuelve:

Código: Seleccionar todo

niko@Beelzebub:~$ sudo ./primerperl.pl
Introduce el radio para poder calcularte la circunferencia
10
12
-5
0
Estos son las circunferencias buenas: 0
Estos son las circunferencias buenas: 0
Estos son las circunferencias buenas: 62.83032
Estos son las circunferencias buenas: 75.396384
estos son los valores que no me valen:  -5

Como veis sí que me detecta que el valor -5 es menor a 0 y por eso lo coloca en el array @malos, pero no entiendo por qué me pinta cuatro veces los valores que están en el array @buenos, ya que solo deberían estar los valores mayores de 0, y de los que he escrito, solo 2 son mayores de 0... ¿o quizás 0 también lo metería? pero aun siendo así, no me tendría que aparecer la cuarta vez...

¡Todo un misterio!

¡Gracias a todos por vuestra ayuda!

Ademas, me acabo de dar cuenta ahora, que debo de poner que sea <= 0, con lo que me coje 0 como valor malo también.

Pero, si no introduzco ningún valor nulo, no me hace el else del ultimo if y me dice lo de que no la he cagado con lo que no sé, si declarando if (@malos =="") estoy diciéndole que si cumple la condición de que el array está vacío, haga lo que viene después.

He intentado hacer algo como if (defined (@malos)); y me da error de sintaxis, así que tampoco sé.

¡Gracias de nuevo!

Recuerda que puedes reeditar tus propios mensajes, pulsando el botón de editar, que está a la derecha.

En cuanto a la comparación, no puedes comparar un array con una cadena de caracteres usando un operador de comparación numérico (¡vaya lío has armado!).

Un array, en contexto escalar, nos devuelve el número de elementos que contiene. Sabiendo eso, se puede escribir como:
que, por otra parte, se puede simplificar en
O así:

Hola.

¡Gracias!, pero me sigue funcionando mal, pongo lo que me indicas ya que tenía un guirigay horrible y me sigue pasando que me saca primero un 0 y luego los valores que son correctos correctamente pasados por $circunferencia.

Y además no me hace lo de la primera parte del if, me salta al else aunque no haya puestos valores malos.

Curioso, ¿verdad?

El problema está en la inicialización de los array:
Parece que les estás inicializando a vacío (ningún elemento), pero en realidad estás guardando un elemento en cada uno de ellos: una string vacío.

Lo siguiente lo demuestra: pintamos el número de elementos que tiene un array inicializado de esa manera:

Código: Seleccionar todo

explorer@joaquin:~> perl -le '@x = ""; print scalar @x'
1

Así que @x tiene un elemento: una cadena vacía.

La forma de inicializar los array es:
Esa es la razón por la que @buenos siempre tiene un valor 0 al principio: la cadena vacía se convierte en un 0 al pasar por la operación matemática del cálculo de la circunferencia (Perl convierte la cadena de caracteres en un número).

¡Gracias!

Intuía que sería algo de ese estilo, pero pensé que al darle "" le decía que cogiera undef, y entendía que undef era igual a 0, pero por lo que me dices al hacerlo así le digo que el string está vacío, pero hay string.

Oído cocina.

¡Gracias!

Hummm....

Pretendías decirle que el número de elementos de los array era 0...

Eso se puede expresar de esta manera:(demasiado obscuro)

o así

Me quedo con
ya que así los defino educadamente y los inicializo correctamente.

Naturalmente, tu puedes escoger la que quieras

Cuando quieres decir "obscuro", te refieres a :
¿"Método de programación extremadamente punky?"