回答編集履歴
1
別解
answer
CHANGED
|
@@ -1,11 +1,12 @@
|
|
|
1
|
-
```html
|
|
2
|
-
<meta charset="utf-8">
|
|
3
|
-
```
|
|
4
|
-
|
|
5
1
|
```perl
|
|
2
|
+
sub pageWrite{
|
|
3
|
+
print "Content-Type: text/html; charset=Shift_JIS\n";
|
|
6
|
-
|
|
4
|
+
print "Content-Language: ja\n";
|
|
7
|
-
|
|
5
|
+
print "Pragma: no-cache;\n\n";
|
|
6
|
+
|
|
7
|
+
#テンプレート読んで書き出し
|
|
8
|
+
open(TEMP,"$tempFile");
|
|
8
9
|
```
|
|
9
10
|
|
|
10
|
-
|
|
11
|
+
`$tempFile` である `contact.html` はシフトJISで符号化されている必要があります。UTF-8 などになってないでしょうか。
|
|
11
12
|
|