Eirck, quando tiver alguma dúvida manda para a lista, porque a tua dúvida pode ser a dúvida de outros.<br><br> Tem uma dúvida ?<br><br> - Procure no manual,<br> - Procure no Google,<br> - Pergunte ao vizinho, ( eu não sou o vizinho :P )<br>
- Pergunte na lista.<br><br>Ao enviar uma pergunta para lista, responda utilizando o mesmo "Assunto",<br>*leia* e *leia*, se você não entender, *leia* de novo, se mesmo assim tiver dúvida, pergunte de novo.<br>
<br>Não diga coisas superficiais como: "Como eu faço isso Y ?".<br>Porque como eu já disse é superficial e vai ficar difícil ajudar :P<br><br>Desse jeito, ajuda mais: "Eu estou fazendo X, e não consigo chegar em Y por causa do K, usei
"isso, isso e isso", esse é o meu código:"código", as vezes o erro:
"foo" na linha X quando chega em "Z".<br><br><br><div class="gmail_quote">2009/5/29 Erick Herédia <span dir="ltr"><<a href="mailto:andjusticeforall4@msn.com">andjusticeforall4@msn.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>
<br> <br>
<br> <br>Boa Tarde !!!!<br> <br></div></blockquote><div>Boa tarde! <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><br>
beleza??<br> <br> <br>eu estou com uma pergunta em relação a aquele programa de busca,<br> <br>uma vez que ele buscou a linha, como eu digo pra ele buscar nessa linha por uma palavra especifica?</div></blockquote><div><br>
A tua dúvida não é sobre a linguagem, é sobre lógica de programação, mas não é problema, aprendendo a linguagem você aprende a lógica, bom pelo menos eu acho. <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br> <br>se nao encontrar ele avisa que nao foi encontrado tal palavra nessa linha<br> <br> <br>por exemplo:<br> <br>de todo um vasto arquivo de texto.txt eu busquei por essa linha:<br> <br> <br>"Coréia do Norte lança míssil de curto alcance, diz agência"<br>
<br> <br>eu
quero que esse programa veja se nessa linha existe a palavra
"curto",( uma palavra que eu seto como padrao de acordo com a
necessidade, assim qualquer linha que eu pesquisar ele vai verificar se
tem essa palavra) <br> <br>eis mais uma vez o codigo :<br> <br> <br>#!C:/perl/bin/perl.exe<br>#Handle Area - in - outfile<br>open my $file, q{c:/perl/discoverEdit[1].4796.11.30.5.8.2009.dci} or die "Can't open input file";</div>
</blockquote><div><br>Eu já te disse como abrir um arquivo, e você insiste em abrir assim. <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>open(OUTFILE, "> c:/perl/report.dci") or die "Can't open output file";</div></blockquote><div><br>Arggh! <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>my @read = <$file>;</div></blockquote><div># - Se o seu arquivo for muito grande, isso vai acabar com a tua memória. </div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>print "O seu arquivo tem: " .scalar(@read) . " linhas\n";<br>print "Qual linha você deseja pesquisar?\n";<br>chomp (my $match = <STDIN>);<br>if ($match < scalar(@read)) { <br>
print OUTFILE $read[$match];</div></blockquote><div><br># Você quer algo assim:<br><br> print OUTFILE $read[$match] if $read[$match] =~ /foo/;<br><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><br>}<br> <br>______________________________________________<br> <br>OBS:<br> <br>o $new serviria pra adicionar uma nova palavra nesse caso?<br><br> $new=<STDIN>; chomp $new;<br>foreach ($file) {<br>#nessa linha abaixo eu nao sei qual variavel eu poderia me referir a palavra "curto" <br>
$_ =~ s/$"???"/$new/g;<br>print "$_\n";<br>}<br> <br> <br>Obrigado<br><br><br><br><hr>What can you do with the new Windows Live? <a href="http://www.microsoft.com/windows/windowslive/default.aspx" target="_blank">Find out</a></div>
</blockquote></div><br><br clear="all"><br>[]'s<br><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>