怎么转换文档格式, ansi -&gt; no bom utf8

justinyun

UID: 25246
帖子: 2
积分: 4
在线时间: 10 分钟

1^# justinyun 发表于 2007-11-14 11:11

怎么转换文档格式, ansi -&gt; no bom utf8

如题所示，不知道这种功能要用到哪个插件，怎么实现，有人知道吗？

ouyangyu139

UID: 28016
帖子: 1
积分: 2
在线时间: 10 分钟

2^# ouyangyu139 发表于 2007-11-14 11:15

去CPAN搜一下

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

3^# Lonki 发表于 2007-11-14 23:46

简单, 假设原始文件是gbk编码.

use strict;
use warnings;
use Encode;

open(FIN, '<', 'input_ori.txt.') || die "$!\n";
open(FOUT, '>', 'input_utf8.txt') || die "$!\n";

local $/ = undef;
print FOUT encode('utf8', decode('gbk', <FIN>));

close(FOUT);
close(FIN);

注: 无BOM.

怎么转换文档格式, ansi -&amp;gt; no bom utf8

怎么转换文档格式, ansi -&amp;gt; no bom utf8

怎么转换文档格式, ansi -> no bom utf8

怎么转换文档格式, ansi -> no bom utf8