如何使用 Perl 的 DBI 处理 unicode？

发布于 2024-07-24 08:00:15 字数 532 浏览 7 评论 0原文

我的 delicious-to-wp perl script 可以工作，但会为所有“奇怪”的字符提供更奇怪的输出。所以我尝试了

$description = decode_utf8( $description );

但这并没有什么区别。我希望“go live”变成“go live”而不是“go live” 我如何在 Perl 中处理 unicode 以便它可以工作？

更新：我发现问题是设置我必须在 Perl 中设置的 DBI 的 utf：

my $sql = qq{SET NAMES 'utf8';};
$dbh->do($sql);

这是我必须设置的部分，很棘手。谢谢！

原文

My delicious-to-wp perl script works but gives for all "weird" characters even weirder output.
So I tried

$description = decode_utf8( $description );

but that doesnt make a difference. I would like e.g. “go live” to become “go live” and not â€œgo liveâ€ How can I handle unicode in Perl so that this works?

UPDATE: I found the problem was to set utf of DBI I had to set in Perl:

my $sql = qq{SET NAMES 'utf8';};
$dbh->do($sql);

That was the part that I had to set, tricky. Thanks!

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

心如狂蝶 2024-07-31 08:00:15

值得注意的是，如果您运行的 DBD::mysql 版本足够新（3.0008 上），您可以执行以下操作：$dbh->{'mysql_enable_utf8'} = 1; 和然后，在从/进入 DBI 的过程中，一切都会为您进行解码（）/编码（）。

回复收藏 0 原文

迷离° 2024-07-31 08:00:15

当您像这样连接到数据库时，启用 UTF8：

my $dbh = DBI->connect(
    "dbi:mysql:dbname=db_name", 
    "db_user", "db_pass",
     {RaiseError => 0, PrintError => 0, mysql_enable_utf8 => 1}
 ) or die "Connect to database failed.";

这应该会为您提供根据需要设置了 UTF8 标志的字符模式字符串。

来自 DBI 通用接口规则和规则注意事项：

Perl 支持两种字符串：Unicode（内部为 utf8）和非 Unicode（如果强制采用编码，则默认为 iso-8859-1）。驱动程序应该接受两种字符串，并且如果需要，将它们转换为正在使用的数据库的字符集。同样，当从数据库中获取非 iso-8859-1 字符数据时，驱动程序应将其转换为 utf8。

详细信息来自 DBD::mysql对于 mysql_enable_utf8

此外，打开此标志会告诉 MySQL 传入的数据应被视为 UTF-8。仅当用作 connect() 调用的一部分时，这才会生效。如果您在连接后打开该标志，则需要发出命令 SET NAMES utf8 才能获得相同的效果。

Enable UTF8, when you connect to database like this:

my $dbh = DBI->connect(
    "dbi:mysql:dbname=db_name", 
    "db_user", "db_pass",
     {RaiseError => 0, PrintError => 0, mysql_enable_utf8 => 1}
 ) or die "Connect to database failed.";

This should get you character mode strings with the UTF8 flag set as needed.

From DBI General Interface Rules & Caveats:

Perl supports two kinds of strings: Unicode (utf8 internally) and non-Unicode (defaults to iso-8859-1 if forced to assume an encoding). Drivers should accept both kinds of strings and, if required, convert them to the character set of the database being used. Similarly, when fetching from the database character data that isn't iso-8859-1 the driver should convert it into utf8.

And the specifics from DBD::mysql for mysql_enable_utf8

Additionally, turning on this flag tells MySQL that incoming data should be treated as UTF-8. This will only take effect if used as part of the call to connect(). If you turn the flag on after connecting, you will need to issue the command SET NAMES utf8 to get the same effect.

回复收藏 0 原文

同展鸳鸯锦 2024-07-31 08:00:15

该术语

$dbh->do(qq{SET NAMES 'utf8';});

绝对可以节省访问 utf-8 声明的数据库的时间，但请注意，如果您要对从数据库获取的任何数据进行任何 perl 处理，明智的做法是将其存储在将 perl var 作为 utf8 字符串，因为此操作不是隐式的。

$utfstring = decode('utf8',$string_from_db);

当然，为了正确地处理 utf8 字符串（读取、打印、写入输出），请记住进行设置

use open ':utf8';

，

binmode STDOUT, ":utf8";

后者对于打印 utf8 字符串至关重要。希望这可以帮助。

The term

$dbh->do(qq{SET NAMES 'utf8';});

definitely saves the day for accessing an utf-8 declared database, but take notice, if you are going to do any perl processing of any data obatined from the db it would be wise to store it in a perl var as an utf8 string with, as this operation is not implicit.

$utfstring = decode('utf8',$string_from_db);

of course, for proper i/o handling of utf8 strings (reading, printing, writing to output) remember to set

use open ':utf8';

and

binmode STDOUT, ":utf8";

the latter being essential for printing out utf8 strings. Hope this helps.

回复收藏 0 原文

痕至 2024-07-31 08:00:15

它可能与 Perl 无关。检查并确保您在相关 MySQL 表列中使用 UTF 编码。

回复收藏 0 原文

假装爱人 2024-07-31 08:00:15

请将此 öne 排除在外：

binmode STDOUT, ":utf8";

使用时

$dbh->do(qq{SET NAMES 'utf8';});

否则您的输出将具有双重 utf8 编码，导致无法读取双字节字符！
我花了几个小时才弄清楚这一点..

Leave this öne out:

binmode STDOUT, ":utf8";

when using:

$dbh->do(qq{SET NAMES 'utf8';});

Otherwise your output will have double utf8 encoding, resulting in unreadable double byte characters!
It took me a couple of hours to figure this out..

回复收藏 0 原文