Discussion :

[donny]

Salut,

Je voudrais recuperer le pid d'un script qui tourne et j'aurai aimé savoir si il existe une commande perl pourle faire ?

Je pourrai le faire comme ceci,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @tab = split /\n/, `ps -axw|grep monscript.pl`;

et je parse la ligne qui contient le nom de mon script pour extraire le pid;
mais est ce qu'il existerait une fonction perl qui peut trouver le pid si je lui donne le nom du script,cela m'eviterai de faire de la bidouille ;

Merci

[djibril]

Va voir le module Proc::ProcessTable, il fera ton bonheur

[Arioch]

Trop fort Djibril, on a eu exactement la même réponse et au caractère près

[djibril]

Ah ouais, c fort ça , tu ne serais pas mon frere jumeaux caché.
On m'aurais menti

[donny]

j'ai trouver se script
mais je comprend pas trop

dans $ARGV[0] je met le nom du script perl
et dans $ARGV[1] je met quoi ?

merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
# $Date: 2004/03/22 01:13:00 $ $Revision: 1.2 $
use strict;
 
my @lines = split /\n/, `ps -axw|grep $ARGV[0]`;
 
my @dummy = split /\//, $0;
my $SCRIPT_SHORT = $dummy[$#dummy];
 
my $RUNNING = 0;
my $PID = 0;
 
foreach (@lines) {
	next if $_ =~ /grep $ARGV[0]/ or $_ =~ /$SCRIPT_SHORT $ARGV[0]/;
	$RUNNING++;
	$PID = $_; $PID += 0;
	print $PID unless $ARGV[1] eq 'status';
	last;
}
 
if ($ARGV[1] eq 'status') {
	print $RUNNING ? "Running [$PID]" : 'Stopped';
}

[Arioch]

Déjà, que fait le bout de code que tu as trouvé quand tu ne lui indique qu'ARGV[0]?