Discussion :

[alexis.melot]

Bonjour, je voudrai faire un générateur de fichier.pac pour simplifer la lecture de ceux-ci (11 fichiers.pac) qui se ressemble beaucoup.
Voici comment je m'y prends :

#!/usr/bin/perl

use strict;
use warnings;

#declaration de la fonction
my $function_find_proxy=<<BALISE
function FindProxyForURL(url, host)
{
BALISE

my $end_DIRECT=<<BALISE
// Otherwise use proxy Bureautique
else return "DIRECT";
}
BALISE

my $return_DIRECT=<<BALISE
{ return "DIRECT"; }
BALISE

my $paragraphe1_non_FQDN_hosts=<<BALISE
// Direct connections to non-FQDN hosts
if (isPlainHostName(host))
BALISE

en gros :

function FindProxyForURL(url, host)
{
// Direct connections to non-FQDN hosts
if(isPlainHostName(host))
{ return "DIRECT"; }
// Otherwise use proxy Bureautique
else return "DIRECT";
}

Puis je les concatene grâce au "." :

$function_find_proxy.$paragraphe1_non_FQDN_hosts.$return_DIRECT.$end_DIRECT>proxy1.pac;

Mais ça me retourne pas mal d'erreur du genre : "my" variable $function_find_proxy masks earlier declaration in same statement at generateur_proxy_pac2.v2.pl line 418.

si j'enleve le "my" j'ai encore d'autres erreurs...

Pouvez vous m'aider ? ça me semble simple, mais bon...

[ggnore]

Tu devrais certainement envisager d'ouvrir des fichiers avec la commande open. Tes redirections ne font pas le travail.

Code :

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

open (my ($OpenFile), '>', $File) or die "Couldn't open $File : $!\n";

$Openfile est ton handler de fichier. Tu peux écrire dans un fichier avec

Code :

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

print $Openfile "blabla"

$File est le nom de ton fichier.

Une fonction se déclare comme suit :

Code :

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

1
2
3
4
sub mafonction{
my ($param1, $param2) = @_;
#code
}

C'est quoi tes BALISE ?

Peut être que revenir aux bases de perl te ferait du bien. Le code que tu as pondu a l'air vraiment fait à l'arrachissime.

[Philou67430]

Je sais pas dans quelle mesure cela peut t'être utile, mais il existe un module CPAN qui traite de ces fichiers : HTTP::ProxyPAC

[alexis.melot]

les BALISEs sont là pour délimiter la déclaration :
http://www.dil.univ-mrs.fr/~chris/Perl/Chaines.htm
en bas de page

[ggnore]

Code :

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

1
2
3
my $function_find_proxy=
"function FindProxyForURL(url, host)\n".
"{\n";

[alexis.melot]

oui, mais ça ne change rien... j'avais déjà essayé

[alexis.melot]

à mon avis, j'ai du oublier un bibliothèque...?

[ggnore]

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
my $output="proxy1.pac";
 
my $function_find_proxy=
"function FindProxyForURL(url, host)\n".
"{\n";
 
my $end_DIRECT=
"// Otherwise use proxy Bureautique\n".
"else return \"DIRECT\";\n".
"}\n";
 
my $return_DIRECT=
"{ return \"DIRECT\"; }\n";
 
my $paragraphe1_non_FQDN_hosts=
"// Direct connections to non-FQDN hosts\n".
"if (isPlainHostName(host))\n";
 
open my $Openfile, '>', $output or die "failed opening $output";
 
print $Openfile $function_find_proxy.$end_DIRECT.$return_DIRECT.$paragraphe1_non_FQDN_hosts;
 
close $Openfile;

function FindProxyForURL(url, host)
{
// Otherwise use proxy Bureautique
else return "DIRECT";
}
{ return "DIRECT"; }
// Direct connections to non-FQDN hosts
if (isPlainHostName(host))

[alexis.melot]

Ok je vais donc faire comme ca, merci!