Discussion :

[Super_carotte]

Bonjour,

J'ai pleins de questions mais je vais essayer d'avancer pas a pas.

1- Comment, en perl, afficher un tableau structuré comme PHP sait le faire avec:
echo "<PRE>";
print_r($_GET);
echo "</PRE>";

Car actuelement, j'obtiens:

Code :

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

tabProc : Job=HASH(0x9010d0c) Job=HASH(0x9031c70) Job=HASH(0x9031ce8) Job=HASH(0x9031d48) Job=HASH(0x9031da8) Job=HASH(0x9031e08) Job=HASH(0x9031e68) Job=HASH(0x9031ec8) Job=HASH(0x9031f28)

J'ai essayé en utilisant Data::dumper mais ça n'a pas fonctionné.

Le but est d'afficher le tableau "@tabProc"

Merci,
Benjamin.

Voici le code:

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
#!/usr/bin/perl -w
 
package Job;
 
my @listJob = ();
my @tabProc = ();
 
sub new {
	   #my $self={};
	   my ($class, $ID_PROCESS, $ALIAS, $PERE, $FILS, $LOCK, $TYPE) = @_;
	   my $this = {};
	   bless($this, $class);
 
 
	   $this->{ID_PROCESS} = $ID_PROCESS;
	   $this->{ALIAS} = $ALIAS;
	   $this->{PERE} = $PERE;
	   $this->{FILS} = $FILS;
	   $this->{LOCK} = $LOCK;
 
 
	  push(@listJob,$ID_PROCESS);   
	  push(@tabProc,$this);
 
	return $this;
   }
 
 
sub getID {
	my ($this) = @_;
	return $this->{ID_PROCESS};
}
sub getAlias {
	my ($this) = @_;
	return $this->{ALIAS};
}
sub getPere {
	my ($this) = @_;
	return $this->{PERE};
}
sub getFils {
	my ($this) = @_;
	return $this->{FILS};
}
sub getLock {
	my ($this) = @_;
	return $this->{LOCK};
}
1;
 
my $pere;
my $fils;
 
$pere = undef;
$fils = "4,5";
my $proc1 = new Job( "1", "alias1", $pere, $fils, "unlock", "unknown");
 
$pere = undef;
$fils = "6";
my $proc2 = new Job( "2", "alias2", $pere, $fils, "unlock", "unknown");
 
$pere = undef;
$fils = "8,9";
my $proc3 = new Job( "3", "alias3", $pere, $fils, "unlock", "unknown");
 
$pere = "1";
$fils = "7";
my $proc4 = new Job( "4", "alias4", $pere, $fils, "unlock", "unknown");
 
$pere = "1";
$fils = "7";
my $proc5 = new Job( "5", "alias5", $pere, $fils, "unlock", "unknown");
 
$pere = "2";
$fils = "8";
my $proc6 = new Job( "6", "alias6", $pere, $fils, "unlock", "unknown");
 
$pere = "4,5";
$fils = "8";
my $proc7 = new Job( "7", "alias7", $pere, $fils, "unlock", "unknown");
 
$pere = "7,5,6,3";
$fils = undef;
my $proc8 = new Job( "8", "alias8", $pere, $fils,, "unlock", "unknown");
 
$pere = "3";
$fils = undef;
my $proc9 = new Job( "9", "alias9", $pere, $fils, "unlock", "unknown");
 
 
print "listJob : @listJob\n";
print "tabProc avant traitement : @tabProc\n";
 
 
	foreach my $row (@tabProc) 
	{	
		if ($row[PERE] eq undef)
		{
			$row[PERE] = "NULL";
			print "$row[PERE]\n";
		}
		else
		{
			$row[PERE] =~ s/,/ /g;	
			print "$row[PERE]\n";
		}
	}
 
print "tabProc apres traitement : @tabProc\n";

[djibril]

Tu fais ceci :

Code :

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

1
2
3
4
5
use Data::Dumper;
 
 
print Dumper @TABLEAU;
print Dumper %MON_HASH;

[Super_carotte]

ça me met les memes messages d'erreure que lorsque j'avai essayé a savoir:

Code :

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

1
2
3
Name "Job::Dumper" used only once: possible typo at scriptcal.pl line 93.
listJob : 1 2 3 4 5 6 7 8 9
print() on unopened filehandle Dumper at scriptcal.pl line 93.

Voici le code:

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#!/usr/bin/perl -w
use Data::Dumper;
#use diagnostics;
package Job;
 
my @listJob = ();
my @tabProc = ();
 
sub new {
 
	   my ($class, $ID_PROCESS, $ALIAS, $PERE, $FILS, $LOCK, $TYPE) = @_;
	   my $this = {};
	   bless($this, $class);
 
 
	   $this->{ID_PROCESS} = $ID_PROCESS;
	   $this->{ALIAS} = $ALIAS;
	   $this->{PERE} = $PERE;
	   $this->{FILS} = $FILS;
	   $this->{LOCK} = $LOCK;
 
 
	  push(@listJob,$ID_PROCESS);   
	  push(@tabProc,$this);
 
	return $this;
   }
 
 
sub getID {
	my ($this) = @_;
	return $this->{ID_PROCESS};
}
sub getAlias {
	my ($this) = @_;
	return $this->{ALIAS};
}
sub getPere {
	my ($this) = @_;
	return $this->{PERE};
}
sub getFils {
	my ($this) = @_;
	return $this->{FILS};
}
sub getLock {
	my ($this) = @_;
	return $this->{LOCK};
}
1;
 
my $pere;
my $fils;
 
$pere = undef;
$fils = "4,5";
my $proc1 = new Job( "1", "alias1", $pere, $fils, "unlock", "unknown");
 
$pere = undef;
$fils = "6";
my $proc2 = new Job( "2", "alias2", $pere, $fils, "unlock", "unknown");
 
$pere = undef;
$fils = "8,9";
my $proc3 = new Job( "3", "alias3", $pere, $fils, "unlock", "unknown");
 
$pere = "1";
$fils = "7";
my $proc4 = new Job( "4", "alias4", $pere, $fils, "unlock", "unknown");
 
$pere = "1";
$fils = "7";
my $proc5 = new Job( "5", "alias5", $pere, $fils, "unlock", "unknown");
 
$pere = "2";
$fils = "8";
my $proc6 = new Job( "6", "alias6", $pere, $fils, "unlock", "unknown");
 
$pere = "4,5";
$fils = "8";
my $proc7 = new Job( "7", "alias7", $pere, $fils, "unlock", "unknown");
 
$pere = "7,5,6,3";
$fils = undef;
my $proc8 = new Job( "8", "alias8", $pere, $fils,, "unlock", "unknown");
 
$pere = "3";
$fils = undef;
my $proc9 = new Job( "9", "alias9", $pere, $fils, "unlock", "unknown");
 
 
print "listJob : @listJob\n";
print Dumper @tabProc;

Grâce à use diagnostics j'ai pu voir qu'il n'arrivait pas a ouvrir un fichier.
Je pense que Dumper ne doit pas etre installé sur ma machine.
Perl ne l’installe t'il pas par défaut ?

[djibril]

Data::Dumper est dans le core de Perl donc par défaut déjà installé.

[Super_carotte]

Dans ce cas, comprenez vous quelle est la raison de cette erreur?

[Beniou]

Bonjour,

Oui Data::Dumper est bien dans le core de Perl donc installé par défaut. Le problème ici est que tu l'utilises dans ton package et qu'il cherche donc la fonction Dumper de ton package d'où le :

Name "Job::Dumper" used only once: possible typo at scriptcal.pl line 93.

Si tu réécries de cette façon cela devrait fonctionner (tout du moins le dump )

Code :

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

print Data::Dumper::Dumper @tabProc;

[Super_carotte]

Merci beaucoup, en effet, ça fonctinne.

Par contre, j'aimerai bien comprendre la raison.

Donc d'apres ce que tu dis, la raison est que j'ai intégrer le .pm qui devrait contenir la patie suivante:

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
package Job;
 
my @listJob = ();
my @tabProc = ();
 
sub new {
 
	   my ($class, $ID_PROCESS, $ALIAS, $PERE, $FILS, $LOCK, $TYPE) = @_;
	   my $this = {};
	   bless($this, $class);
 
 
	   $this->{ID_PROCESS} = $ID_PROCESS;
	   $this->{ALIAS} = $ALIAS;
	   $this->{PERE} = $PERE;
	   $this->{FILS} = $FILS;
	   $this->{LOCK} = $LOCK;
	   $this->{TYPE} = $TYPE;
 
 
	  push(@listJob,$ID_PROCESS);   
	  push(@tabProc,$this);
 
	return $this;
   }
 
 
sub getID {
	my ($this) = @_;
	return $this->{ID_PROCESS};
}
sub getAlias {
	my ($this) = @_;
	return $this->{ALIAS};
}
sub getPere {
	my ($this) = @_;
	return $this->{PERE};
}
sub getFils {
	my ($this) = @_;
	return $this->{FILS};
}
sub getLock {
	my ($this) = @_;
	return $this->{LOCK};
}
1;

directement dans mon code.

Donc: mettre la ligne

Code :

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

print Data::Dumper::Dumper @tabProc;

permet de faire un saut du ".pm virtuel" vers mon .pl puis un autre saut du .pl a la bibliothèque. C'est ça?