<div dir="ltr">Em 4 de fevereiro de 2015 15:51, Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>></span> escreveu:<br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">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.</div></blockquote><div><br></div><div>Hmmm, o POE::Wheel::FollowTail e muitos outros módulos fazem isso de graça :D</div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="gmail_extra"><br><div class="gmail_quote">2015-02-04 15:45 GMT-02:00 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>></span>:<div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">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.</div><div class="gmail_extra"><br><div class="gmail_quote">2015-02-04 15:10 GMT-02:00 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span>:<div><div><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">seu programa já está feito, alguem que criou esses nomes e filehandles.<div><br></div><div>o seek esta mandando ir para a ultima posicao (3 parametro com valor 2).</div><div>o <span style="font-size:13px">tell esta mandando retornar a posicao atual.</span></div><div><span style="font-size:13px"><br></span></div><div>signfica que o LOGFILE esta na posicao <span style="font-size:13px">56666091(bytes/char?)</span></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-02-04 15:01 GMT-02:00 Kleber Rodrigo de Carvalho <span dir="ltr"><<a href="mailto:kleber.carvalho@gmail.com" target="_blank">kleber.carvalho@gmail.com</a>></span>:<div><div><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Olá<br>
<br>
Disponibilizei meu código aqui: <a href="http://pastebin.com/T6AGHm2n" target="_blank">http://pastebin.com/T6AGHm2n</a><br>
<br>
<br>
Minha duvida é:<br>
<br>
 seek($filehandler, 0, 2);<br>
 $curreof = tell($filehandler);<br>
 print("curreof=" . $curreof . "\n");<br>
<br>
<br>
Porque quando eu executo esse trecho de código acima usando LOGFILE,<br>
eu recebo curreof=56666091<br>
O que isso significar?<br>
<br>
Obrigado<br>
<br>
Abraços<br>
Kleber Rodrigo de Carvalho<br>
Engenheiro de Software<br>
KleberCarvalho.com | (15) 9-9161-3362<br>
<br>
Cara, estou achando que você está lendo um programa já feito, que esta<br>
usando *FILEHANDLE* em si, com esses nomes (LOGFILE, INLINE)<br>
<br>
O jeito mais seguro, é usar um FH dentro de uma ref,<br>
<br>
# ler em binario<br>
open(my $fh, '<:raw', '/tmp/foo.bin');<br>
while( my $somebytes = <$fh>){ . .. }<br>
<br>
# ler em utf8<br>
open(my $fh, '<:utf8', '/tmp/tmp.utf8');<br>
while( my $line = <$fh>){ . .. }<br>
<br>
# escrever em utf8<br>
open(my $fh, '>:utf8', '/tmp/tmp.utf8');<br>
print $fh "uma linha\n";<br>
<br>
<br>
<br>
2015-02-04 14:07 GMT-02:00 Gabriel Vieira <gabriel.vieira at <a href="http://gmail.com" target="_blank">gmail.com</a>>:<br>
<br>
Cara, estou achando que você está lendo um programa já feito, que esta<br>
usando *FILEHANDLE* em si, com esses nomes (LOGFILE, INLINE)<br>
<br>
O jeito mais seguro, é usar um FH dentro de uma ref,<br>
<br>
# ler em binario<br>
open(my $fh, '<:raw', '/tmp/foo.bin');<br>
while( my $somebytes = <$fh>){ . .. }<br>
<br>
# ler em utf8<br>
open(my $fh, '<:utf8', '/tmp/tmp.utf8');<br>
while( my $line = <$fh>){ . .. }<br>
<br>
# escrever em utf8<br>
open(my $fh, '>:utf8', '/tmp/tmp.utf8');<br>
print $fh "uma linha\n";<br>
<br>
<br>
<br>
2015-02-04 14:07 GMT-02:00 Gabriel Vieira <gabriel.vieira at <a href="http://gmail.com" target="_blank">gmail.com</a>>:<br>
<br>
> Qual a diferença de comportamento que você observou?<br>
><br>
> 2015-02-04 11:05 GMT-05:00 Kleber Rodrigo de Carvalho <<br>
> kleber.carvalho at <a href="http://gmail.com" target="_blank">gmail.com</a>>:<br>
><br>
> Pessoal,<br>
>><br>
>> Estou escrevendo um programa em Perl, e preciso entender as<br>
>> diferenças entre os FILEHANDLE.<br>
>> Por exemplo, um programa lendo um arquivo usando LOGFILE se comporta<br>
>> diferente de um usando INFILE.<br>
>> Estou procurando na internet por:<br>
>><br>
>> perl FILEHANDLE LOGFILE INFILE<br>
>> perl LOGFILE INFILE<br>
>><br>
>> Mas não encontrei nada. Se encontra todos os tipos de FILEHANDLE já<br>
>> ajudaria.<br>
>> Será que alguém poderia me ajudar nisso?<br>
>><br>
>> Muito obrigado<br>
>><br>
>> Abraços<br>
>> Kleber Rodrigo de Carvalho<br>
>> Engenheiro de Software<br>
>> KleberCarvalho.com | (15) 9-9161-3362<br>
=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</blockquote></div></div></div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div></div>
</font></span></div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div></div></div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><br>-dom<br><br>--<br><br>Daniel de Oliveira Mantovani<br>Business Analytic Specialist<br>Perl Evangelist /Astrophysics hobbyist. <br>+55 11 9 8538-9897<br>XOXO</div>
</font></span></div>
</blockquote></div></div></div><div><div class="h5"><br><br clear="all"><div><br></div>-- <br><div><br>-dom<br><br>--<br><br>Daniel de Oliveira Mantovani<br>Business Analytic Specialist<br>Perl Evangelist /Astrophysics hobbyist. <br>+55 11 9 8538-9897<br>XOXO</div>
</div></div></div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Leonardo Ruoso<div>Journalist, Perl developer and business consultant<br><div>Media, UFC/2006; Telecom, IFCE/1998</div></div></div>
</div></div>