Probleme de content type :s
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 :
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
| #!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
ENDHTML |
Et voici le rendu...
Citation:
Content-type: text/html
<HTML>
<HEAD>
....
</BODY>
</HTML>
Au 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.
(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.
