Discussion :

[frenchlion]

Bonjour,

j'ai un léger soucis. et je pense que la solution est toute bête je ne sais pas beaucoup me servir de tableaux, listes et hashes donc j'ai du mal à comprendre le truc.
j'utilise le module Net::SFTP::Foreign qui écrit dans sa doc :

Code :

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

1
2
3
4
5
6
7
8
9
 
more => [@more_ssh_args] 
 
Note that this option expects a single command argument or a reference to an array of arguments. For instance:
 
  more => '-v'         # right
  more => ['-v']       # right
  more => "-c $cipher"    # wrong!!!
  more => [-c => $cipher] # right

bref. globalement, j'ai besoin d'ajouter plusieurs arguments dans mon cas, et les rajouter de façon flexible.

Par exemple, à la place de '-v', j'aimerais faire du '-q -v -x' ou '-q -v'.
et je dois prendre ces valeurs dans un tableau externe à mon code (je ne peux définir le truc avec un $var = ['-v', '-q']; dans le code par exemple.

J'ai donc testé de créer un tableau contenant ces valeurs avec un :

Code :

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

1
2
 
@sftp_opts = ( '-v', '-q' );

et faire un "push" des valeurs que je veux ajouter de temps en temps suivant ce que je configure avec un :

Code :

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

1
2
3
4
 
foreach my $option (@additional_options) {
                  push @sftp_opts, $option;
               }

et je teste dans mon code :

Code :

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

1
2
 
more     => @sftp_opts,

mais ça ne fonctionne pas.
Si je fais un print Dumper(@sftp_opts), j'obtiens :

Code :

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

1
2
3
 
$VAR1 = '-v';
$VAR2 = '-q';

comment puis-je faire pour mettre ces valeurs correctement dans @sftp_opts ? (et d'ailleurs, est-ce bien comme cela que je dois faire référence aux valeurs du tableau ? avec le more => @tableau)

merci !

[frenchlion]

bon je répond à ma question tout seul en lisant mon topic du forum en fait..

je viens de tester un :

Code :

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

1
2
 
more     => [@sftp_opts],

et ça fonctionne.. je devais rajouter des crochets autour du tableau à priori.
je comprend pas bien ce que ça fait mais bon..

si quelqu'un a une explication simple ça m'aiderait pour le prochain coup

olivier

[frenchlion]

ah mince ça marche a moitié en fait

à priori

Code :

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

1
2
 
more => [@tableau];

et

Code :

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

1
2
 
more => ['-v','-q'];

c'est pas pareil (le second marche, pas le premier)

une idée svp ?
j'imagine que mon tableau n'est pas bon et qu'au lieu d'avoir 2 variables je devrais en avoir une seule avec tout dedans (dans le Dumper).

comment puis-je "pusher" des variables dedans ?
car j'arrive à l'initialiser avec un :

$var = ['q','-v'];

bizarrement

merci !

[frenchlion]

juste pour info, j'ai testé avec

Dumper(\@tableau);

et ça affiche les bons résultats, je ne connaissait pas cet antislash.
mais j'ai beau tester :

more => [\@tableau];
more => \@tableau;
more => \[@tableau];

rien ne marche

[Lolo78]

Pour faire une référence sur un tableau tu dois faire soit:

Code :

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

[@tableau]

soit

Code :

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

\@tableau

mais pas

Code :

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

[\@tableau]

car cette dernière syntaxe ne construit pas une référence sur un tableau, mais une référence sur une référence sur un tableau.

Exemple sous le debugger Perl:

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
  DB<1> $c = [1, 2];
 
  DB<2> x \$c
0  REF(0x302ee108)
   -> ARRAY(0x30028ae8)
         0  1
         1  2
  DB<3> @d = (1, 3);
 
  DB<4> $c = [@d]
 
  DB<5> x \$c
0  REF(0x302ee108)
   -> ARRAY(0x3031f138)
         0  1
         1  3
  DB<6> $e = [\$c];
 
  DB<7> x \$e
0  REF(0x302ee138)
   -> ARRAY(0x300d2a98)
         0  REF(0x302ee108)
            -> ARRAY(0x3031f138)
                  0  1
                  1  3
  DB<8>