<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
o erro esta quando ele diz que meu arquivo tem 0 linhas, e logico ele gera um arquivo dci em branco<BR>
&nbsp;<BR>
esse codigo que voce me passou seria ja o codigo como um&nbsp;todo ou teria mais alguma declaração faltando da minha parte?<BR>
&nbsp;<BR>
obrigado desde ja,<BR>
&nbsp;<BR>
open my $file, q{&lt; c:/perl/discoverEdit[1].4796.11.30.5.8.2009.dci, 'foo.txt'} || die $!;<BR>my @palavras = &lt;$file&gt;;<BR>print "O seu arquivo tem: " .scalar(@palavras) . " linhas\n";<BR>print "Qual linha você deseja pesquisar?\n";<BR>chomp (my $var = &lt;STDIN&gt;);<BR>if ($var &lt; scalar(@palavras)) {<BR>&nbsp;&nbsp;&nbsp; print $palavras[$var];<BR>}<BR><BR>
open(OUTFILE, "&gt; c:/perl/report.dci") or die "Can't open output file";<BR>chomp @read;&nbsp;<BR><BR>&nbsp;<BR>
<HR id=stopSpelling>
Date: Thu, 28 May 2009 14:48:18 -0300<BR>From: daniel.oliveira.mantovani@gmail.com<BR>To: saopaulo-pm@mail.pm.org<BR>Subject: Re: [SP-pm] [Fwd: duvidas] -<BR><BR><BR>Se você colar a mensagem de erro aqui vai ser fácil arrumar, se você colar o código aqui vai ser mais fácil ainda :)<BR><BR><BR>[]s<BR><BR>
<DIV class=EC_gmail_quote>2009/5/28 Erick Herédia <SPAN dir=ltr>&lt;<A href="mailto:andjusticeforall4@msn.com">andjusticeforall4@msn.com</A>&gt;</SPAN><BR>
<BLOCKQUOTE class=EC_gmail_quote style="PADDING-LEFT: 1ex">
<DIV><BR>&nbsp;eu utilizei a busca *literal* de linhas do meu arquivo, porem ele diz que tem 0 linhas<BR>&nbsp;<BR>eis o codigo que tu me passou, eu coloquei o meu arquivo<BR>&nbsp;<BR><BR>open my $file, q{&lt; c:/perl/discoverEdit[1].4796.11.30.5.8.2009.dci, 'foo.txt'} || die $!;<BR>my @palavras = &lt;$file&gt;;<BR>print "O seu arquivo tem: " .scalar(@palavras) . " linhas\n";<BR>print "Qual linha você deseja pesquisar?\n";<BR>chomp (my $var = &lt;STDIN&gt;);<BR>if ($var &lt; scalar(@palavras)) {<BR>&nbsp;&nbsp;&nbsp; print $palavras[$var];<BR>}<BR>open(OUTFILE, "&gt; c:/perl/report.dci") or die "Can't open output file";<BR>chomp @read;&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>o objetivo desse&nbsp;programa é mesmo buscar a linha&nbsp;respectiva do arquivo dci ou txt&nbsp;e criar um outro arquivo somente com essa linha!!<BR>&nbsp;<BR>acredito que sua ultima dica foi a que eu preciso, <BR>&nbsp;<BR>mas acho que eu deixei de declarar algo mas nao consigo identificar<BR>&nbsp;<BR>....<BR>&nbsp;<BR>
<DIV>
<BLOCKQUOTE style="PADDING-LEFT: 1ex"><BR><BR><BR>&nbsp;</BLOCKQUOTE></DIV></DIV></BLOCKQUOTE></DIV><br /><hr />check out the rest of the Windows Live™.
More than mail–Windows Live™ goes way beyond your inbox.
 <a href='http://www.microsoft.com/windows/windowslive/' target='_new'>More than messages</a></body>
</html>