<div dir="ltr">Oi Aureliano!<div><br></div><div>o diamante (<>) pode resolver isso p/ vc.</div><div><br></div><div>se vc não passa um arquivo, ele le da stdin:</div><blockquote style="margin:0px 0px 0px 40px;border:none;padding:0px"><div><p style="margin:0px;font-size:10px;line-height:normal;font-family:monaco;color:rgb(244,244,244);background-color:rgba(0,0,0,0.85098)"><span style="font-variant-ligatures:no-common-ligatures">$ echo "bla" | perl -E 'say while <>'</span></p>
<p style="margin:0px;font-size:10px;line-height:normal;font-family:monaco;color:rgb(244,244,244);background-color:rgba(0,0,0,0.85098)"><span style="font-variant-ligatures:no-common-ligatures">bla</span></p></div></blockquote><br><div><span style="font-variant-ligatures:no-common-ligatures">mas se vc passa um (ou mais) arquivo(s), ele o(s) le:</span></div><blockquote style="margin:0px 0px 0px 40px;border:none;padding:0px"><span style="font-variant-ligatures:no-common-ligatures"><p style="margin:0px;font-size:10px;line-height:normal;font-family:monaco;color:rgb(244,244,244);background-color:rgba(0,0,0,0.85098)"><span style="font-variant-ligatures:no-common-ligatures">$ echo test > file</span><span style="font-family:monaco">$ perl -E 'say while <>' file</span></p></span>
<p style="margin:0px;font-size:10px;line-height:normal;font-family:monaco;color:rgb(244,244,244);background-color:rgba(0,0,0,0.85098)"><span style="font-variant-ligatures:no-common-ligatures">test</span></p></blockquote><br><div>outras opções que facilitam ainda mais (vc não precisa nem usar o while) é usar o -n e o -p...</div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)</div></div>
<br><div class="gmail_quote">Em 10 de novembro de 2016 20:43, Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div dir="ltr">
<div id="m_4923351636397992455divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif" dir="ltr">
<p>Ola monges,</p>
<p><br>
</p>
<p>Tenho uma pergunta simples pra vocês.</p>
<p><br>
</p>
<p>Eu tenho um script que abre um arquivo e printa o resultado na saida padrão.</p>
<p><br>
Os parâmetros adicionais são processados via Getopt::Long;</p>
<p><br>
</p>
<p>Bom, o que eu queria era fazer algo mais Unix style.<br>
</p>
<p><br>
</p>
<p>Quero poder receber o nome do arquivo para abrir ou poder redirecionar a saida padrão pro script caso esteja em um pipeline.</p>
<p><br>
</p>
<p>Por exemplo, hoje, se eu der um grep em um arquivo pra depois passar pro script eu tenho que fazer:</p>
<p>$ grep '<qualquercoisa>' arquivo >arquivo.tmp</p>
<p>$ <a href="http://script.pl" target="_blank">script.pl</a> arquivo.tmp</p>
<p><br>
</p>
<p>Eu quero poder fazer algo no estilo</p>
<p></p>
<p>$ grep '<qualquercoisa>' arquivo | <a href="http://script.pl" target="_blank">script.pl</a> <br>
</p>
<p></p>
<p><br>
</p>
<p>Como eu poderia fazer isso? lembrando que eu posso passar pro script mais parametros se precisar</p>
<p><br>
</p>
<p>Abraços,<br>
</p>
</div>
</div>

<br>______________________________<wbr>_________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/<wbr>listinfo/rio-pm</a><br></blockquote></div><br></div>