tableau 2 dimensions

**parisien91** · 03/06/2008, 17h37

Bonsoir,

Je viens ici parceque je ne comprends pas comment faire un tableau a double entrée, meme en allant sur le FAQ tableau prevue a cet effet, je ne comprends pas!

je vous explique:
Variable globale:
@tableau

1fct
{
J'ai fais une requete de sql pour aller cherché 2 champs que j'envois dans un tableau

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
 
# la requete est avant et elle est bonne
my $sth3 = $dbh-> prepare($req3);
 
    # Execution de la requete si le nombre de ligne en reponse est different de 1, alors message d'erreur.
    # Mettre les valeurs dans le tableau Values_in.
 
    $sth3-> execute();
 
    my ($values_out_date, $values_out_snmp);
    $sth3->bind_columns( \$values_out_date , \$values_out_snmp);
 
 
    while ( $sth3->fetch() )
    {
	push @tableau_values_out, $values_out_date, $values_out_snmp;
	print ("$values_out_date, $values_out_snmp \n" );
 
  	if (@tableau_values_out == 0)
	{
	    &print_error("95PercentileGraph.pl INFO: Le tableau ne contient aucunes valeurs. \n");
	    $sth3->finish;
	    $dbh -> disconnect;
	    exit(1);
	}

}

2eme fonction
{
Je veux recuperer les 2 colonnes du tableau pour les mettre dans un fichier .rrd

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
#sert a me dire combien y il a de valeurs dans le tableau il m'en indique 576 (2colonnes *288) donc la je comprends pas deja!!!
 
my $longueur = @tableau_values_in;
    print ("$longueur \n");
 
 
    if ($longueur != $longueur1)
    {
	&print_error("95PercentileGraph.pl INFO: Le tableau ne contient pas le meme nombre de valeurs dans les deux tableaux. \n");
	exit(1);
    }
    else
    {
	print ("Les deux tableaux ont un nombre de valeurs equivalentes. \n");
    }
 
#creation de la base rrd
    print "creation d'une base RRD pour l'interface : $type.\n";
    RRDs::create  ("$chemin.rrd",
		   "--start $date_start",
		   "--end $date_end",
		   "-s 300",
		   "DS::COUNTER:600:0:U",	
		   "RRA:AVERAGE:0.5:1:600", 
		   "RRA:AVERAGE:0.5:6:700",
		   "RRA:AVERAGE:0.5:24:775", 
		   "RRA:AVERAGE:0.5:288:797", 
		   "RRA:MIN:0.5:1:600",
		   "RRA:MIN:0.5:6:700",
		   "RRA:MIN:0.5:24:775", 
		   "RRA:MIN:0.5:288:797", 
		   "RRA:MAX:0.5:1:600",
		   "RRA:MAX:0.5:6:700", 
		   "RRA:MAX:0.5:24:775",
		   "RRA:MAX:0.5:288:797", 
		   "RRA:LAST:0.5:1:600",
		   "RRA:LAST:0.5:6:700", 
		   "RRA:LAST:0.5:24:775",
		   "RRA:LAST:0.5:288:797"
		   );
 
 
# et la je veux remplir la base rrd avec un tant que et c'est la que je sais pas comment je l'utilise le tableau		   
 
 
    while ($longueur >= 0)
    {
			RRDs::update ("$chemin.rrd", "$tableau_values_in[0][1]");
			$longueur --;  
    }
    print ("$longueur.\n");

}

sachant que j'ai ca comme erreur si sa peut vous aider
"Can't use string ("1208901302") as an ARRAY ref while "strict refs" in use at ./95PercentileGraph.pl line 314."

J'espere vous pourrez m'aider!! et m'indiqué mes erreurs

**Schmorgluck** · 03/06/2008, 19h44

J'avoue que je ne comprends strictement rien à ton script. Tu devrais le mettre dans des balises CODE au lieu de mélanger CODE et texte normal, c'est illisible. Et vu que tu ne dis pas où l'erreur se produit, ni sur quelle variable, ni où tu as déclaré, par exemple, la variable @tableau_values_in, je vois mal comment on pourrait t'aider.

**parisien91** · 04/06/2008, 09h20

OK alors je refais sa proprement:!!!

Code :

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

1
2
3
4
5
6
7
 
##                                                                                                                                                           
## Variables Globales :                                                                                                                                     
##                                                                                                                                                           
 
my @tableau_values_in;
my @tableau_values_out;

Donc la je fais pour le cas @tableau_values_in, sachant que values_out c'est la meme chose en changeant le nom des variables.

donc la fonction ou je fais la requete pour remplir mon tableau

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
sub get_values_in($$$)
{
    my $host_id = $_[0];
    my $date_start = $_[1];
    my $date_end = $_[2];
 
    my $base = '95percentile';
    my $host = 'localhost';
    my $user = 'root';
    my $dbtype = 'mysql';
 
    my($month1, $day1, $year1) = $date_start =~/(\d{2})(\d{2})(\d{4})/;
    my $time1 = timelocal(0,0,0,$day1,$month1 -1,$year1);
 
    my($month2, $day2, $year2) = $date_end =~/(\d{2})(\d{2})(\d{4})/;
    my $time2 = timelocal(0,0,0,$day2,$month2 -1,$year2);
 
 
    # Connection à base de donnée mysql, si pas de connection a la DB msg d'erreur.                                                                          
    my $dbh;
    $dbh= DBI->connect("DBI:$dbtype:dbname=$base;host=$host", $user);
    if (not $dbh)
    {
        &print_error("95PercentileGraph.pl ERROR: Failed to connect on mysql server. \n");
        exit (1);
    }
    # Preparation de la requete a executer.                                                                                                                  
    # La conversion du temps systeme en temps unix ce fait grace a UNIX_TIMESTAMPE dans la reque                                                             
    my $req2 ="select UNIX_TIMESTAMP(`VALUES_IN_DATE`), `VALUES_IN_SNMP` from `VALUES_IN`  where `HOST_ID`='$host_id' and UNIX_TIMESTAMP(`VALUES_IN_DATE`) B\
ETWEEN '$time1' AND '$time2' order by `VALUES_IN_DATE` desc;";
 
    # Pour le test de resultats:                                                                                                                             
    # my $req2 ="select count(`VALUES_IN_SNMP`), count(UNIX_TIMESTAMP(`VALUES_IN_DATE`)) from `VALUES_IN`  where `HOST_ID`='$host_id' and UNIX_TIMESTAMP(`VA\
LUES_IN_DATE`) BETWEEN '$time1' AND '$time2' order by `VALUES_IN_DATE` desc;";                                                                               
    my $sth2 = $dbh-> prepare($req2);
 
    # Execution de la requete si le nombre de ligne en reponse est different de 1, alors message d'erreur.                                                   
    # Mettre les valeurs dans le tableau Values_in.                                                                                                          
 
    $sth2-> execute();
 
    my ($values_in_snmp, $values_in_date);
    $sth2->bind_columns( \$values_in_snmp, \$values_in_date);
 
 
    while ( $sth2->fetch() )
    {
        push @tableau_values_in, $values_in_snmp, $values_in_date;
        print ("$values_in_snmp, $values_in_date \n" );
 
        if (@tableau_values_in == 0)
        {
            &print_error("95PercentileGraph.pl INFO: Le tableau ne contient aucunes valeurs. \n");
            $sth2->finish;
            $dbh -> disconnect;
            exit(1);
        }
 
    }
 
    $sth2 ->finish;
    $dbh -> disconnect;
 
    print ("sa marche3 \n");
}

et maintenant ma fonction ou il faut que je réutilise mon tableau pour mettre les valeurs qui sont dedans vers ma base .rrd

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
sub create_in_rrd($$$)
{
 
    my $rrd = '/root';
    my $img = '/root';
    my $type = 'values_in';
    my $time = `date +%s`;
    my $chemin = "${rrd}/${type}-${time}";
 
    my $host_id = $_[0];
    my $date_start = $_[1];
    my $date_end = $_[2];
 
    my($month1, $day1, $year1) = $date_start =~/(\d{2})(\d{2})(\d{4})/;
    my $time1 = timelocal(0,0,0,$day1,$month1 -1,$year1);
 
    my($month2, $day2, $year2) = $date_end =~/(\d{2})(\d{2})(\d{4})/;
    my $time2 = timelocal(0,0,0,$day2,$month2 -1,$year2);
 
 
    my $longueur = @tableau_values_in;
    print ("$longueur \n");
    my $longueur1 = @tableau_values_out;
 
    if ($longueur != $longueur1)
    {
     	&print_error("95PercentileGraph.pl INFO: Le tableau ne contient pas le meme nombre de valeurs dans les deux tableaux. \n");
        exit(1);
    }
    else
    {
        print ("Les deux tableaux ont un nombre de valeurs equivalentes. \n");
    }
 
  print "creation d'une base RRD pour l'interface : $type.\n";
    RRDs::create  ("$chemin.rrd",
                   "--start $date_start",
                   "--end $date_end",
                   "-s 300",
                   "DS::COUNTER:600:0:U",
                   "RRA:AVERAGE:0.5:1:600",
                   "RRA:AVERAGE:0.5:6:700",
                   "RRA:AVERAGE:0.5:24:775",
                   "RRA:AVERAGE:0.5:288:797",
                   "RRA:MIN:0.5:1:600",
                   "RRA:MIN:0.5:6:700",
                   "RRA:MIN:0.5:24:775",
                   "RRA:MIN:0.5:288:797",
                   "RRA:MAX:0.5:1:600",
                   "RRA:MAX:0.5:6:700",
                   "RRA:MAX:0.5:24:775",
                   "RRA:MAX:0.5:288:797",
                   "RRA:LAST:0.5:1:600",
                   "RRA:LAST:0.5:6:700",
                   "RRA:LAST:0.5:24:775",
                   "RRA:LAST:0.5:288:797"
     	           );
 
 
    while ($longueur >= 0)
    {
        RRDs::update ("$chemin.rrd", "$tableau_values_in[$longeur]");
          $longueur --;
      }
}

l'erreur dont je vous est fait par venais de la:

Code :

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

1
2
3
4
5
 while ($longueur >= 0)
    {
        RRDs::update ("$chemin.rrd", "$tableau_values_in[$longeur]");
          $longueur --;
      }

Fonction principale:

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
sub main($$$)
{
 
    my $host_id = $_[0];
    my $date_start = $_[1];
    my $date_end = $_[2];
    my $nb_args = @_;
 
 
 
    check_args($host_id, $date_start, $date_end, $nb_args);
    get_values_in($host_id, $date_start, $date_end);
    get_values_out($host_id, $date_start, $date_end);
    create_in_rrd($host_id, $date_start, $date_end);
 
 
}
 
&main(@ARGV);
exit (0);

voila j'espere avoir été plus clair!

**Jasmine80** · 04/06/2008, 09h24

Code :

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

sub main($$$)

Tu devrais supprimer les $, Jedai nous a déconseillé de le faire.

**parisien91** · 04/06/2008, 09h29

Envoyé par Jasmine80

Code :

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

sub main($$$)

Tu devrais supprimer les $, Jedai nous a déconseillé de le faire.

Quelle est la ligne de l'erreur?

La 312 c'est a dire

Code :

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

1
2
3
4
5
 while ($longueur >= 0)
    {
        RRDs::update ("$chemin.rrd", "$tableau_values_in[$longeur]");    #312
          $longueur --;
      }

L'erreur est dans la mauvaise utilisation du tableau 2dimensions...

**Jasmine80** · 04/06/2008, 09h38

Code :

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

RRDs::update ("$chemin.rrd", "$tableau_values_in[$longeur]");

Tu as oublié un 'u' à longueur. Si tu utilisais le pragma strict, cela ne serait pas arrivé.

**Jasmine80** · 04/06/2008, 09h40

Code :

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

1
2
3
4
sub create_in_rrd($$$)
{
 
}

tu dois supprimer le ($$$)

Code :

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

1
2
3
4
sub create_in_rrd
{
 
}

tableau 2 dimensions

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager