[SP-pm] FILEHANDLE LOGFILE or INFILE

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Wed Feb 4 09:45:36 PST 2015


Kleber, tem um livro chamado Advanced Programming In the Unix Environment.
Eu recomendo você ler o capítulo 3 - File I/O a sua dúvida não tem a ver
com Perl e sim com conceitos de O.S.

2015-02-04 15:10 GMT-02:00 Renato Santos <renato.cron at gmail.com>:

> seu programa já está feito, alguem que criou esses nomes e filehandles.
>
> o seek esta mandando ir para a ultima posicao (3 parametro com valor 2).
> o tell esta mandando retornar a posicao atual.
>
> signfica que o LOGFILE esta na posicao 56666091(bytes/char?)
>
> 2015-02-04 15:01 GMT-02:00 Kleber Rodrigo de Carvalho <
> kleber.carvalho at gmail.com>:
>
> Olá
>>
>> Disponibilizei meu código aqui: http://pastebin.com/T6AGHm2n
>>
>>
>> Minha duvida é:
>>
>>  seek($filehandler, 0, 2);
>>  $curreof = tell($filehandler);
>>  print("curreof=" . $curreof . "\n");
>>
>>
>> Porque quando eu executo esse trecho de código acima usando LOGFILE,
>> eu recebo curreof=56666091
>> O que isso significar?
>>
>> Obrigado
>>
>> Abraços
>> Kleber Rodrigo de Carvalho
>> Engenheiro de Software
>> KleberCarvalho.com | (15) 9-9161-3362
>>
>> Cara, estou achando que você está lendo um programa já feito, que esta
>> usando *FILEHANDLE* em si, com esses nomes (LOGFILE, INLINE)
>>
>> O jeito mais seguro, é usar um FH dentro de uma ref,
>>
>> # ler em binario
>> open(my $fh, '<:raw', '/tmp/foo.bin');
>> while( my $somebytes = <$fh>){ . .. }
>>
>> # ler em utf8
>> open(my $fh, '<:utf8', '/tmp/tmp.utf8');
>> while( my $line = <$fh>){ . .. }
>>
>> # escrever em utf8
>> open(my $fh, '>:utf8', '/tmp/tmp.utf8');
>> print $fh "uma linha\n";
>>
>>
>>
>> 2015-02-04 14:07 GMT-02:00 Gabriel Vieira <gabriel.vieira at gmail.com>:
>>
>> Cara, estou achando que você está lendo um programa já feito, que esta
>> usando *FILEHANDLE* em si, com esses nomes (LOGFILE, INLINE)
>>
>> O jeito mais seguro, é usar um FH dentro de uma ref,
>>
>> # ler em binario
>> open(my $fh, '<:raw', '/tmp/foo.bin');
>> while( my $somebytes = <$fh>){ . .. }
>>
>> # ler em utf8
>> open(my $fh, '<:utf8', '/tmp/tmp.utf8');
>> while( my $line = <$fh>){ . .. }
>>
>> # escrever em utf8
>> open(my $fh, '>:utf8', '/tmp/tmp.utf8');
>> print $fh "uma linha\n";
>>
>>
>>
>> 2015-02-04 14:07 GMT-02:00 Gabriel Vieira <gabriel.vieira at gmail.com>:
>>
>> > Qual a diferença de comportamento que você observou?
>> >
>> > 2015-02-04 11:05 GMT-05:00 Kleber Rodrigo de Carvalho <
>> > kleber.carvalho at gmail.com>:
>> >
>> > Pessoal,
>> >>
>> >> Estou escrevendo um programa em Perl, e preciso entender as
>> >> diferenças entre os FILEHANDLE.
>> >> Por exemplo, um programa lendo um arquivo usando LOGFILE se comporta
>> >> diferente de um usando INFILE.
>> >> Estou procurando na internet por:
>> >>
>> >> perl FILEHANDLE LOGFILE INFILE
>> >> perl LOGFILE INFILE
>> >>
>> >> Mas não encontrei nada. Se encontra todos os tipos de FILEHANDLE já
>> >> ajudaria.
>> >> Será que alguém poderia me ajudar nisso?
>> >>
>> >> Muito obrigado
>> >>
>> >> Abraços
>> >> Kleber Rodrigo de Carvalho
>> >> Engenheiro de Software
>> >> KleberCarvalho.com | (15) 9-9161-3362
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>
>
>
> --
> Saravá,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron <http://twitter.com/#!/renato_cron>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 

-dom

--

Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20150204/70c1edba/attachment-0001.html>


More information about the SaoPaulo-pm mailing list