[Cascavel-pm] descobrir usuário dono do processo

Thomas Britis thomas em tcnet.com.br
Sexta Junho 15 14:19:22 PDT 2007


use Proc::ProcessTable;

my $t = new Proc::ProcessTable;

foreach my $p ( @{$t->table} ) {
	if ($p->{cmndline} =~ /cvs/) {
		my $name = getpwuid ($p->{uid});
		print qq{$name\n};
	}
}

OBS: Não sei se o módulo já retorna o usuário sem haver a necessidade do 
getpwuid().

Leonardo Costa wrote:
> Oi,
> 
> preciso descobrir o usuário que está rodando um determinado processo
> no sistema (Linux, opensuse 10.2).
> 
> Só para ajudar a entender o que eu preciso, em bash ficaria assim:
> 
> # ps aux | grep cvs | cut -d" " -f1
> 
> (ignorando a última saída que é o próprio comando "ps")
> 
> Não gosto de "apelar" para lista mas dei uma olhada no "Perl Cook
> Book" e na net e não achei :-(
> 
> abração,
> 
> Léo.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA


Mais detalhes sobre a lista de discussão Cascavel-pm