diff options
| author | fukachan <fukachan> | 2001-04-28 09:31:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-28 09:31:43 +0000 |
| commit | 07e236fac55544df03c1f892b23ca8a6f62578a9 (patch) | |
| tree | 4a9aae48a05873eae5acbb21f9dfe7c51e3737ec /fml/doc/ja/utils | |
| parent | 3ea7db31d53ceb4cf8e5b86d220ed01dc33f6fc4 (diff) | |
| download | fml8-07e236fac55544df03c1f892b23ca8a6f62578a9.tar.gz fml8-07e236fac55544df03c1f892b23ca8a6f62578a9.tar.bz2 fml8-07e236fac55544df03c1f892b23ca8a6f62578a9.zip | |
Initial revision
Diffstat (limited to 'fml/doc/ja/utils')
| -rwxr-xr-x | fml/doc/ja/utils/bin/fix_charset.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/fml/doc/ja/utils/bin/fix_charset.pl b/fml/doc/ja/utils/bin/fix_charset.pl new file mode 100755 index 00000000..0a6853df --- /dev/null +++ b/fml/doc/ja/utils/bin/fix_charset.pl @@ -0,0 +1,18 @@ +#!/usr/local/bin/perl +# +# $FML: .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; |