[Cascavel-pm] duvida - ler arquivo

Fernando Oliveira fernandocorrea em gmail.com
Sábado Abril 28 08:06:37 PDT 2007


diminuí o meu...

perl -e 'while(<*>){print$_,$/if-f}'

e eu não esquecí do \n... eu não preciso setar o $, pq não estou imprimindo
lista...

e tirei 1 caracter do seu:

perl -e 'print$_,$/for grep{-f}<*>'

Em 28/04/07, Solli Honorio <shonorio em gmail.com> escreveu:
>
> On 4/28/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> >
> > o diamante (<>) já traz na ordem...
> > e qto não imprimir subdiretórios, q tal assim:
>
> Interessante, eu nunca prestei atenção neste detalhe .. pelo jeito tenho
> alguns códigos "desnecessário" :( .... mas acho que posso melhorar um
> pouquinho, se vc me permitir :)
>
> perl -e '$,=$\=$/;print grep{-f}<*>'
>
> ... e não esqueça do "\n" :)
>
> Solli M. Honorio
>
>
> 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
> > _______________________________________________
> > 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/331bdb2f/attachment-0001.html 


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