Recherche:

pour tester l'égalité des chaînes de caractères, il faut utiliser eq (ou ne pour la différence)


if ($status eq "OK")
{
$status = 1;
} else
{
$status = 0;
}

attention aux = ^^


my $substring = "requests/sec";
my $reqpsec;
while (<FILE>){
if (([\w\.]+) $substring/ )
{
$reqpsec = $1;
}

en gros voilà ce que je ferais, sachant que je suis très loin d'être expert en expressions régulières ^^

([\w\.]+) requests/sec - (\d+) B/second

(\d+) requests currently being processed, (\d+)...

hum attention au $ en fin d'expression, il indique que ce que tu cherches doit se trouver à la fin de la ligne, je ne sais pas si c'est bien le cas pour toi

il te faut éplucher les tutos sur les...

dans le 2e lien de mon précédent message il est indiqué comment récupérer un motif

En plus détaillé ça donne:

if ( $chaine =~ /\s(\d+\seuros)$/ ) {
my $prix = $1;

Dans cet exemple, on...

dans cette partie de la faq perl tu as comment parcourir un fichier

ensuite pour tester la chaine et rechercher des valeurs, les expressions régulières te seront utiles, voir les exemples ici
...

pour capturer la sortie d'une commande, tu peux utiliser les backsticks (cf la)