Discussion :

[Darkroro]

Salut, je suis débutant en Perl et je rencontre un soucis au niveau d'une expression régulière, si qqun peut m'aider, merci d'avance . . .

mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $cpuline = `top -n1 | grep Cpu`;
# => ceci met "Cpu(s):  6.4%us,  0.4%sy,  0.0%ni, 83.1%id, 10.1%wa,  0.0%hi,  0.1%si,  0.0%st" dans $cpuline
 
if($cpuline =~ /(\d{1,2})(\.)(\d)(\%)(us)/xi)
{
        print "$1  $2  $3  $4  $5";       # => me permet seulement de tester si ça marche ou pas
        print "\nOK\n";
}

Là mon expression régulière ne fonctionne pas . . . comme s'il trouvait pas ce que je cherche : un simple pourcentage

J'ai remarqué par contre que si je met ma cpuline en dur , au lieu de la prendre dynamiquement avec un top . . . il trouve bien mon 6.4%us . . .

Je pige pas . . .

Ah oui, ça me fait la même chose avec ma ligne mémoire . . .

[MarneusCalgarXP]

personnellement, je l'aurais plus écrit comme ça (les options x et i ne servent à rien ici d'ailleurs):

Code :

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

1
2
3
4
5
if ($cpuline =~ m/^Cpu\(s\):\s*(\d+\.\d+\%us)/)
{
        print "$1\n";       # => me permet seulement de tester si ça marche ou pas
        print "\nOK\n";
}

[Darkroro]

oui ça marche . . . si je mets la ligne Cpu en dur pour tester l'expression régulière . . . mais pas si je la récupère depuis un top . . .

[rcageot]

t'as essayé de regarder si le top ne te renvoie pas par hasard des caractères de contrôle comme séparateur dans ta variable ?
genre \t ou autre ?

[MarneusCalgarXP]

oui ça marche . . . si je mets la ligne Cpu en dur pour tester l'expression régulière . . . mais pas si je la récupère depuis un top . . .

Essaie de faire un chomp sur la variable cpuline après l'avoir récupérée, juste pour voir !

Code :

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

1
2
3
 
my $cpuline = `top -n1 | grep Cpu`;
chomp($cpuline);

[Darkroro]

ça y est ça marche . . . enfin . . . plus ou moins . . . j'ai viré le "us" et là tout fonctionne . . .

petit question now :

mon expression régulière c'est /(\d{1,2}\.\d\%)/

comment je fait pour récupérer tous les pourcentage de ma "cpuline" sans devoir répéter 7 fois la recherche ?

[rcageot]

essaye

my @prct = ($cpuline =~ m/(\d{1,2}\.\d\%)/g);