probleme avec while Perl

Version imprimable

bonjour,

je cherche à faire un script qui va me permetre d'automatiser la creation de fichier de config IP pour des clients openvpn.

detail

je met le fichier 1 dans un tableau
je met le fichier 2 dans un tableau

je fais une boucle qui crée tous les fichier en prenant les noms dans le fichier1
je fais une boucle qui insere une ligne dans c même fichier en récuperant les données dans le fichier 2

je ferme les deux fichiers

pour la creation des fichier tous vas bien.

par contre je n'arive pas à faire l'insertion corecte des ligne de commande

mon script (qui ne marche pas):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl @ARGV = ("/ccd/toto/ta"); @dest = ("/ccd/toto/e"); while ($t = <>) { chomp; print "$t"; #################### creation fichier!!! open (ecrire, ">>$t.t"); ################### ecriture de la commande while ( $a = @dest) { print ecrire ("ifconfig-push $a"); } } close (ecrire);
deux probleme:

le premier les nom de fichier prene la forme $t?.t au lieu de $t.t.

le deuxieme ca n'insere pas les ligne de commande

je vous donnes les fichiers de données.

fichier 1:

1
2
3
4
5
6

fichier deux:

10.195.208.1 10.195.208.2
10.195.208.4 10.195.208.5
10.195.208.7 10.195.208.8
10.195.208.10 10.195.208.11
10.195.208.13 10.195.208.14
10.195.208.16 10.195.208.17

en bref le resultat souhaité est:

creation du fichier 1.t et insertion de la ligne de commande
ifconfig-push 10.195.208.1 10.195.208.2

et ainsi de suite!

j'ai pensé à faire avec un comptage des lignes ou à utiliser l'index du tableau

en faisant un truc du stile

je cré le fichier

je recupere l'index 0 du tableau dest
j'isere la commande dans le fichier $t.t

index ++

la variable index prend la valeur +1 et la boucle reprend

mais je ne sais pas comment le faire

je sais pas si j'ai été tres clair

merci d'avance pour vos reponses.

c'est mieux!!!

bon ca marche mieux
j'ai résolue le prob 2

le script:

Code:

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
#!/usr/bin/perl
#use strict;
 
@ARGV = ("/ccd/toto/ta");
open des, "/ccd/toto/e";
@dest = <des>;
$x = $dest [0];
$i = 0;
 
#print $x;
#print $y;
#print $z;
 
while ($t = <>)    {
chomp;
 
print "$t";
####################   creation fichier!!!
open (ecrire, ">>$t.t");
 
###################     ecriture de la commande
 
print ecrire ("ifconfig-push $x");
print "ifconfig-puch $x";
 
$x = $dest[$i++];
 
}
close (ecrire);

par contre le nom de fichier est toujour verolé

exemple $t.t donne $t?.t

je cherche
lol:?

21/01/2007, 19h03
imorum

ca marche beaucoup mieux sans retour chariot

lol

j'avias mal incrementé chomp
et il falait metre la variable $i sur 1 pour eviter un decalage.
lol

mon probleme est résolue!!!!

par contre si vous avez des idées pour que je puisse utiliser un seul fichier

du style:

1 10.195.208.10 10.195.208.11
2 10.195.208.7 10.195.208.8

et obtenir le même résultat je suis preneur!

lol j'abuse un peut la?

merci d'avance!!!