[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