Discussion :

[Tybbow]

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 :

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

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 :

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

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.

[cmcmc]

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

Code :

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

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 $

[Lolo78]

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

[Philou67430]

TIMTOWDI

Code :

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

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