<div><font face="courier new,monospace">Cara, a maneira mais simples (e mais rápida neste momento) de fazer isto é lendo o output do handle (</font><a href="http://www.microsoft.com/technet/sysinternals/ProcessesAndThreads/Handle.mspx">
<font face="courier new,monospace">http://www.microsoft.com/technet/sysinternals/ProcessesAndThreads/Handle.mspx</font></a><font face="courier new,monospace">).</font></div>
<div><font face="courier new,monospace"></font> </div>
<div><font face="courier new,monospace">Quem sabe num futuro próximo teremos um Win32::Fuser !?</font></div>
<div><font face="courier new,monospace"></font> </div>
<div><font face="courier new,monospace">Solli M. Honório</font></div>
<div> </div>
<div class="gmail_quote">On Dec 1, 2007 9:57 PM, Pedro Henrique <<a href="mailto:phikeda@gmail.com">phikeda@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Solli, é exatamente isso que eu quero, só que pra Windows :-(<br><br>Vlw,<br><font color="#888888"><br>PH</font>
<div>
<div></div>
<div class="Wj3C7c"><br><br>
<div class="gmail_quote">On Dec 1, 2007 7:59 AM, Solli Honorio <<a href="mailto:shonorio@gmail.com" target="_blank">shonorio@gmail.com</a>> wrote: <br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid"><span style="FONT-FAMILY: courier new,monospace">Não existe função built-in no Perl para isto, alias eu acredito que em nenhuma linguagem. Isto depende muito do sistemas operacional, para linux temos
<a href="http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm" target="_blank">http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm</a>, para Windows eu não conheço nada, ainda.<br><br>Solli M. Honório
<br></span><br>
<div class="gmail_quote">
<div>
<div></div>
<div>On Dec 1, 2007 1:05 AM, Pedro Henrique < <a href="mailto:phikeda@gmail.com" target="_blank">phikeda@gmail.com</a>> wrote:<br></div></div>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<div>
<div></div>
<div>Amigos, <br><br>estou meio empacado num problema que deve ser idiota, mas sabem como é... <br><br>Dá pra saber (com Perl) se um arquivo está aberto ou não?<br><br>Sei que isso é muito dependente de sistema operacional, mas de repente alguém já teve esse tipo de problema e pode me
ajudar.Procurei nos testes de arquivos (-X) mas não achei nada...<br><br>Vlw,<br><font color="#888888"><br>PH<br><br></font><br></div></div>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">
Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm </a><br></blockquote></div><font color="#888888"><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</font><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/rio-pm </a><br></blockquote></div><br></div></div><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa