[Cascavel-pm] Res: Perl

[Ramon Mendes]

heheh... valeu mesmo cara.. vou tentar aqui.. 
Mas aqui estou com problema para poder declarar a matriz com o arquivo.. 
vou te mostrar o fonte de exemplo que estou tentando abrir o arquivo e está ocorrendo erro.

#!/usr/bin/perl

use warnings;
use strict;
open (arquivo, "<esportes.txt" ) or die "Nao consegui abrir esportes.txt";
@arqs=<arquivo>;
...

Ai da erro nesta linha, ele consegue abrir o arquivo porém no vetor ele da erro. o pode ser?



 
_________________
Ramon M. de Souza
soulhave em yahoo.com.br
Bacharelando em Sistemas de Informação

----- Mensagem original ----
De: Wendel Scardua <wendelscardua em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Sábado, 25 de Novembro de 2006 11:56:33
Assunto: Re: [Cascavel-pm] Perl


On 11/25/06, Ramon Mendes <soulhave em yahoo.com.br> wrote:
Bom dia a todos.
Gostaria de saber se alguem pode me ajudar
com um trabalho em PERL.. Estou precisando ler um arquivo.. 




Vai ser difícil, acho que o povo por aqui sabe mais de "Perl"... mas se esse tal "PERL" for parecido... :-)
 


usando argumentos como parametro blz.. 
da seguinte forma.. 

perl programa.pl parametro1 parametro2 parametro3







O script recebe os argumentos num array chamado @ARGV   (no caso, @ARGV é (parametro1, parametro2, parametro3);

Em Perl, existem 1000 maneiras de lidar com argumentos, invente uma! (ou isso era o Neston ? ah, sei lá)


Você pode escrever:
my $arquivo = $ARGV[0];
my $modo = $ARGV[1];


my $quantidade = $ARGV[2];

Também pode escrever:

my $arquivo = shift @ARGV;  # isso remove o primeiro elemento da lista, como uma fila
my $modo = shift @ARGV;

my $quantidade = shift @ARGV;

Mas, o meu favorito é esse:


my ($arquivo, $modo, $quantidade) = @ARGV;
# my ($fulano, $sicrano, $beltrano) = (4,8,15,16,23,42); faz com que $fulano = 4; $sicrano = 8; $beltrano = 15; 

# o resto vai pro limbo :-)

Ainda recomendaria que, antes de usar o conteúdo de @ARGV, verifique se ele tem mesmo 3 elementos; por exemplo:


if (@ARGV != 3) {
       print "Usuário lesado não passou parâmetros certos!\n";

       print "Uso: perl $0 arquivo modo quantidade\n";

       exit 1;
}

-- 
[]s
Wendel

"Não ajustar o auto-ajuste" - 
http://wendel.scardua.net/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm






		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20061125/813752f0/attachment-0001.html