Discussion :

[Moymoy]

Bonsoir
Et oui ! encore une question sur ces fameuses regex's :p

Code :

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

1
2
3
4
$TempCpu = `sensors | grep "Core" | tr "\n" " " | sed -re 's/ {2,}/ /g'`;
# > Core 0: +51.0°C (high = +105.0°C, crit = +105.0°C) Core 1: +53.0°C (high = +105.0°C, crit = +105.0°C)
$TempCpu =~ s/\s*(Core)\s*(\d{1}).*(: \+\d{2})\.\d{1}(°C).*/$1$2$3$4/g;
# > Core0: +51°C

Je voudrais, en fait, récupérer les températures de tout les Core's.

[Lolo78]

Hum
ta première ligne c'est du shell plus que du Perl. Franchement, Perl t'offre un contrôle beaucoup plus fin du résultat.
Pour ta troisième ligne, ne fait-elle pas ce que tu souhaites? Ou as-tu un message d'erreur? Peux-tu fournir précisément la ligne en entrée et le résultat souhaité.

[JeanMi3000]

perso, j'aurai pensé différemment

Code :

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

1
2
3
4
5
 
foreach my $core (split(/\n/, `sensors | grep "Core" | sed -re 's/ {2,}/ /g'`; )){  #a voir si ça fonctionne sans la cmde sed
   $core =~ s/\s*(Core)\s*(\d{1}).*(: \+\d{2})\.\d{1}(°C).*/$1$2$3$4/g;
   print "Core :: $core\n";
}

on récupère toujours la commande qui n'est pas du perl, mais qui doit être du sh ou du ksh
on garde le saut de ligne pour appeler facilement la fonction split
puis on affiche les températures de chaque core


je l'ai testé avec ce bout de code :

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl -w
my $st = "Core 0: +51.0°C (high = +105.0°C, crit = +105.0°C)\nCore 1: +53.0°C (high = +105.0°C, crit = +105.0°C)";
foreach my $core (split(/\n/, $st)){
   $core =~ s/\s*(Core)\s*(\d{1}).*(: \+\d{2})\.\d{1}(°C).*/$1$2$3$4/g;
   print "$core\n";
}

[Philou67430]

Pourrais-tu :
- nous donner un exemple de ce que retourne "sensors" (sans aucune manipulation shell), car comme dis lolo, si tu utilises perl pour faire un traitement, autant tout faire avec (et limiter au maximum le contenu de la commande shell)
- préciser si tu ne veux que la température du Core 0 ou si tu veux aussi celle du Core 1 ?

[Moymoy]

Bonjour et merci pour vos réponses.

alors, la sortie de 'sensors' :

Code :

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

1
2
3
4
5
~$ sensors
coretemp-isa-0000
Adapter: ISA adapter
Core 0:       +43.0°C  (high = +105.0°C, crit = +105.0°C)
Core 1:       +44.0°C  (high = +105.0°C, crit = +105.0°C)

en fait, ce qui m'interesse c'est "Core 0: +43.0)C" ET "Core 1: +44.0°C", le reste pas besoin.
Apres si vous avez des solution en pure Perl sans passer par le shell, ça serais largement mieux .

[CosmoKnacki]

Si tu n'as pas besoin d'utiliser le résultat dans un script perl par la suite, une solution rapide est d'utiliser awk dans le terminal:

Code :

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

sensors | awk '/^Core/{print $1 $2" "$3}'

L'équivalent en une ligne de commande perl avec l'autosplit:

Code :

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

sensors | perl -lane 'print "$F[0] $F[1] $F[2]" if /^Core/'