Discussion :

[Alzelus]

Bonjour!
j'ai une ligne que j'utilise pour trouver le PID d'un TTY.
ps -tpts/14 | grep pro4 | grep -v | awk'{print $1}'

Le probleme est que je veux appeler cette ligne d'un script perl mais le awk ne fonctione pas en perl.
Avez vous une idée de comment je pourrais récupérer tout mon PID en perl?

Merci à tous

[Woufeil]

Bonjour,

Au pire, tu peux te contenter d'utiliser de simples backtricks `` pour faire exécuter ta commande par Perl :

Code :

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

my $res = `ps -tpts/14 | grep pro4 | grep -v | awk'{print $1}'`;

[Alzelus]

Slaut j'ai essayé ca et j'obtiens quand meme le message.

Code :

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

1
2
#!/usr/bin/perl -w
my $res = `ps -tpts/14 | grep pro5 | grep -v grep | awk'{print $1}'`;

Use of uninitialized value at ./prokill line 2.
sh: awk{print }: not found.

Merci

[Jedai]

C'est parce que $1 est interpolé, il faut échapper le $ pour éviter ça :

Code :

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

my $res = `ps -tpts/14 | grep pro5 | grep -v grep | awk'{print \$1}'`;

NB : Tu pourrais aussi utiliser Proc::ProcessTable pour obtenir le même résultat en Perl pur (mais ça ne vaut pas forcément le coup, ça dépend de ta situation).

--
Jedaï

[Alzelus]

j'ai toujours ce message d'erreue meme avec le \

sh: awk{print $1}: not found.

pourtant en le passant directement a la ligne de commande ca marche

[Jedai]

j'ai toujours ce message d'erreue meme avec le \

sh: awk{print $1}: not found.

pourtant en le passant directement a la ligne de commande ca marche

Et sur la ligne de commande tu ne laisse pas d'espace entre awk et '{print $1}' ?

Code :

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

my $res = `ps -tpts/14 | grep pro5 | grep -v grep | awk '{print \$1}'`;

--
Jedaï