fml/doc/ja/tutorial/.fix_charset.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/local/bin/perl
#
# $FML$
#

use strict;

my $meta = q#
<META http-equiv="Content-Type"
        content="text/html; charset=EUC-JP">
#;

while (<>) {
	s/<META/${meta}$&/;
	print;
}

exit 0;