Discussion :

[And_the_problem_is]

Bonjour

Comment fait on pour passer un tableau et un variable en même temp dans une fonction ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
check_list(\@tableau, $locus{$var}[$z]);
 
 
sub check_list
{
	@ess = $_[0]; #############################
$variable = $_[1];
	foreach $t (0..$#ess)
	{
		print "\n$t $ess[$t] $_[1] ";
	}
}

Je sens bien que le problème vient de cette ligne mais le OReilly ne m'aide pas beaucoup d'après lui les arguments sont dans $_[0] ou dans @_ mais j'arrive pas à lui faire prendre le tableau.
Il m'écris ARRAY(....) au lieu de $ess[$t]

Help please

Merci d'avance

[Arioch]

Bonjour,

je procèderais comme ceci :

version avec référence sur le tableau

Code :

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

1
2
3
4
5
6
7
8
9
check_list(\@tableau, $locus{$var}[$z]);
sub check_list
{
	my ($ess, $variable) = @_;
        for (my $i = 0; $i < scalar(@{$ess}); ++$i)
        {
		print "\n$i $ess->[$i] $variable ";
	}
}

version sans référence

Code :

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

1
2
3
4
5
6
7
8
9
check_list(@tableau, $locus{$var}[$z]);
sub check_list
{
	my (@ess, $variable) = @_;
        for (my $i = 0; $i < scalar(@ess); ++$i)
        {
		print "\n$i $ess[$i] $variable ";
	}
}

[Jeh]

la je devrais pas me cracker..
Première solution :

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
check_list(\@tableau, $locus{$var}[$z]);
 
 
sub check_list
{
   my ($tab,$variable) = @_;
   #@ess = $_[0]; 
#$variable = $_[1];
   my @ess = @$tab; #tu récupères ton tableau
   my $longueur = @ess;
# foreach $t (0..$#ess)
   foreach my $t (0..$longueur)
   {
      #print "\n$t $ess[$t] $_[1] ";
      print "\n$t $ess[$t] $variable ";
   }
}

Deuxième solution :

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
check_list($locus{$var}[$z],@tableau);
 
 
sub check_list
{
   my ($variable,@ess) = @_;
   #@ess = $_[0]; 
#$variable = $_[1];
 
   my $longueur = @ess;
# foreach $t (0..$#ess)
   foreach my $t (0..$longueur)
   {
      #print "\n$t $ess[$t] $_[1] ";
      print "\n$t $ess[$t] $variable ";
   }
}

[Arioch]

Jeh, je comprend pas pourquoi, dans ton 1er exemple, tu passes ton tableau par adresse dans ta fonction et que tu crées un tableau qui contient ce que contient la référence. Le mieux était de bosser directement avec la référence, non ?

Arf, j'oublie le sempiternel TIMTOWTDI

[Jeh]

bah c'est juste histoire de m'adapter à son exemple sans tout changer.
Mais c'est vrai que c'est pas forcément ce qu'il y a de mieux. Et puis j'aime pas travailler avec des références, j'trouve que ça complexifie le code. Bon, là tu va me dire...pas très complexe...
J'vais m'donner une excuse () : je connais pas le perl depuis longtemps...et les références, ça fait pas super longtemps que j'ai compris comment ça marchait.
: : TIMTOWTDI

[Arioch]

Et puis j'aime pas travailler avec des références...

Spa compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# pointer sur le 1er élem d'un tableau via référence
$ref = \@tab;
print "$ref->[0]\n";
print "$tab[0]\n";  # idem en passant par le tableau
 
# avec un hash, 2 exemples faisant la même chose
$ref = \%hash;
print "clé 1 = $ref->{1}\n";
print "clé 1 = $hash{1}\n";
 
# et avec un scalaire
$ref = \$scalaire;
print "scalaire = $$ref\n";
print "scalaire = $scalaire\n";

: : TIMTOWTDI

There Is More Than One Way To Do It

[Jeh]

There Is More Than One Way To Do It

Là c'est plus parlant...je note !

[And_the_problem_is]

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
foreach $var (keys %locus)
{
	@tableau=();
	foreach $z (0..$#{$locus{$var}})
	{
		print "\n$z $locus{$var}[$z]";
		$retour = check_list(\@tableau,$locus{$var}[$z]);
		if ($retour == 0)
		{
			push(@tableau,$locus{$var}[$z]);
		}
	}
	$final{$var}=[@tableau];
	undef @tableau;
}
 
sub check_list
{
	$rep = 0;
	my (@ess,$toto) = @_;
	for ($t=0;$t<scalar(@ess);$t++)
	{
		if ($ess[$t] == $toto)
		{
			$rep = 1;
		}
		print "\tAA $t YY $ess[$t] TT $toto";
	}
	return $rep;
}

Ca ne marche pas le but est de retirer les doublons d'une liste pour les mettre dans un tableau et ça ne marche pas même avec l'aide précieuse que vous me donnez

Voila ce qu'il me fait :
445 125 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 125 TT
446 125 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 125 TT
447 125 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 125 TT
448 141 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 141 TT
449 123 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 123 TT
450 101 AA 0 YY ARRAY(0x10ae00) TT AA 1 YY 101 TT

HELP

[Jedai]

And_the_problem_is, pourquoi n'utilises tu pas ma fonction check_list ?? Elle marchait très bien, à part un léger détail (les accolades autour de "$_[0]"), tu aurais dû soulever le problème dans ce thread... Voilà un script qui fait à peu près ce que tu veux, avec une version corrigée de ma fonction :

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
 
#! /usr/bin/perl
 
use strict;use warnings;
 
 
sub check_list { return (grep { $_ == $_[1] } @{$_[0]});} 
 
my @ar1 = (1, 2, 3, 5, 5, 3, 1);
my @ar2;
 
foreach my $elt (@ar1){
    if (not check_list(\@ar2, $elt))
    {
        push(@ar2,$elt)
    } 
}
 
$, = " ";
print @ar2;

Attention cette fonction est pour des tableaux de valeur numériques seulement, pour des string, il faut remplacer "==" par "eq" dans le grep.

--
Jedaï

[And_the_problem_is]

Mais c'est ce que j'ai fait mais ça ne marchait pas j'y ai cru mais en fait non

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
 
foreach $var (keys %locus)
{
	@tableau=();
	foreach $z (0..$#{$locus{$var}})
	{
		if (not check_list(@tableau, $locus{$var}[$z])) 
		{ 
			push(@tableau,$locus{$var}[$z]);
		} 
	}
	for ($w = 0; $w < scalar(@tableau);$w++)
	{
		print "\nTOTO $var TITI $tableau[$w]";
	}
	$final{$var}=[@tableau];
	undef @tableau;
}
 
sub check_list { return (grep { $_ eq $_[1] } @{$_[0]});}

TOTO gwm186 TITI 135
TOTO gwm186 TITI 125
TOTO gwm186 TITI 123
TOTO gwm186 TITI 125
TOTO gwm186 TITI 125
TOTO gwm186 TITI 125
TOTO gwm186 TITI 141
TOTO gwm186 TITI 123

Normalement après TITI je ne dvrais avoir qu'une seule fois 125 etc et ce n'est pas le cas. Donc j'ai essayé de bidouiller et ça ne marche pas et je sais plus quoi faire

Donc HELP

[Jedai]

Il faut faire attention aux détails, ici tu as au moins deux lignes de fausses :

Code :

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

1
2
 
if (not check_list(\@tableau, $locus{$var}[$z]))  #pas @tableau, \@tableau

Par ailleurs, j'ai dit qu'il fallait remplacer "==" par "eq" si tu avais affaire à un tableau de string, or à priori, 125 ou 135 n'a rien d'une chaîne de caractère !!!!

Code :

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

1
2
 
sub check_list { return (grep { $_ == $_[1] } @{$_[0]});}

[And_the_problem_is]

Merci beaucoup ça mache c'est fout comme un petit \ de rien du tout peu tout changer

Encore une fois merci