[Rio-pm] Hashes que referenciam (arrays variáveis?)

Terça Setembro 16 10:11:16 PDT 2008

2008/9/16 Samir Cury <rimasy em gmail.com>

> Então pessoal,
>
> Hoje tentei por em prática a dica do Solli, mas esbarrei em algumas coisas,
> a explicação resumão foi bem esclarescedora, mas me confirmem uma coisa:
>
> quando eu dou por exemplo (nem sei se é possível, mas pelo visto sim)
>
> foreach $i(<$cmd_ls>) { code; }
>
> Eu não estaria ocupando memória tanto quanto usando um array porque eu
> estou lendo de um arquivo temporário que seria o STDOUT do comando ??
>

Não porque debaixo dos panos o perl tá fazendo um fork, abrindo um processo
novo, e delegando a comunicação entre processos para o sistema operacional -
do mesmo jeito que funciona quando se usa um pipe na linha de comando. O
pipe NÃO joga todo o stdout para a memória, ele vai lendo aos poucos em
buffers dentro do kernel (naquele esquema producer/consumer, se você teve
isso na faculdade ;-)

> outra, tentei usar esse codigo e nao tive muito sucesso :
>
> open my $list_in_file q[cat list.txt | ];
> print <$list_in_file>;
>

tente qx[ cat list | ]

>
>
> não entendi muito bem, mas segui o modelo do solli
>
> valeu!
>
>
>
>
> 2008/9/12 Solli Honorio <shonorio em gmail.com>
>
>> 2008/9/12 Samir Cury <rimasy em gmail.com>
>>
>>> Beleza Solli, só uma coisa
>>>
>>
>> Só explico se tiver um shonorio++ :) !!!
>>
>>
>>>
>>> 2008/9/12 Solli Honorio <shonorio em gmail.com>
>>>
>>>> Grande pequeno gafanhoto Samir, este teu código está estranho... mas vou
>>>> pular estar parte e  vamos para o trabalho verdadeiro.. utilize o
>>>> 'File::Find', a documentação é boa e tem uma caminhão de outros exemplos na
>>>> internet !!!
>>>>
>>>> Agora sobre o código :
>>>>
>>>>
>>>> 2008/9/12 Samir Cury <rimasy em gmail.com>
>>>>
>>>>> Então galera, meu problema é o seguinte, relacionar uma árvore de
>>>>> diretórios (no final cada arquivo) ao seu full path que seria a chave do
>>>>> hash, o conteúdo seria o tamanho.
>>>>>
>>>>> Beleza, o du -ha me ajudaria nisso, mas ele não funciona no fs que
>>>>> estou usando, apenas ls -laR
>>>>>
>>>>> Então o que pensei:
>>>>>
>>>>> #!/usr/bin/perl
>>>>> use diagnostics;
>>>>>
>>>>> @list=`ls -lhR /pnfs/`;
>>>>>
>>>>
>>>> evite isto, pelos motivos :
>>>> 1o. é difícil de ler, prefira qx/ls.../;
>>>> 2o. não coloque o retorno todo numa array, você está consumindo muito
>>>> recurso de memoria, prefira:
>>>> <code>
>>>> open my $cmd_ls q[ls -lhR /pnfs/ |]
>>>>
>>>
>>>
>>> essa sintaxe eu não conhecia       q[ls -lhR /pnfs/ |]         seria "o
>>> mesmo" que `ls -lhR /pnfs/`, olhando um pouco do link
>>>
>>
>> Não exatamente, o mesmo que `comando` é o qx[].
>>
>>
>>>
>>> http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators
>>>
>>> deu pra entender o q[ ] , mas e o pipe??
>>>
>>
>> Cara isto é uma captura de pipe, neste caso só STDOUT (
>> http://perldoc.perl.org/perlipc.html#Using-open()-for-IPC<http://perldoc.perl.org/perlipc.html#Using-open%28%29-for-IPC>).
>> Outras fontes é o perldoc IPC::Open2 e perldoc IPC::Open3
>>
>>
>>>
>>>
>>> outra, porque referenciar a variável que guardou o arquivo como <$cmd_ls>
>>> ? para ser tratado como um array ou algo assim?
>>>
>>> valeu!
>>>
>>
>> ... cara dê uma olhada com carinho no 'perldoc -f open', mas vou explicar
>> com menos detalhe uma coisa.
>>
>> o 'open' recebe um FILEHANDLE, e você deve fazer algo assim :
>> open FH, '<', '/file';
>> este é o exemplo padrão e que tudo mundo utiliza, só que o FILEHANDLE é
>> uma 'variável' glogal e pode trazer confusões se você tiver um script que
>> abra vários arquivos com o mesmo filehandle. Para resolver este problema em
>> potencial você pode declarar uma variável, tipo:
>> open my $fh, '<', '/file';
>> com isto você cria uma variável no escopo local... e que ninguém nos ouça,
>> mas com isto vc nem precisa efetuar o close ($fh), pois quando você sair do
>> escopo a variável '$fh' vai para o espaço !!!
>>
>> Então, se $fh é uma variável contendo um FILEHANDLE, eu só consigo ler o
>> conteúdo através do operador diamente '<>', correto ?! Então não estou lendo
>> um array, estou lendo o conteúdo do arquivo linha a linha, que neste caso é
>> o STDOUT do pipe do comando !
>>
>>
>>>
>>>
>>>> while (my $linha = <$cmd_ls> ) {
>>>>   ...
>>>> }
>>>> </code>
>>>>
>>>>
>>>>
>>>>>
>>>>> foreach my $i(@list){
>>>>> #acha os diretórios que conterão os arquivos, e filtra seu nome para
>>>>> associar aos
>>>>> #arquivos
>>>>>         if ($i =~ /\:/)
>>>>>                 {
>>>>>                 chomp $i;
>>>>>                 %directories{$i}=
>>>>>                 }
>>>>>         }
>>>>>
>>>>
>>>>
>>>> Bom aqui tem uma problema grave e que vai gerar uma confusão boa, pelo
>>>> seguinte:
>>>> 1o. Você precisa criar dois fluxo de tratamento, um quando é o nome do
>>>> diretório e outro quando é o nome do arquivo. E isto não é tão trivial fazer
>>>> isto de maneira robusta.
>>>> 2o. a tua regex vai quebrar fácil se alguém criar um arquivo com nome
>>>> ':'.
>>>>
>>>> Então cara eu sugiro utilizar o File::Find !
>>>>
>>>>
>>>>
>>>>
>>>>>
>>>>>
>>>>> e cada por exemplo %directories{/pnfs/home/users/samir}  referenciaria
>>>>> um array dos arquivos que ele contém
>>>>>
>>>>> qualquer sugestão de como fazer o nome do array variar a cada iteração
>>>>> é bem-vinda, ou talvez uma maneira mais inteligente de resolver o problema,
>>>>> sempre tem, mas às vezes não enxergo
>>>>>
>>>>> _______________________________________________
>>>>> Rio-pm mailing list
>>>>> Rio-pm em pm.org
>>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>>>
>>>>
>>>>
>>>>
>>>> --
>>>> "o animal satisfeito dorme". - Guimarães Rosa
>>>>
>>>> _______________________________________________
>>>> Rio-pm mailing list
>>>> Rio-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>>
>>>
>>>
>>> _______________________________________________
>>> Rio-pm mailing list
>>> Rio-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>>
>>
>>
>> --
>> "o animal satisfeito dorme". - Guimarães Rosa
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>

-- 
Alexei Znamensky [russoz_gmail_com] [russoz.wordpress.com] [
www.flickr.com/photos/alexeiz]
"Though we live in trying times, we're the ones who have to try"
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080916/6c216bba/attachment.html>