Recherche:

Merci beaucoup de ton aide, maintenant résultat lundi prochain lors des tests.

Au final j'ai trouvé une autre manière je la poste si des fois ça peut aider d'autres, je garde quand même tes conseils si des fois ça ne fonctionnait pas (je ne pourrais tester que lundi prochain)....

Ok donc ça donnerais un truc du genre :

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

Ouai je crois que je suis parti pour ça.

.0435 requests/sec - 66 B/second

1 requests currently being processed, 49 idle workers

index usage: 0%, cache usage: 0%

ajp hostname Init Ok ...

Au final je suis arrivé à ça, est-ce que vus pensez que c'est bon?

my $commande = "ipconfig";
my $resultat = `$commande > resultat.txt`;
print $resultat;

my $file = "resultat.txt";...

J'avais vu dans la FAQ mais je n'avais rien compris alors que la déjà beaucoup plus.

Donc en gros dans mon cas ça donnerais :

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

Merci du coup de main à nouveau.
Ouai dur de tout digéré pour le début. Mais ça va bien finir par rentré.
Je vais regarder les liens que tu m'as donné et essayé jusqu'à ce que ça fonctionne.

Par...

Merci du lien je pense qu'il me servira, au final j'ai trouver avec :


my $resultat = `$commande > resultat.txt`;

ça fonctionne maintenant les recherches vont être difficiles, je débute...

J'ai réalisé un petit draft pour donner l'idée générale de ce que je veux faire :

Sachant que pour l'instant je n'arrive pas à voir comment transférer le résultat de ma commande dans un fichier....

Bonjour à tous,

Alors voila je vous explique, je doit pour le boulot créer un script Perl pour superviser un serveur Apache or je ne connais pas encore Perl et le script doit être fait rapidement,...