Ecriture dans un fichier de code HTML. Qui ne si écrit pas.

**venturic** · 04/07/2011, 15h40

Bonjour,

j'essaie actuellement de récupérer le contenue d'un fichier et de le transformer au format html. La premier partie s'effectue s'en souci par contre au moment ou j'essai d'écrire le fichier j'ai quelques soucis. La première partie fonctionne bien puis subitement. Perl me créé un fichier GLOB(0x183f108) avec le contenu de ce que je dois écrire dans "cachefile.tmp" et je ne comprends pas pourquoi.
C'est pourquoi je vous demandes un peu d'aide.

Si l'un de vous peux m'aider, merci d'avance.

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
30
31
32
 
my $cachefile="cachefile.tmp";
print "GENEHTML\n";
	my $line = ('<HEAD>'."\n".'');  # s'écrie bien dans le bon fichier
	open my $cachefile, ">>", $cachefile or die logger (date()." : Impossible d'ouvrir $cachefile dans HTML,: $!\n");
    print $cachefile $line;
	close $cachefile;
	$line = "";
 
	$line = ('<link rel="stylesheet" type="text/css" href="tableau.css">'."\n".'');  # NE s'écrie PAS le bon fichier
	print $line;
	sleep (1);
	open $cachefile, ">>", $cachefile or die logger (date()." : Impossible d'ouvrir $cachefile dans HTML,: $!\n");
    print $cachefile ($line);
	close $cachefile;
	$line = "";
 
	$line = ('<table summary="HMC et lpar details" class="servicesT" cellspacing="0">'."\n".'');  # NE s'écrie PAS le bon fichier
	print $line;
	sleep (1);
	open $cachefile, ">>", $cachefile or die logger (date()." : Impossible d'ouvrir $cachefile dans HTML,: $!\n");
    print $cachefile ($line);
	close $cachefile;
	$line = "";
 
 
	$line = ('</HEAD><HTML><BODY>'."\n".''); # s'écrie bien dans le bon fichier
	open $cachefile, ">>", $cachefile or die logger (date()." : Impossible d'ouvrir $cachefile dans HTML,: $!\n");
    print $cachefile ($line);
	close $cachefile;
	$line = "";
	print "FIN GENEHTML\n";

**djibril** · 04/07/2011, 16h35

En simplifiant le code, ça ira déjà mieux

. Attention à ne pas confondre la variable contenant le nom du fichier et le filehandle (ou descripteur de fichier).

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
my $cachefile = 'cachefile.tmp';
my $ligne;
open my $fh, '>>', $cachefile or die logger( date() . " : Impossible d'ouvrir $cachefile dans HTML,: $!\n" );
 
print "GENEHTML\n";
$ligne = "<HEAD>\n";    # s'écrie bien dans le bon fichier
print {$fh} $ligne;
 
# NE s'écrie PAS le bon fichier
$ligne = '<link rel="stylesheet" type="text/css" href="tableau.css">' . "\n";
print $ligne;
sleep 1;
print {$fh} $ligne;
 
# NE s'écrie PAS le bon fichier
$ligne = '<table summary="HMC et lpar details" class="servicesT" cellspacing="0">' . "\n";
print $ligne;
sleep 1;
print {$fh} $ligne;
 
# s'écrie bien dans le bon fichier
$ligne = '</HEAD><HTML><BODY>' . "\n";
print {$fh} $ligne;
 
print "FIN GENEHTML\n";
 
close $fh;

**venturic** · 04/07/2011, 17h26

Bonjour et merci.

Effectivement en lisant ton code je comprends mon erreur.
Merci pour les corrections

Je vais testé ça et je fais un peu retour.

Encore merci.

**venturic** · 05/07/2011, 13h53

Re-Bonjour

J'ai reprise l'exemple plus haut mais j'obtiens un :
Can't use string ("cachefile.tmp") as a symbol ref while "strict refs" in use at parse.pl line 135.

Et j'arrive pas a m'en débarrasser

Un peu d'aide svp

**djibril** · 05/07/2011, 19h31

Envoyé par venturic

Re-Bonjour

J'ai reprise l'exemple plus haut mais j'obtiens un :
Can't use string ("cachefile.tmp") as a symbol ref while "strict refs" in use at parse.pl line 135.

Et j'arrive pas a m'en débarrasser

Un peu d'aide svp

Pardon, c'est ma faute, reprend mon code ci-dessus, je l'ai corrigé.