Substring dans une variable

Bonjour,

Je pense que ma question peut être bête.
J'ai une commande qui fonctionne pour récupérer le pourcentage d'utilisation d'un de mes dossiers:

/# df /var | tail -n 1 | awk '{sub (/%/, "", $5); print $5 };

Cette commande me retourne: 17

Maintenant, j'aimerais savoir comment la faire passer dans un fichier de script en perl.
J'ai essayé:

Code:

---

1 2 3 4 5 6

use strict; use warnings;   my $valeur = `df /var | tail -n 1 | awk'{sub(/%/, "", $5); print $5}`; print $valeur

---

Ensuite, j'ai essayé:

Code:

---

1 2 3

my $valeur = `df /var | tail -n 1 | awk'{sub(/%/, "", \$5); print \$5}`; print $valeur

---

Mais ceci n'affiche aucun résultat.

Une personne aurait-elle une petite idée?

Je vous en remercie.

Tu peux tout faire en perl (à part le df) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Taisha:~/tttmp $ perl -E 'say qx{df .}' Filesystem 1K-blocks Used Available Use% Mounted on E: 488384508 477596932 10787576 98% /cygdrive/e   Taisha:~/tttmp $ perl -E 'say +(split /\n/, qx{df .})[-1]' E: 488384508 477596936 10787572 98% /cygdrive/e Taisha:~/tttmp $ perl -E 'say +(split " ", (split /\n/, qx{df .})[-1])[4]' 98% Taisha:~/tttmp $ perl -E 'say +(split " ", (split /\n/, qx{df .})[-1])[4] =~ s/%//r;' 98 Taisha:~/tttmp $

---

++. Le tail, passe encore, mais appeler du awk depuis Perl, l'idée est étrange et peu efficace.

TIMTOWDI :)

Code:

---

$ df | perl -a -nE 'say $F[4] =~ s/%//r if eof'

---