awk dans perl

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

Bonjour,

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

Code:

---

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

---

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

Code:

---

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

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

Code:

---

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ï

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

Citation:

---

Envoyé par 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

---

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

Code:

---

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

---

--
Jedaï