¡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:
#!/usr/bin/perl
print "Introduce el radio para poder calcularte la circunferencia\n";
chomp (my @radio = <STDIN>);
my $pi = "3.141516";
@malos = "";
@buenos = "";
foreach $radio(sort @radio)
{
if ($radio < 0)
{
push @malos,$radio;
}
else
{
push @buenos,$radio;
}
}
foreach $buenos(sort @buenos) {
my $circunferencia = $buenos ...