Sim, Perl tem essa capacidade, você leu o que o Breno disse na thread anterior ?<br><br>Se você especificar os detalhes vai ser mais fácil te ajudar, como por exemplo qual o S.O ?<br><br><div class="gmail_quote">2009/4/9 Pedro César <span dir="ltr"><<a href="mailto:pedrocesar@tecdom.com.br">pedrocesar@tecdom.com.br</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>Pessoal, como ja falei em outro email, sou administrador de rede e pretendo aprender perl para criar scripts e assim facilitar meu trabalho a automatizar algumas rotinas. </div>
<div> </div>
<div>Tenho a seguinte situacao: um cliente que roda um sistema em clipper, que ja demonstrou ser um bom sistema (aos olhos dele) porem como agora os micros estao em rede, se alguem ja estiver usando e outra estacao abrir, geralmente corrompe alguma coisa, entao eu gostaria de fazer um script que fosse chamado sempre que alguem fosse rodar esse programa. </div>
<div> </div>
<div>O script deveria descobrir se esse arquivo esta sendo usado por alguem na rede. Tipo o comando openfiles do windows, que informa se tem alguem na rede usando determinado alrquivo. Com isso eu impediria que outra instancia do arquivo fosse aberta. </div>
<div> </div>
<div>Ao detectar que o executavel ja esta sendo usado poderia emitir um alerta, ou redirecionar a linha de comando, enfim, gostaria de saber se perl tem essa capacidade (descobrir que o arquivo está sendo usado).</div>
<div> </div>
<div>
<div>Não precisam se dar ao trabalho de dizer como nem fazer o código para mim, so quero saber se é possível e que se possivel me dêem uma orientacao minima para eu conseguir encontrar a solucao..</div></div>
<div> </div>
<div>Grato<br clear="all"><br>-- <br>Pedro César<br>Analista de Suporte<br>Microsoft Certified Professional - MCP<br>Blog: <a href="http://www.tecdom.com.br/blog" target="_blank">www.tecdom.com.br/blog</a><br>Fone: 82-9317-8802<br>
msn: <a href="mailto:pedrocesar@tecdom.com.br" target="_blank">pedrocesar@tecdom.com.br</a> <br>
Registered Linux User #282860<br><br><br>"Autoridades são alguns, <br>e só por algun tempo.<br>Enquanto cidadãos somos todos nós,<br>e durante toda a vida".<br>Prof. Hugo de Britto Machado<br><br> </div>
<br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>