tag d'un fichier à un autre

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/01/2014, 20h13
alexis.melot

voici ce que j'ai fait :

Citation:

#!/usr/bin/perl

use File::Copy;
use strict;

copy ("template.txt", "@ARGV.pac") or die "Copy failed : $!";

open (PROPERTIES, "<", "properties.txt");
my %PROXY;
while (<PROPERTIES>){
my ($key, $value) = split('=', $_);
if ($key =~ /(__PROXY_[A-Z]+__.@ARGV[1])/ || $key =~ /(__PROXY_[A-Z]+_[A-Z]+__.@ARGV[1])/){
my ($key1, $key2) = split('.', $key);
$PROXY{$key1}=$value;
}
if ($key =~ /(__PROXY_[A-Z]+__.[a-z]+[1-3])/ || $key =~ /(__PROXY_[A-Z]+__.[a-z])/){

}
if ($key =~ /(__PROXY_[A-Z]+__)/){
$PROXY{$key}=$value;
}
}
close(PROPERTIES);

open (TEMPLATE, "<", "template.txt");

open(TMP, ">", "@ARGV.pac") or die("open failed : $!");
while (<TEMPLATE>){
if ( $_ =~ /({ return ")(__PROXY_[A-Z]+__)("; })/ || $_ =~ /({ return ")(__PROXY_[A-Z]+_[A-Z]+__)("; })/ || $_ =~ /(else return ")(__PRO$
print TMP $1.$PROXY{$2}.$3;
}
else{
print TMP $_;
}
}
close (TMP);

close (TEMPLATE);

je fais par exemple : perl generateur.pl rd

ca me créer bien le rd.pac
et pour la suite je pense utiliser des fonctions qui rajouteront au nom "-psw1" ou "-psw2" ce qui donnera "rd-psw1" ou "rd-psw2", et qui en fonction des nom de fichiers traitera les lignes :
__PROXY_PSW__.psw1=PROXY jjj
__PROXY_PSW__.psw2=PROXY lll

Ca fonctionne pour tous les proxies qui ne dependent de rien :
__PROXY_LENET__=PROXY aaa
__PROXY_BACKUP__=PROXY bbb
__PROXY_DIRECT__=DIRECT

Après je bloque....
28/01/2014, 22h45
Lolo78
S'il-te-plaît, mets ton code dans des balises de code (le dièse: #), pas dans des balises de citation, ça le rendra bien plus lisible.

Sinon, comme je n'ai toujours pas bien compris ce que tu voulais vraiment faire, je ne peux pas vraiment t'aider sur l'architecture d'ensemble de ta solution, mais j'ai l'impression que tu ajoutes de la complexité là où il n'y en a pas besoin. Depuis le début, tu as décrit ton problème en terme de la solution que tu envisages (et que tu expliques de façon un peu nébuleuse à mes yeux), ce serait bien plus simple que tu expliques ton besoin.

Pour l'instant, juste deux ou trois remarques sur ton code:

Code:

copy ("template.txt", "@ARGV.pac") or die "Copy failed : $!";

Je doute que ça fasse ce que tu veux. @ARGV est un tableau, pas un scalaire, concaténer "pac" à la valeur d'un tableau pour fabriquer un nom de fichier est pour le moins assez étrange... Il se peut que ça marche tout de même, mais ce n'est pas une bonne manière de faire.

Et d'ailleurs, tu passes quoi comme arguments à ton programme?
Code:

1 2 3 if ($key =~ /(__PROXY_[A-Z]+__.[a-z]+[1-3])/ || $key =~ /(__PROXY_[A-Z]+__.[a-z])/){ }
Je ne vois pas l'intérêt de faire ce test si tu ne fais rien dans le bloc qu'il commande.

Code:

open(TMP, ">", "@ARGV.pac") or die("open failed : $!");

Même remarque que plus haut sur le nom du fichier. De plus, la copie de fichier que tu as faite ne sert à rien car l'ouverture du fichier ci-dessus écrase le contenu du fichier que tu as copié.

Code:

if ( $_ =~ /({ return ")(__PROXY_[A-Z]+__)("; })/ || $_ =~ /({ return ")(__PROXY_[A-Z]+_[A-Z]+__)("; })

Je vois peut-être pas clair, mais je ne vois pas de différence entre les deux termes du ou (||). Et je ne vois pas de ';' dans tes données en entrée.

Encore un point: ajoute un

Code:

use warnings;

au début de ton programme, ça révélera peut-être des erreurs que tu ne vois pas.

Bon, voilà, j'ai mis le doigt sur des points qui me paraissent curieux dans ton code, mais je ne peux t'aider plus tant que je ne comprends pas clairement ce que tu veux faire (le besoin, pas la solution que tu envisages).
29/01/2014, 10h24
alexis.melot

Merci de ta réponse!

premièrement :
voici ce que ça me sort (type de messages) lorsque j'execute "perl generateur.pl ekino" :

Citation:

Use of uninitialized value $ARGV[1] in regexp compilation at generateur.pl line 17, <PROPERTIES> line 1.

et

Citation:

Use of uninitialized value in concatenation (.) or string at generateur.pl line 35, <TEMPLATE> line 14.

mais ca marche : le fichier ekino.pac est bien créé, et me remplace bien __PROXY_LENET__, __PROXY_BACKUP__, __PROXY_DIRECT__ par leur valeur.

Citation:

Code :Sélectionner tout - Visualiser dans une fenêtre à part123 if ($key =~ /(__PROXY_[A-Z]+__.[a-z]+[1-3])/ || $key =~ /(__PROXY_[A-Z]+__.[a-z])/){

} Je ne vois pas l'intérêt de faire ce test si tu ne fais rien dans le bloc qu'il commande.

c'est le test que je n'ai pas encore programmer :
Il y a 3 sortes de return :
-le premier est la simple correspondance entre __PROXY_....__=PROXY XXX (la dernière condition)
-le deuxième est la correspondance entre __PROXY_...__.$ARGV=PROXY XXX (la 1ère condition)
-le dernier est la correspondance entre __PROXY_..._.[a-z][1-3]=PROXY XXX (la 2ème condition) ([a-z] peut etre valid1, valid2, valid3, psw1, psw2, ipp1, ipp2; cette valeur sera donné par le nom du fichier à créer, rd-psw1-valid2-ipp2.pac par exemple)

Citation:

Code :Sélectionner tout - Visualiser dans une fenêtre à partif ( $_ =~ /({ return ")(__PROXY_[A-Z]+__)("; })/ || $_ =~ /({ return ")(__PROXY_[A-Z]+_[A-Z]+__)("; })Je vois peut-être pas clair, mais je ne vois pas de différence entre les deux termes du ou (||). Et je ne vois pas de ';' dans tes données en entrée.

En fait si, car je peut tomber sur __PROXY_INTERNET__ ou sur __PROXY_WEB_PACK__, il y a donc un "_" en plus. Tu me diras autant mettre directement ces valeurs et pas __PROXY_[A-Z]+_[A-Z]+__ et __PROXY_[A-Z]+___

Pour reprendre :
il faut bien avoir en tête que le fichier generateur.pl va chercher les valeurs du template.txt et remplace des "tag" (__PROXY_..._) par la valeur qui lui est attribué dans properties.txt.
je veux créer des fichiers .pac du genre campus-psw2-valid1-ipp2.pac.
campus sera en argument et permettra de determiner __PROXY_WEB_PACK__ et __PROXY_INTERNET__.
psw, valid, ipp seront rajouter au fur et à mesure par fonction recursive :

Code:

1
2
3
convert_psw1(campus.pac, campus-psw1.pac){
    remplace __PROXY_PSW__ du campus.pac par PROXY YYY
}

rappel du code
generateur.pl :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl
 
use File::Copy;
use strict;
use warnings;
 
foreach (<*.pac>){
        unlink $_;
}
 
copy ("template.txt", "@ARGV.pac") or die "Copy failed : $!";
 
open (PROPERTIES, "<", "properties.txt");
my %PROXY;
while (<PROPERTIES>){
    my ($key, $value) = split('=', $_);
    if ($key =~ /(__PROXY_[A-Z]+__.$ARGV)/ || $key =~ /(__PROXY_[A-Z]+_[A-Z]+__.$ARGV)/){
        my ($key1, $key2) = split('.', $key);
        $PROXY{$key1}=$value;
    }
    if ($key =~ /(__PROXY_[A-Z]+__.[a-z]+[1-3])/ || $key =~ /(__PROXY_[A-Z]+__.[a-z])/){
 
    }
    if ($key =~ /(__PROXY_[A-Z]+__)/){
        $PROXY{$key}=$value;
    }
}
close(PROPERTIES);
 
open (TEMPLATE, "<", "template.txt");
 
open(TMP, ">", "@ARGV.pac") or die("open failed : $!");
while (<TEMPLATE>){
    if ( $_ =~ /({ return ")(__PROXY_[A-Z]+__)("; })/ || $_ =~ /({ return ")(__PROXY_[A-Z]+_[A-Z]+__)("; })/ || $_ =~ /(else return ")(__PROXY_[A-Z]+__)("$
        print TMP $1.$PROXY{$2}.$3;
    }
    else{
        print TMP $_;
    }
}
close (TMP);
 
close (TEMPLATE);

je viens de modifier le perl de facon à etre plus prècis :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl
 
use File::Copy;
use strict;
use warnings;
 
foreach (<*.pac>){
        unlink $_;
}
 
copy ("template.txt", "@ARGV.pac") or die "Copy failed : $!";
 
open (PROPERTIES, "<", "properties.txt");
my %PROXY;
while (<PROPERTIES>){
    my ($key, $value) = split('=', $_);
    if ($key =~ /(__PROXY_INTERNET__.$ARGV)/ || $key =~ /(__PROXY_WEB_PACK__.$ARGV)/){
        my ($key1, $key2) = split('.', $key);
        $PROXY{$key1}=$value;
    }
    if ($key =~ /(__PROXY_PSW__.psw[1-2])/){
        my ($key1, $key2) = split('.', $key);
        $PROXY{$key1}=$value;
    }
    if ($key =~ /(__PROXY_VALID__.valid[1-3])/ || $key =~ /(__PROXY_VALID__.valid)/){
        my ($key1, $key2) = split('.', $key);
        $PROXY{$key1}=$value;
    }
    if ($key =~ /(__PROXY_IPP__.ipp[1-2])/){
        my ($key1, $key2) = split('.', $key);
        $PROXY{$key1}=$value;
    }
#    else{
#    $PROXY{$key}=$value;
#    }
}
close(PROPERTIES);
 
open (TEMPLATE, "<", "template.txt");
 
open(TMP, ">", "@ARGV.pac") or die("open failed : $!");
while (<TEMPLATE>){
    if ( $_ =~ /({ return ")(__PROXY_[A-Z]+__)("; })/ || $_ =~ /({ return ")(__PROXY_[A-Z]+_[A-Z]+__)("; })/ || $_ =~ /(else return ")(__PROXY_[A-Z]+__)("$
        print TMP $1.$PROXY{$2}.$3;
    }
    else{
        print TMP $_;
    }
}
close (TMP);
 
close (TEMPLATE);

Citation:

Envoyé par alexis.melot

Mais je pense qu'il y a un problème de syntax dans

en gros { return "__PROXY_INTERNET__"; } du template.txt ne correspond pas à /(\{return ")(__[A-Z]+_[A-Z]+__)("; \})/

oui c'est normal car dans le template tu as un espace entre "{" et "return" alors que dans la regex
essaie avec cette regex:

Code:

/(\{\s+return\s+")(__[A-Z]+_[A-Z]+__)(";\s+\})/
Citation:
Envoyé par alexis.melot
Code:

1 2 3 4 5 6 7 8 9 10 11 if ($key =~ /(__PROXY_[A-Z]+__.$ARGV)/ || $key =~ /(__PROXY_[A-Z]+_[A-Z]+__.$ARGV)/){ my ($key1, $key2) = split('.', $key); $PROXY{$key1}=$value; } if ($key =~ /(__PROXY_[A-Z]+__.[a-z]+[1-3])/ || $key =~ /(__PROXY_[A-Z]+__.[a-z])/){ } if ($key =~ /(__PROXY_[A-Z]+__)/){ $PROXY{$key}=$value; }
Attention car toutes tes lignes vont en fait être traitées comme si tu n'avais fait que la dernière condition "if"
Utilise plutôt des "elsif"

j'ai finalement réussi à faire ce que je voulais mais pas avec la même methode :

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
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
#!/usr/bin/perl
 
use File::Copy;
use strict;
use warnings;
use configuration;
 
 
#print "@$_\n" for @clients;
 
foreach (<*.pac>){
	unlink $_;
}
 
my $i;
 
for($i=1 ; $i<=4 ; $i++){
	open(TEMPLATE, "<", "template.txt") or die("open failed : $!");
 
	open (FIC_101, ">", "$clients[$i][0]-psw1-valid-ipp1.pac") or die("open failed : $!");
        open (FIC_102, ">", "$clients[$i][0]-psw1-valid-ipp2.pac") or die("open failed : $!");
        open (FIC_111, ">", "$clients[$i][0]-psw1-valid1-ipp1.pac") or die("open failed : $!");
        open (FIC_112, ">", "$clients[$i][0]-psw1-valid1-ipp2.pac") or die("open failed : $!");
        open (FIC_121, ">", "$clients[$i][0]-psw1-valid2-ipp1.pac") or die("open failed : $!");
        open (FIC_122, ">", "$clients[$i][0]-psw1-valid2-ipp2.pac") or die("open failed : $!");
        open (FIC_131, ">", "$clients[$i][0]-psw1-valid3-ipp1.pac") or die("open failed : $!");
        open (FIC_132, ">", "$clients[$i][0]-psw1-valid3-ipp2.pac") or die("open failed : $!");
        open (FIC_201, ">", "$clients[$i][0]-psw2-valid-ipp1.pac") or die("open failed : $!");
        open (FIC_202, ">", "$clients[$i][0]-psw2-valid-ipp2.pac") or die("open failed : $!");
        open (FIC_211, ">", "$clients[$i][0]-psw2-valid1-ipp1.pac") or die("open failed : $!");
        open (FIC_212, ">", "$clients[$i][0]-psw2-valid1-ipp2.pac") or die("open failed : $!");
        open (FIC_221, ">", "$clients[$i][0]-psw2-valid2-ipp1.pac") or die("open failed : $!");
        open (FIC_222, ">", "$clients[$i][0]-psw2-valid2-ipp2.pac") or die("open failed : $!");
        open (FIC_231, ">", "$clients[$i][0]-psw2-valid3-ipp1.pac") or die("open failed : $!");
        open (FIC_232, ">", "$clients[$i][0]-psw2-valid3-ipp2.pac") or die("open failed : $!");
 
        while(<TEMPLATE>){
		my $ligne = $_;
		if( $_ =~ /(.*)(__PROXY_WEB_PACK__)(.*)/ ){
			print FIC_101 "\t$1$clients[$i][1]$3\n";
			print FIC_102 "\t$1$clients[$i][1]$3\n";
                        print FIC_111 "\t$1$clients[$i][1]$3\n";
                        print FIC_112 "\t$1$clients[$i][1]$3\n";
                        print FIC_121 "\t$1$clients[$i][1]$3\n";
                        print FIC_122 "\t$1$clients[$i][1]$3\n";
                        print FIC_131 "\t$1$clients[$i][1]$3\n";
                        print FIC_132 "\t$1$clients[$i][1]$3\n";
                        print FIC_201 "\t$1$clients[$i][1]$3\n";
                        print FIC_202 "\t$1$clients[$i][1]$3\n";
                        print FIC_211 "\t$1$clients[$i][1]$3\n";
                        print FIC_212 "\t$1$clients[$i][1]$3\n";
                        print FIC_221 "\t$1$clients[$i][1]$3\n";
                        print FIC_222 "\t$1$clients[$i][1]$3\n";
                        print FIC_231 "\t$1$clients[$i][1]$3\n";
                        print FIC_232 "\t$1$clients[$i][1]$3\n";
		}
                elsif( $_ =~ /(.*)(__PROXY_INTERNET__)(.*)/ ){
                        print FIC_101 "\t$1$clients[$i][2]$3\n";
			#$ligne =~ s/__PROXY_INTERNET__/$clients[$i][2]/;
			#print FIC_101 $ligne;
                        print FIC_102 "\t$1$clients[$i][2]$3\n"; 
                        print FIC_111 "\t$1$clients[$i][2]$3\n";
                        print FIC_112 "\t$1$clients[$i][2]$3\n";
                        print FIC_121 "\t$1$clients[$i][2]$3\n";
                        print FIC_122 "\t$1$clients[$i][2]$3\n";
                        print FIC_131 "\t$1$clients[$i][2]$3\n";
                        print FIC_132 "\t$1$clients[$i][2]$3\n";
                        print FIC_201 "\t$1$clients[$i][2]$3\n";
                        print FIC_202 "\t$1$clients[$i][2]$3\n";
                        print FIC_211 "\t$1$clients[$i][2]$3\n";
                        print FIC_212 "\t$1$clients[$i][2]$3\n";
                        print FIC_221 "\t$1$clients[$i][2]$3\n";
                        print FIC_222 "\t$1$clients[$i][2]$3\n";
                        print FIC_231 "\t$1$clients[$i][2]$3\n";
                        print FIC_232 "\t$1$clients[$i][2]$3\n";
                }
		elsif ($_ =~ /(.*)(__PROXY_PSW__)(.*)/ ){
			print FIC_101 "\t$1$clients[6][1]$3\n";
                        print FIC_102 "\t$1$clients[6][1]$3\n";
                        print FIC_111 "\t$1$clients[6][1]$3\n";
                        print FIC_112 "\t$1$clients[6][1]$3\n";
                        print FIC_121 "\t$1$clients[6][1]$3\n";
                        print FIC_122 "\t$1$clients[6][1]$3\n";
                        print FIC_131 "\t$1$clients[6][1]$3\n";
                        print FIC_132 "\t$1$clients[6][1]$3\n";
                        print FIC_201 "\t$1$clients[6][2]$3\n";
                        print FIC_202 "\t$1$clients[6][2]$3\n";
                        print FIC_211 "\t$1$clients[6][2]$3\n";
                        print FIC_212 "\t$1$clients[6][2]$3\n";
                        print FIC_221 "\t$1$clients[6][2]$3\n";
                        print FIC_222 "\t$1$clients[6][2]$3\n";
                        print FIC_231 "\t$1$clients[6][2]$3\n";
                        print FIC_232 "\t$1$clients[6][2]$3\n";
        	}
                elsif ($_ =~ /(.*)(__PROXY_VALID__)(.*)/ ){
                        print FIC_101 "\t$1$clients[7][1]$3\n";
                        print FIC_102 "\t$1$clients[7][1]$3\n";
                        print FIC_111 "\t$1$clients[7][2]$3\n";
                        print FIC_112 "\t$1$clients[7][2]$3\n";
                        print FIC_121 "\t$1$clients[7][3]$3\n";
                        print FIC_122 "\t$1$clients[7][3]$3\n";
                        print FIC_131 "\t$1$clients[7][4]$3\n";
                        print FIC_132 "\t$1$clients[7][4]$3\n";
                        print FIC_201 "\t$1$clients[7][1]$3\n";
                        print FIC_202 "\t$1$clients[7][1]$3\n";
                        print FIC_211 "\t$1$clients[7][2]$3\n";
                        print FIC_212 "\t$1$clients[7][2]$3\n";
                        print FIC_221 "\t$1$clients[7][3]$3\n";
                        print FIC_222 "\t$1$clients[7][3]$3\n";
                        print FIC_231 "\t$1$clients[7][4]$3\n";
                        print FIC_232 "\t$1$clients[7][4]$3\n";
                }
                elsif ($_ =~ /({ return ")(__PROXY_IPP__)("; })/ ){
                        print FIC_101 "\t$1$clients[8][1]$3\n";
                        print FIC_102 "\t$1$clients[8][2]$3\n";
                        print FIC_111 "\t$1$clients[8][1]$3\n";
                        print FIC_112 "\t$1$clients[8][2]$3\n";
                        print FIC_121 "\t$1$clients[8][1]$3\n";
                        print FIC_122 "\t$1$clients[8][2]$3\n";
                        print FIC_131 "\t$1$clients[8][1]$3\n";
                        print FIC_132 "\t$1$clients[8][2]$3\n";
                        print FIC_201 "\t$1$clients[8][1]$3\n";
                        print FIC_202 "\t$1$clients[8][2]$3\n";
                        print FIC_211 "\t$1$clients[8][1]$3\n";
                        print FIC_212 "\t$1$clients[8][2]$3\n";
                        print FIC_221 "\t$1$clients[8][1]$3\n";
                        print FIC_222 "\t$1$clients[8][2]$3\n";
                        print FIC_231 "\t$1$clients[8][1]$3\n";
                        print FIC_232 "\t$1$clients[8][2]$3\n";
                }
                elsif( $_ =~ /(.*)(__PROXY_LENET__)(.*)/ ){
                        print FIC_101 "\t$1$clients[9][1]$3\n";
                        print FIC_102 "\t$1$clients[9][1]$3\n";
			print FIC_111 "\t$1$clients[9][1]$3\n";
                        print FIC_112 "\t$1$clients[9][1]$3\n";
                        print FIC_121 "\t$1$clients[9][1]$3\n";
                        print FIC_122 "\t$1$clients[9][1]$3\n";
                        print FIC_131 "\t$1$clients[9][1]$3\n";
                        print FIC_132 "\t$1$clients[9][1]$3\n";
                        print FIC_201 "\t$1$clients[9][1]$3\n";
                        print FIC_202 "\t$1$clients[9][1]$3\n";
                        print FIC_211 "\t$1$clients[9][1]$3\n";
                        print FIC_212 "\t$1$clients[9][1]$3\n";
                        print FIC_221 "\t$1$clients[9][1]$3\n";
                        print FIC_222 "\t$1$clients[9][1]$3\n";
                        print FIC_231 "\t$1$clients[9][1]$3\n";
                        print FIC_232 "\t$1$clients[9][1]$3\n";
                }
                elsif( $_ =~ /(.*)(__PROXY_BACKUP__)(.*)/ ){
                        print FIC_101 "\t$1$clients[10][1]$3\n";
                        print FIC_102 "\t$1$clients[10][1]$3\n";
                        print FIC_111 "\t$1$clients[10][1]$3\n";
                        print FIC_112 "\t$1$clients[10][1]$3\n";
                        print FIC_121 "\t$1$clients[10][1]$3\n";
                        print FIC_122 "\t$1$clients[10][1]$3\n";
                        print FIC_131 "\t$1$clients[10][1]$3\n";
                        print FIC_132 "\t$1$clients[10][1]$3\n";
                        print FIC_201 "\t$1$clients[10][1]$3\n";
                        print FIC_202 "\t$1$clients[10][1]$3\n";
                        print FIC_211 "\t$1$clients[10][1]$3\n";
                        print FIC_212 "\t$1$clients[10][1]$3\n";
                        print FIC_221 "\t$1$clients[10][1]$3\n";
                        print FIC_222 "\t$1$clients[10][1]$3\n";
                        print FIC_231 "\t$1$clients[10][1]$3\n";
                        print FIC_232 "\t$1$clients[10][1]$3\n";
                }
                elsif( $_ =~ /(.*)(__PROXY_DIRECT__)(.*)/ ){
                        print FIC_101 "\t$1$clients[11][1]$3\n";
                        print FIC_102 "\t$1$clients[11][1]$3\n";
                        print FIC_111 "\t$1$clients[11][1]$3\n";
                        print FIC_112 "\t$1$clients[11][1]$3\n";
                        print FIC_121 "\t$1$clients[11][1]$3\n";
                        print FIC_122 "\t$1$clients[11][1]$3\n";
                        print FIC_131 "\t$1$clients[11][1]$3\n";
                        print FIC_132 "\t$1$clients[11][1]$3\n";
                        print FIC_201 "\t$1$clients[11][1]$3\n";
                        print FIC_202 "\t$1$clients[11][1]$3\n";
                        print FIC_211 "\t$1$clients[11][1]$3\n";
                        print FIC_212 "\t$1$clients[11][1]$3\n";
                        print FIC_221 "\t$1$clients[11][1]$3\n";
                        print FIC_222 "\t$1$clients[11][1]$3\n";
                        print FIC_231 "\t$1$clients[11][1]$3\n";
                        print FIC_232 "\t$1$clients[11][1]$3\n";
                }
		else {
			print FIC_101 $_;
                        print FIC_102 $_;
                        print FIC_111 $_;
                        print FIC_112 $_;
                        print FIC_121 $_;
                        print FIC_122 $_;
                        print FIC_131 $_;
                        print FIC_132 $_;
                        print FIC_201 $_;
                        print FIC_202 $_;
                        print FIC_211 $_;
                        print FIC_212 $_;
                        print FIC_221 $_;
                        print FIC_222 $_;
                        print FIC_231 $_;
                        print FIC_232 $_;
		}
	}
	close FIC_101;
        close FIC_102;
        close FIC_111;
        close FIC_112;
        close FIC_121;
        close FIC_122;
        close FIC_131;
        close FIC_132;
        close FIC_201;
        close FIC_202;
        close FIC_211;
        close FIC_212;
        close FIC_221;
        close FIC_222;
        close FIC_231;
        close FIC_232;
	close TEMPLATE;
}

et le configuration est un tableau ou sont ecrit tous les proxy

31/01/2014, 18h54
Lolo78

En utilisant un tableau de descripteurs de fichiers lexicaux ou une fonction d'impression, tu pourrais diviser la taille de ton code d'un facteur de 5 à 10 sans problème.
:roll:;)

Voir 40 message(s) de cette discussion en une page