Parcour d'un tableau contenant des objets

**Super_carotte** · 09/12/2011, 12h52

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** · 09/12/2011, 13h56

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** · 09/12/2011, 14h51

ç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** · 09/12/2011, 15h18

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

**Super_carotte** · 09/12/2011, 15h58

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

**Beniou** · 09/12/2011, 16h10

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