Discussion :

[gool42]

Voila je dois ecrit un script qui ping des machines et dans le cas ou elle ne repondent pas cela lance un autre petit script qui la ping toute les 30 minutes
Mais voila le pb est que lors du passage a l'autre script de l'adresse IP il me dit :
Use of uninitialized value in string at ./pingE.pl line 10.
Use of uninitialized value in print at ./pingE.pl line 15.
Use of uninitialized value in string at ./pingE.pl line 16.
Use of uninitialized value in concatenation (.) or string at ./pingE.pl line 21.
Use of uninitialized value in concatenation (.) or string at ./pingE.pl line 21.
Use of uninitialized value in concatenation (.) or string at ./pingE.pl line 21.

Le premier script qui appel le 2eme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/usr/bin/perl -w
 
use strict;
use Net::Ping;
use Mail::Sendmail;
 
 
my @cam = ("192\.168\.1\.70","192\.168\.1\.59"); ##("192.168.1.150","192.168.1.152","192.168.1.153","192.168.1.154","192.168.1.157","192.168.1.158","192.168.1.159","192.168.1.70","192.168.1.59");
 
my $p = Net::Ping->new("icmp");
my $chemin = "./pingE.pl";
 
foreach my $ip (@cam){
	if ($p->ping("$ip")) {
		my %mail = ( To      => "",
                	   From    => "",
			   Subject => "",
                	   Message => 
                	  );
		if (sendmail %mail) { print "Mail sent OK ". $ip.".\n" }
	        else { print "Error sending mail: $Mail::Sendmail::error \n" }
	} 
	else {
		print $chemin;
		print "\n";
		print $ip;
		print "\n";
		system($chemin,$ip);
	}
}

Le 2eme Script qui fait le ping en cas de non reponce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/usr/bin/perl -w
 
use strict;
use Net::Ping;
use Mail::Sendmail;
my $p = Net::Ping->new("icmp");
 
 
 
print "$_";
 
 
 
my $ipE=$_[1];
print $ipE;
if ($p->ping("$ipE")) {
		print " oK ";
		return;
	} else {
		print " Ko ";
		my %mail = ( To    =>,
                	   From    =>
			   Subject =>",
                	   Message => 
                	  );
		if (sendmail %mail) { print "Mail sent OK ". $ipE.".\n" }
	        else { print "Error sending mail: $Mail::Sendmail::error \n" }
		sleep(1800);
		&pingE($ipE);
	}

Merci d'avance de vos reponce

[MarneusCalgarXP]

Parce que dans ton 2° script, pour lire les arguments, il faut passer par le tableau @ARGV et non pas le tableau @_. C'est dans une sub qu'on peut lire @_... De plus, tu lis l'élément d'indice 1 alors que c'est l'élément d'indice 0 qu'il faut lire:

Code :

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

my $ipE=$_[1];

à remplacer par

Code :

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

my $ipE=$ARGV[0];

[gool42]

merci c'est exactement ce que je voulais ,
il me reste un petite question,
system fait un fork mais j aimerai (si c possible bien sur) pouvoir continuer le script pere sans attendre que le fils finisse.

[MarneusCalgarXP]

Il suffit de faire un fork manuellement:

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
my $chemin = "./pingE.pl";
my @pids;
 
sub lanceMonProg($)
{
    my ($ip) = @_;
    die("problème de fork !!!!\n"), unless defined(my $pid = fork());
    if ($pid == 0)
    {
        # c'est le fils ! on execute la commande
        system($chemin, $ip);
        # et après, on sort
        exit;
    }
    else 
    {
        # c'est le père, on n'attend pas le fils, on continue ! on stocke juste le pid
        push(@pids, $pid);
    }
}
 
# on lance le prog en parallèle
&lanceMonprog('192.168.12.15');
# suite du code, executée immédiatement
print("wé on continue sans attendre le résultat !\n");
 
# sub appelée automatiquement en fin de programme
END {
    # on attend la fin des fils
    foreach my $pid(@pids) {
        waitpid($pid, 0);
    }
}