Pb de passage de parametre d'un script a un autre

Version imprimable

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:

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:

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

15/12/2006, 11h51
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:

my $ipE=$_[1];

à remplacer par

Code:

my $ipE=$ARGV[0];
15/12/2006, 11h57
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.

Il suffit de faire un fork manuellement:

Code:

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);
    }
}