Discussion :

[Marsouin70]

Bonjour,

Je suis à la recherche de pistes pour résoudre un petit problème. L'opération que je veux réaliser porte peut être un nom qu m'aurait permis de faire plus de recherches google, mais je sèche là

J'ai N fichiers, contenant chacun une liste ce longueur non fixe.
Quelque chose comme :

Code :

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

1
2
3
4
@un = qw/TO TA/;
@de = qw/1 2 3/;
@tr = qw/a/;
@qu = qw/I II/;

Je dois en faire un fichier qui contiendrait :
TO 1 a I
TO 1 a II
TO 2 a I
TO 2 a II
TO 3 a I
TO 3 a II
TA 1 a I
and so on...

Je suis preneur de toutes pistes... j'ai trituré ce problème toute la journée et je sèche lamentablement

Merci d'avance pour toute aide.

[djibril]

Bonjour,

Voici en imbriquant tes tableaux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my @un = qw/TO TA/;
my @de = qw/1 2 3/;
my @tr = qw/a/;
my @qu = qw/I II/;
 
foreach my $a ( @un ) {
	foreach my $b ( @de ) {
		foreach my $c ( @tr ) {
			foreach my $d ( @qu ) {
				print "$a\t$b\t$c\t$d\n";
			}
		}
	}
}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TO      1       a       I
TO      1       a       II
TO      2       a       I
TO      2       a       II
TO      3       a       I
TO      3       a       II
TA      1       a       I
TA      1       a       II
TA      2       a       I
TA      2       a       II
TA      3       a       I
TA      3       a       II

[Marsouin70]

Merci Djibril pour cette réponse.

Ce qui est compliqué à gérer, dans mon cas, c'est le nombre non fixe de fichiers en entrée.

[Lolo78]

Dans ce cas, il faut sans doute envisager une petite procédure appelée récursivement pour chaque niveau d'imbrication.

Cela dit, il existe probablement un module CPAN. Je ne peux pas trop regarder maintenant depuis ma mini-tablette, mais recherche "CPAN cartesian product" ou "CPAN math cartesian product" ou "CPAN combinatorics" ou "CPAN math combinatorics" ou "CPAN algorithm combinatorics". Tu devrais récupérer une série de modules dont un ou plusieurs feront ce que tu veux faire.

[Marsouin70]

Bonjour,

Merci lolo78. Effectivement, il me manque les mots clefs pour faire une recherche google et/ou cpan.
Je vais creuser par là

[Marsouin70]

Peut être de ce coté ci :

Code :

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

Set::Product

[djibril]

Voilà !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl 
use strict;
use warnings;
use Set::Product qw(product);
 
my @un = qw/TO TA/;
my @de = qw/1 2 3/;
my @tr = qw/a/;
my @qu = qw/I II/;
my @mes_tableaux = (\@un, \@de, \@tr, \@qu);
 
product { print "@_\n" } @mes_tableaux;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TO 1 a I
TO 1 a II
TO 2 a I
TO 2 a II
TO 3 a I
TO 3 a II
TA 1 a I
TA 1 a II
TA 2 a I
TA 2 a II
TA 3 a I
TA 3 a II

[Lolo78]

Bonsoir,
le mieux est sans aucun doute d'utiliser l'un des modules du CPAN, comme l'a fait Djibril ci-dessus.

Toutefois, il peut être intéressant de coder l'algorithme soi-même à des fins pédagogiques, ou pour s'entraîner. Ou, dans mon cas ici, juste pour le fun:

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
#!/usr/bin/perl 
use strict;
use warnings;
use feature "say";
 
my @un = qw/TO TA/;
my @de = qw/1 2 3/;
my @tr = qw/a/;
my @qu = qw/I II/;
my @mes_tableaux = (\@un, \@de, \@tr, \@qu);
combine("", @mes_tableaux);
 
sub combine {
    my ($str, @tableaux) = @_;
    my $tabref = shift @tableaux;
    if (@tableaux) {
        combine ("$str $_", @tableaux) for @$tabref;
    } else {
        say "$str $_" for @$tabref;
    }
}

La fonction combine lit chaque élément du premier tableau qui lui est passé et s'appelle récursivement avec la liste des tableaux restants, et ainsi de suite. La descente récursive s'arrête quand le tableau de tableaux est vide.

Voici le résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 TO 1 a I
 TO 1 a II
 TO 2 a I
 TO 2 a II
 TO 3 a I
 TO 3 a II
 TA 1 a I
 TA 1 a II
 TA 2 a I
 TA 2 a II
 TA 3 a I
 TA 3 a II

J'ai mis moins de temps à écrire le code et à le tester (5 ou 6 minutes) qu'à rédiger ce message (8 ou 9 minutes).

[djibril]

[Marsouin70]

Merci pour vos retours.

J'ai combiné le module que j'avais indiqué (merci pour les mots clefs qui m'ont permis d'orienter mes recherches) et une boucle sur le contenu de mon @ARGV pour combiner la liste des N tableaux entre eux.

[Lolo78]

Tant mieux si tu as résolu ton problème, et l'utilisation d'un de ces modules est bien la solution que je recommandais.

Jette tout de même un coup d’œil au code "manuel" que je t'ai proposé, peut-être que tu apprendras quelque chose (enfin, j'espère). Et n'hésite pas à demander si tu te poses des questions.

[Marsouin70]

Je peux vous mettre mon programme, même si il va faire bondir les puristes, si vous le souhaitez.

[Lolo78]

Oui, vas-y, montre ton programme.

[cmcmc]

pour les curieux, on peut utiliser la fonction glob et résoudre le problème en un uniligne

Par exemple à partir d'un tableau de tableaux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$ perl -E '@aoa = ([qw(TO TA)], [qw(1 2 3)], [qw(a)], [qw(I II)]); $s = "%"; say s/$s/ /gr for glob join $s, map { "{" . join(",", @$_) . "}" } @aoa'
TO 1 a I
TO 1 a II
TO 2 a I
TO 2 a II
TO 3 a I
TO 3 a II
TA 1 a I
TA 1 a II
TA 2 a I
TA 2 a II
TA 3 a I
TA 3 a II
$

L'adaptation à un nombre quelconque (limites de glob à vérifier?) de fichiers est facile. On commence par générer les fichiers de test :

Code :

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

1
2
$ perl -E '@aoa = ([qw(TO TA)], [qw(1 2 3)], [qw(a)], [qw(I II)]); for (@aoa) { open $f, ">", sprintf("tst%03d", ++$cnt); say {$f} "@$_" }'
$

petite vérif :

Code :

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

1
2
3
4
5
6
$ for i in tst*; do echo $i : `cat $i`; done
tst001 : TO TA
tst002 : 1 2 3
tst003 : a
tst004 : I II
$

Il n'y a plus qu'à initialiser notre tableau de tableaux à partir du contenu des fichiers passés en paramètre de la ligne de commande :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$ perl -E '@aoa = map { local (@ARGV, $/) = $_; [split /\s+/, <> ]} @ARGV; $s = "%"; say s/$s/ /gr for glob join $s, map { "{" . join(",", @$_) . "}" } @aoa' tst*
TO 1 a I
TO 1 a II
TO 2 a I
TO 2 a II
TO 3 a I
TO 3 a II
TA 1 a I
TA 1 a II
TA 2 a I
TA 2 a II
TA 3 a I
TA 3 a II
$

autre exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
$ echo pomme poire cassis > fruits
$ echo rouge jaune violet > couleurs
$ perl -E '@aoa = map { local (@ARGV, $/) = $_; [split /\s+/, <> ]} @ARGV; $s = "%"; say s/$s/ /gr for glob join $s, map { "{" . join(",", @$_) . "}" } @aoa' fruits couleurs
pomme rouge
pomme jaune
pomme violet
poire rouge
poire jaune
poire violet
cassis rouge
cassis jaune
cassis violet
$