Em 27 de junho de 2011 13:48, Nelson Ferraz <[email protected]> escreveu: > Caso você esteja procurando pela linha que contém "foo": > > perl -ne '$a=1 if /foo/; print if $a' nomedoarquivo.txt
Em 30 caracteres (sem contar o nome do arquivo): perl -ne'$a||=/foo/ and print' <nomedoarquivo.txt> =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
