[Cascavel-pm] duvida - ler arquivo

["Iberê O. Kuntz de Souza"]

Nossa.. aeiuaeiheh
que disputa pra quem fica com o menor one-liner

> 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