Ok Pessoall Obrigada + uma vez:<br> <br> <br> Codigos que funcionaram:<br> <br> open (File, "$file");<br> while () { $x++; }<br> seek (File, 0, 0);<br> while (my $line = )<br> (...)<br> <br> <br> <pre><tt>my $file = 'arquivo.txt';<br>open(IN, $file) or die "Cannot read $file: $!\n";<br>my @content = <IN>;<br>close(IN);<br>my $lines = @content - 1;<br><br><br></tt><tt>perl -ne 'END{print$.}' arquivo <br><br>Esse ultimo achei pequeno porem nao consegui implementa-lo no meu script..<br>Mas o restante funcionou perfeito<br><br>Obrigada<br>:)<br><br><br></tt><tt><br>print "File $file has $lines lines\n";</tt></pre> <br><br><b><i>Thomas Britis <thomas@tcnet.com.br></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> open (File, "$file");<br>while (<File>) { $x++; }<br>seek (File, 0, 0);<br>while (my $line = <File>)<br>(...)<br><br>Patty Silva wrote:<br>> <br>> <br>> Ai.. esta +-
assim:<br>> <br>> open (File, *"*$file*"*) *or* die $!<br>> <br>> $count=system(*'*cat $file | wc<br>> -l*'*);<br>> <br>> // ESSE system imprime na tela.. e nao atrivbui a variavel..<br>> // Eu quero que conte antes de entrar no while<br>> <br>> *while* (*my* $line = <File>)<br>> {<br>> <br>> }<br>> <br>> <br>> <br>> oks?? Obrigada<br>> <br>> */Igor Sutton Lopes <igor.sutton @gmail.com="">/* escreveu:<br>> <br>> Patty Silva writes:<br>> <br>> Cadê seu código inicial?<br>> <br>> > Pessoal.. qual comando do perl substitui o cat (contar quantas linhas<br>> > possui no arquivo). Eu preciso contar a quantidade de linhas mas nao<br>> > pode ser contagem linha a linha.. pois preciso da quantidade antes da<br>> > contagem linha linha acabar.. por isso pensei no cat | wc -l<br>> ><br>> > Obrigada<br>> ><br>>
><br>> ><br>> ><br>> ><br>> ><br>> -------------------------------------------------------------------------------<br>> > Yahoo! Search Música para ver e ouvir: You're Beautiful, do James<br>> > Blunt<br>> > _______________________________________________ Cascavel-pm mailing<br>> > list Cascavel-pm@pm.org<br>> > http://mail.pm.org/mailman/listinfo/cascavel-pm<br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> Cascavel-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/cascavel-pm<br>> <br>> <br>> ------------------------------------------------------------------------<br>> Yahoo! Search<br>> Música para ver e ouvir: You're Beautiful, do James Blunt <br>> <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"> <br>> <br>> <br>> <br>> ------------------------------------------------------------------------<br>> <br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> Cascavel-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/cascavel-pm<br><br>-- <br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></http:></igor.sutton></File></File></File></blockquote><br><p> 
                <hr size=1>
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/">Registre seu aparelho agora!</a>