blob: 974639af52ef9e1fe361a3c98c54d55ee17915ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
#
# $FML: .fix_charset.pl,v 1.1 2003/07/24 15:37:34 fukachan Exp $
# $jaFML: .fix_charset.pl,v 1.1 2001/04/23 17:15:52 fukachan Exp $
#
use strict;
my $meta = q#
<META http-equiv="Content-Type"
content="text/html; charset=EUC-JP">
#;
while (<>) {
s/<META/${meta}$&/;
print;
}
exit 0;
|
