Re: [SP-pm] AJUDA em LOOPs

Tue, 11 Jun 2013 16:52:04 -0700 

Você pode fazer assim:

my @numeros = (1,2,3,4,5,6,7,8,9,10);

   my $key;

   foreach (@numeros) {
     if ( $_ == 5 )  {
        $key = $_;
        last;
     }
   }

   print "$key\n";

=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: [email protected]
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Responder a