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