如何从文本文件中以正确的形式读取 Perl 中的字符串答案

【问题标题】：How to read strings in Perl as correct form from text file如何从文本文件中以正确的形式读取 Perl 中的字符串
【发布时间】：2014-04-21 05:03:05
【问题描述】：

我想在 perl 中以正确的格式从“.txt”文件中读取文本，

我在“.txt”文件中有以下文本：

Feste begründen die Identität einer Gemeinschaft und ihr Selbstverständnis nach innen。 Eng damit verbunden sind Emotionen, die zunächst im Zusammenhang mit einer gefühlten Zugehörigkeit zu einer Fest-Gemeinschaft zu verstehen sind。 Mit jedem Fest verbindet sich aber auch eine evidenced Überschreitung des Alltags: Der bestimmende festliche Eindruck – die feierliche Gestimmtheit – ist der einer erhöhten Bedeutungshaftigkeit des Lebens, durch die sich das Festliche aus dem Lauf des Alltagslebens hervorhebt und dessen Wirkmächtigkeit zuvörderst anhand der Analyze des bürgerlichen Geburtstages sinnfällig 演示 werden soll。

我可以轻松读取 .txt 文件，但我无法以正确的形式读取，我的意思是当我从 perl 中的文本文件中读取时，我得到上面的字符串：

请提出你的想法来解决这个问题，

谢谢

【问题讨论】：

标签： string perl file

【解决方案1】：

您可能以错误的编码打开文件。看看PerlIO。

open(my $fh, "<:encoding(utf8)", "data.utf") or die "Can't open data.utf: $!";
my @in = <$fh>;
close($fh);

【讨论】：

感谢米勒，现在我可以阅读文本了，但存在一些未格式化的文本。例如：Feste begründen die Identität einer Gemeinschaft und ihr Selbstverständnis nach innen. Eng damit verbunden sind Emotionen, die zunächst im Zusammenhang mit einer gefühlten 如果您想要截图，则此行未正确转换意味着我可以发送
输出通道也必须有正确的编码。因此，如果您在控制台上打印，则需要调用 binmode(STDOUT, ":utf8");打印之前。
@user3354853 我相信 szabgab 已经给了你另一个答案。但是，如果您想更新您的问题，只需编辑您的原始问题以添加新信息和问题。
我在从文本文件中读取内容之前遵循了 szabgab 程序，但我仍然无法正确读取，我仍然可以获得与我之前对您的评论中显示的相同的未格式化文本，Miller 先生，我'对不起，我是 perl 新手，所以如果我不理解你的回复，请道歉
@user3354853：完全不清楚您现在看到的文本有什么问题。它看起来与我的输入相同。请描述您看到的错误