2008/6/19 Fernando Oliveira <fernandocorrea em gmail.com>: > perl -n0aE'-MARGV&&$#F&&say$ARGV' -F/teste/ /*.pl # -1 > ou > perl -n0aE'-M&&$#F&&say for$ARGV' -F/teste/ /*.pl # q tb é -1!!! perl -p0ae'($_=$#F&&$ARGV)x=-M>0' -F/teste/ * -- edenc.vox.com