<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
<BR>o OUTFILE ( pelo menos foi a maneira que eu aprendi pra outputar o resultado da minha pesquisa em um arquivo a parte) <BR> <BR>é eu ainda nao saquei toda a logica de programação, eu to aprendendo junto com o perl, me virando com livros, mas nao me dou muito bem com os termos tecnicos !!! ja que é o meu 1o contato com programação ! e ainda nao conheço ninguem que trabalhe com isso que possa dar uma mao<BR> <BR> <BR>pra nao delongar muito, eu so queria saber a logica para eu definir a palavra "DS"e que o programa busque na linha que eu pesquisar, e se essa palavra existir nessa linha, me permitir trocar por outra palavra "DE"!<BR> <BR> <BR> <BR>Seria somente isso<BR> <BR><BR>
<BR>
Obrigado<BR> <BR> <BR><BR>
<HR id=EC_stopSpelling>
<BR>
Date: Fri, 29 May 2009 15:41:39 -0300<BR>From: daniel.oliveira.mantovani@gmail.com<BR>To: saopaulo-pm@mail.pm.org<BR>Subject: Re: [SP-pm] [Fwd: duvidas]<BR><BR>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><BR>
<DIV class=EC_EC_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=EC_EC_gmail_quote style="PADDING-LEFT: 1ex">
<DIV><BR> <BR><BR> <BR>Boa Tarde !!!!<BR> <BR></DIV></BLOCKQUOTE>
<DIV>Boa tarde! <BR></DIV>
<BLOCKQUOTE class=EC_EC_gmail_quote style="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=EC_EC_gmail_quote style="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=EC_EC_gmail_quote style="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=EC_EC_gmail_quote style="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=EC_EC_gmail_quote style="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=EC_EC_gmail_quote style="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">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><BR>
<HR>
See all the ways you can stay connected <A href="http://www.microsoft.com/windows/windowslive/default.aspx">to friends and family</A><br /><hr />What can you do with the new Windows Live? <a href='http://www.microsoft.com/windows/windowslive/default.aspx' target='_new'>Find out</a></body>
</html>