Perl pour concatener des fichier.pac

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 :

Citation:

---

#!/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 :

Citation:

---

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 "." :

Citation:

---

$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...

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

Code:

---

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:

---

print $Openfile "blabla"

---

$File est le nom de ton fichier.

Une fonction se déclare comme suit :

Code:

---

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.

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

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

Code:

---

1 2 3

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

---

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

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

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; 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;

---

Citation:

---

Envoyé par proxy1.pac

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

---

Ok je vais donc faire comme ca, merci!