Recherche:

Bonjour,

Désolé du retour tardif j'étais en déplacement.

Alors pour la date je voudrais écrire la date de traitement du genre juste avant de renvoyé la sortie de la commande ping j'écris la...

Ca fonctionne un grand merci.

Alors mon code actuel :

#!C:\Dwimperl\perl\bin
use strict;
use warnings;

#Première partie de script je récupère les adresses IP de mon fichier, je les ping...

Merci de ton retour et de ton aide précieuse qui grâce à tes commentaires me permet de comprendre mes erreurs et comprendre tes solutions.

Alors le split je l'ai utilisée car j'avais vu ça sur un...

J'ai testé et cela fonctionne par contre je n'ai que le résultat de la dernière adresse de mon fichier, je n'ai pas les autres donc je me poses la question de si toutes mes adresses sont bien mises...

Ah d'accord j'étais pas prêt de trouver. Merci de ton retour je test ça demain après-midi.

Encore merci.

Merci de ton retour.

Alors dans le fichier result_log j'obtiens : GLOB(0x4e0bd4) au lieu d'avoir les pings en erreur

Et dans le fichier result_ping : au lieu d'avoir tous les pings, je n'ai que...

Bonjour à tous,

Je débute en perl et pour m'entraîner, on m'a demandé de fiare un script en perl qui utilise une commande externe, joue avec les fichiers et les dates.

J'ai donc réaliser un...

Bonjour à tous,

Tout d’abord je m'y connait très peu en Base de données, je suis dans le monde de la supervision et j'ai un soucis avec un outils reposant sur SybaseIQ, je vous explique.

J'ai...

Bonjour,

J'avais déjà poster ici pour quelques soucis de perl pour superviser apache depuis j'ai bien avancer mais il me reste un soucis alors voila j'ai une sortie de commande qui me donne :

...

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,...

Bonjour à tous,

Je débarque dans le monde de developpez.com car je pense que ce site me servira de plus en plus dans mon boulot.

Merci de votre accueil.