Olá!<br><br><div><span class="gmail_quote">On 6/15/07, <b class="gmail_sendername">Leonardo Costa</b> &lt;<a href="mailto:leocostabh@gmail.com">leocostabh@gmail.com</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Oi,<br><br>preciso descobrir o usuário que está rodando um determinado processo<br>no sistema (Linux, opensuse 10.2).<br><br>Só para ajudar a entender o que eu preciso, em bash ficaria assim:<br><br># ps aux | grep cvs | cut -d&quot; &quot; -f1
</blockquote></div><br>Viva um usuario de Suse!<br><br>Esse codigo é modulo less! Procure um modulo, mas como eu gosto muito de proc e vivo usando ele no trampo, mandei um exemplo didatico (eu acho). No proc tem muita coisa boa de linux. Proc vem de processo e vc pode procurar ele no google o no Documents da arvore do kernel :) para mais informaćões. 
<br><br>Se vc pensar da para fazer mais bonito mas eu não me preocupei com isso agora.<br><br>Troque o firefox pelo processo que vc quer. <br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br># Ei esse é minha fonte!
<br><br>opendir my $fh , &quot;/proc&quot; ;<br><br># me de todos os processos<br><br>my @proc = grep /\d/ , readdir $fh;<br><br>foreach (@proc) {<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open my $fh2, &quot;/proc/$_/cmdline&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $cmdline = &lt;$fh2&gt;;
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # Coloque o seu programa aqui!<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($cmdline =~ /firefox/){<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open my $fh3 , &quot;/proc/$_/status&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my %hash;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while (&lt;$fh3&gt;){<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (my $key, my $value) = split(/:/ , $_);
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $hash{$key} = $value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #Horrivel!<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @user =&nbsp; getpwuid($1) if ($hash{&quot;Uid&quot;} =~ /\s+(\d+)\s.*/) ;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;$user[0]\n&quot;;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br><br>}<br><br><br><br>-- <br>____________________________<br>Frederico Recsky<br>Linux User: #253572<br><a href="http://www.fred.eti.br">http://www.fred.eti.br</a><br><a href="http://www.perl.org.br">http://www.perl.org.br
</a>