[Cascavel-pm] duvida - ler arquivo

Fernando Oliveira fernandocorrea em gmail.com
Sexta Abril 27 22:32:10 PDT 2007


o diamante (<>) já traz na ordem...
e qto não imprimir subdiretórios, q tal assim:

perl -e '$\=$/;do{print if-f}while<*>'

Em 28/04/07, Solli Honorio <shonorio em gmail.com> escreveu:
>
> hummmm, vc não resolve o problema de conter diretórios e nem a ordem
> solicitado, que tal :
> perl -e '$,=$\=$/;print sort grep{-f}glob($d);'
>
> Solli M. Honório
>
> On 4/27/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> >
> > perl -e '$,=$\=$/;print<$caminho/*>'
> >
> > Desculpem... adoro one-liner...
> >
> > Em 27/04/07, Patty Silva < ptfzs em yahoo.com.br > escreveu:
> > >
> > > Pessoal
> > >
> > > fiz assim:
> > > foreach my $arquivo (sort(readdir DIR))
> > > {
> > >     next if $arquivo eq '.' or $arquivo eq '..';
> > >         print "FILE $arquivo\n";
> > > }
> > >
> > > funcionou :D
> > >
> > > *Patty Silva < ptfzs em yahoo.com.br >* escreveu:
> > >
> > > Ola pessoal..
> > > Estou com uma duvida...
> > > eu estou fazendo assim:
> > >
> > >
> > > --------------------------------------------------------------------------------------------------------------------
> > >
> > > opendir(DIR, $caminho) or die "Can't open directory:$!";
> > >
> > > while($arquivo = readdir(DIR))
> > > {
> > >
> > >         next if $arquivo eq '.' or $arquivo eq '..';
> > >         chdir($caminho) || die "\n *** Erro no diretorio $caminho
> > > ***";
> > >
> > >         print "Arquivo $arquivo\n"
> > > }
> > >
> > >
> > > --------------------------------------------------------------------------------------------------------------------
> > >
> > > Para ler arquivos de um diretorio..
> > > Dentro desse diretorio tem arquivos nesse formato yyyymmdd_hhmm
> > > Eu quero q ele pegue em ordem crescente.. tem como?
> > >
> > > ex: no diretorio tem: 20070426_0500  20070426_1200 20070426_0300
> > > quero que ele leia na ordem:
> > > 1) - 20070426_0300
> > > 2) - 20070426_0500
> > > 3) - 20070426_1200
> > >
> > >
> > > Como posso fazer isso? :D
> > >
> > > Obrigada pessoal
> > >
> > > []s
> > >
> > >
> > >  __________________________________________________
> > > Fale com seus amigos de graça com o novo Yahoo! Messenger
> > > http://br.messenger.yahoo.com/_______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > >
> > > __________________________________________________
> > > Fale com seus amigos de graça com o novo Yahoo! Messenger
> > > http://br.messenger.yahoo.com/
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> >
> > --
> > []'s Fernando
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070428/67c0fba9/attachment-0001.html 


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