<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:arial, helvetica, sans-serif;font-size:10pt">heheh... valeu mesmo cara.. vou tentar aqui.. <br>Mas aqui estou com problema para poder declarar a matriz com o arquivo.. <br>vou te mostrar o fonte de exemplo que estou tentando abrir o arquivo e está ocorrendo erro.<br><br><span style="font-weight: bold;">#!/usr/bin/perl<br><br>use warnings;<br>use strict;<br>open (arquivo, "<esportes.txt" ) or die "Nao consegui abrir esportes.txt";<br>@arqs=<arquivo>;<br>...<span style="font-weight: bold;"><span style="font-weight: bold;"><br><br></span></span></span>Ai da erro nesta linha, ele consegue abrir o arquivo porém no vetor ele da erro. o pode ser?<span style="font-weight: bold;"><span style="font-weight: bold;"><span style="font-weight: bold;"><br></span></span></span><br><br><br><div> </div>_________________<br>Ramon M. de
Souza<br>soulhave@yahoo.com.br<br>Bacharelando em Sistemas de Informação<div style="font-family: arial,helvetica,sans-serif; font-size: 10pt;"><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Wendel Scardua <wendelscardua@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Sábado, 25 de Novembro de 2006 11:56:33<br>Assunto: Re: [Cascavel-pm] Perl<br><br><br><div><span class="gmail_quote">On 11/25/06, <b class="gmail_sendername">Ramon Mendes</b> <<a rel="nofollow" target="_blank" href="mailto:soulhave@yahoo.com.br">soulhave@yahoo.com.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>Bom dia a todos.<br>Gostaria de saber se alguem pode me ajudar<br>com um trabalho em PERL.. Estou precisando ler um arquivo.. </div>
</div></div></blockquote><div><br>Vai ser difícil, acho que o povo por aqui sabe mais de "Perl"... mas se esse tal "PERL" for parecido... :-)<br> </div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>usando argumentos como parametro blz.. <br>da seguinte forma.. <br><br>perl programa.pl parametro1 parametro2 parametro3</div></div>
</div></blockquote><div><br></div></div><br>O script recebe os argumentos num array chamado @ARGV (no caso, @ARGV é (parametro1, parametro2, parametro3);<br><br>Em Perl, existem 1000 maneiras de lidar com argumentos, invente uma! (ou isso era o Neston ? ah, sei lá)
<br><br>Você pode escrever:<br><span style="font-family: courier new,monospace;">my $arquivo = $ARGV[0];</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">my $modo = $ARGV[1];
</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">my $quantidade = $ARGV[2];</span><br style="font-family: courier new,monospace;"><br>Também pode escrever:<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
my $arquivo = shift @ARGV; # isso remove o primeiro elemento da lista, como uma fila</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">my $modo = shift @ARGV;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">my $quantidade = shift @ARGV;</span><br><br>Mas, o meu favorito é esse:<br><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
my ($arquivo, $modo, $quantidade) = @ARGV;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"># my ($fulano, $sicrano, $beltrano) = (4,8,15,16,23,42); faz com que $fulano = 4; $sicrano = 8; $beltrano = 15;
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"># o resto vai pro limbo :-)</span><br><br>Ainda recomendaria que, antes de usar o conteúdo de @ARGV, verifique se ele tem mesmo 3 elementos; por exemplo:
<br><br><span style="font-family: courier new,monospace;">if (@ARGV != 3) {</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> print "Usuário lesado não passou parâmetros certos!\n";
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> print "Uso: perl $0 arquivo modo quantidade\n";</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> exit 1;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">}</span><br><br>-- <br>[]s<br>Wendel<br><br>"Não ajustar o auto-ajuste" -
<a rel="nofollow" target="_blank" href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>
<div>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></div></div><br></div></div><br>
<hr size=1>
Yahoo! Search<br>
Música para ver e ouvir: <a href="http://us.rd.yahoo.com/mail/br/tagline/search/video/*http://br.search.yahoo.com/search/video?p=james+blunt&ei=UTF-8&cv=g&x=wrt&vm=r&fr=intl-mail-br-b">You're Beautiful, do James Blunt</a></body></html>