[Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...

Fernando Oliveira fernandocorrea em gmail.com
Terça Março 13 06:32:20 PDT 2007


Desculpe, mas assim ficaria mais inteligivel?

# Nome do diretorio de origem
$dir_orig = ".";
# $, = separador de lista
# $\ = terminador
# $/ = normalmente "\n"
$,=$\=$/;
# para todos os arqs e dirs contemplados por ./*
for(glob $dir_orig."/*")
{
   # imprima se for diretorio
   print if -d
}

Em 13/03/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:
> > perl -e '$dir_orig = "."; $,=$\=$/; for(glob $dir_orig."/*"){print
> > if -d}'
>
>    Brilhante, Fernando.
>    Mas o Juliano é um novato.
>    Será que você é bom o bastante para implementar a mesma coisa em
> 10 linhas?
>
>    Fluência em Perl quer dizer fazer a pessoa com quem você fala te
> entender, não dizer tudo o que você precisa com três caracteres... ;-)
>
>    Putamplexos!
> --
> Luis Motta Campos is a software engineer,
> perl fanatic evangelist, and amateur {cook, photographer}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
[]'s Fernando


Mais detalhes sobre a lista de discussão Cascavel-pm