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

Alexei Znamensky russoz em gmail.com
Terça Setembro 16 10:33:25 PDT 2008


É, depois que eu mandei eu vi, mas achei que você fosse dizer alguma coisa
;-)

2008/9/16 Solli Honorio <shonorio em gmail.com>

>
> 2008/9/16 Alexei Znamensky <russoz em gmail.com>
>
>>
>>
>> 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 | ]
>>
>
> Na verdade não precisa do 'qx' neste caso, é só ele descobrir onde  o
> código dele está errada ;) !
>
>
>>
>>
>>>
>>>
>>> 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"
>>
>> _______________________________________________
>> 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
>



-- 
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/4a87e935/attachment-0001.html>


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