Oi Aureliano!
o diamante (<>) pode resolver isso p/ vc.
se vc não passa um arquivo, ele le da stdin:
$ echo "bla" | perl -E 'say while <>'
bla
mas se vc passa um (ou mais) arquivo(s), ele o(s) le:
$ echo test > file$ perl -E 'say while <>' file
test
outras opções que facilitam ainda mais (vc não precisa nem usar o while) é
usar o -n e o -p...
Just another Perl Hacker,
Fernando (SmokeMachine)
Em 10 de novembro de 2016 20:43, Aureliano Guedes
escreveu:
> Ola monges,
>
>
> Tenho uma pergunta simples pra vocês.
>
>
> Eu tenho um script que abre um arquivo e printa o resultado na saida
> padrão.
>
>
> Os parâmetros adicionais são processados via Getopt::Long;
>
>
> Bom, o que eu queria era fazer algo mais Unix style.
>
>
> Quero poder receber o nome do arquivo para abrir ou poder redirecionar a
> saida padrão pro script caso esteja em um pipeline.
>
>
> Por exemplo, hoje, se eu der um grep em um arquivo pra depois passar pro
> script eu tenho que fazer:
>
> $ grep '' arquivo >arquivo.tmp
>
> $ script.pl arquivo.tmp
>
>
> Eu quero poder fazer algo no estilo
>
> $ grep '' arquivo | script.pl
>
>
> Como eu poderia fazer isso? lembrando que eu posso passar pro script mais
> parametros se precisar
>
>
> Abraços,
>
> ___
> Rio-pm mailing list
> Rio-pm@pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm