Bonjour a tous,
Attention je préviens, probleme de newbie ^^
J'ai un script Perl qui parse un fichier HTML, et le reecris tel quel (ca me sert de test pour ma fonction de parsing).
Pourtant les prints me renvoient juste le code... et pas la traduction de celui ci...
Pour etre plus clair, voila mon code :
Et voici le rendu...
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 #!C:\Perl\bin open(FIC,"<J://texte.html") or die("open: $!"); while( defined( $l = <FIC> ) ) { chomp $l; $x .= $l."\n"; } #print $x; if( $x =~ /(.*)<BODY(.*?)>(.*)<\/body>(.*)/si) { $head = $1; $bodyoptions = $2; $body = $3; $foot = $4; } print "Content-type: text/html\n\n"; print <<ENDHTML; $head <BODY $bodyoptions> $body </body> $foot ENDHTMLAu début j'avais omis la ligne avec le Content-type, mais meme avec cette ligne, le code n'est pas traduit... le script s'execute bien mais ne me renvoie que du text/plain apparemment.Content-type: text/html
<HTML>
<HEAD>
....
</BODY>
</HTML>
(pour le moment je suis sous IIS, vista oblige... ca soule mais c'est comme ca ^^)
Donc je suppose que j'ai du mal configurer mon serveur... mais on n'est jamais sur de rien.
Partager