Em 5 de fevereiro de 2015 19:03, Daniel de Oliveira Mantovani < [email protected]> escreveu:
> O de graça depois que você sabe o que está fazendo é plausível, do outro > lado te faz uma ameba. > http://poe.perl.org/?POE_Cookbook/Tail_Following_Web_Server > > 2015-02-05 18:57 GMT-02:00 Leonardo Ruoso <[email protected]>: > > Em 4 de fevereiro de 2015 15:51, Daniel de Oliveira Mantovani < >> [email protected]> escreveu: >> >>> BTW, você está lendo o arquivo de log do WebSphere Application Server, >>> SystemOut.log mesmo que você consiga implementar o "tail" que você está >>> tentando implementar, você vai ter problemas pois o WebSphere Application >>> Server "rotate" o arquivo, sendo assim o seu programa vai perder o ID do >>> descritor de arquivos e vai parar de funcionar. Para resolver o problema, >>> além de você implementar o seu "tail", você precisa ficar verificando se o >>> ID do SystemOut.log mudou. É fácil de implementar e você vai aprender >>> vários conceitos de Unix-like do caminho, estamos aqui para ajudar. >>> >> >> Hmmm, o POE::Wheel::FollowTail e muitos outros módulos fazem isso de >> graça :D >> >> >> >>> >>> 2015-02-04 15:45 GMT-02:00 Daniel de Oliveira Mantovani < >>> [email protected]>: >>> >>> 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 <[email protected]>: >>>> >>>> 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 < >>>>> [email protected]>: >>>>> >>>>> 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: [email protected] >>>>>> 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: [email protected] >>>>> 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 >>>> >>> >>> >>> >>> -- >>> >>> -dom >>> >>> -- >>> >>> Daniel de Oliveira Mantovani >>> Business Analytic Specialist >>> Perl Evangelist /Astrophysics hobbyist. >>> +55 11 9 8538-9897 >>> XOXO >>> >>> =begin disclaimer >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>> SaoPaulo-pm mailing list: [email protected] >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >> >> >> -- >> Leonardo Ruoso >> Journalist, Perl developer and business consultant >> Media, UFC/2006; Telecom, IFCE/1998 >> >> =begin disclaimer >> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >> SaoPaulo-pm mailing list: [email protected] >> 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 > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- Leonardo Ruoso Journalist, Perl developer and business consultant Media, UFC/2006; Telecom, IFCE/1998
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
