如何从Perl输出UTF-8？
要从Perl输出UTF-8，您需要遵循以下步骤：
- 首先，确保您的Perl脚本使用了正确的字符集。在脚本的开头添加以下行以使用UTF-8：
use utf8;- 接下来，确保您的输出文件也使用UTF-8。您可以通过以下方式打开一个文件句柄并将其设置为UTF-8：
open(my $fh, '>:encoding(UTF-8)', 'output.txt') or die "Error opening file: $!";- 现在，您可以在文件句柄中输出UTF-8字符串了。例如：
print $fh "这是一个UTF-8字符串\n";- 最后，不要忘记关闭文件句柄：
close($fh);这样，您就可以在Perl脚本中输出UTF-8字符串了。完整的示例代码如下：
use utf8;
open(my $fh, '>:encoding(UTF-8)', 'output.txt') or die "Error opening file: $!";
print $fh "这是一个UTF-8字符串\n";
close($fh);这个示例将在名为output.txt的文件中创建一个UTF-8字符串。
相关·内容
1回答
如何使文本的输出：：CSV utf8？
perl、csv、encoding、utf-8
我有一个CSV文件，比如win.csv，它的文本是用windows-1252编码的。首先，我在utf8中使用iconv来实现它。
$iconv -o test.csv -f windows-1252 -t utf-8 win.csv
然后，我用下面的Perl脚本(utfcsv.pl)读取转换后的CSV文件。
#!/usr/bin/perl
use utf8;
use Text::CSV;
use Encode::Detect::Detector;
my $csv = Text::CSV->new({ binary => 1, sep_char => ';'
浏览 0提问于2015-05-30得票数 4
回答已采纳
2回答
使用来自另一个文件的输入输出到文件
perl、input、output
我正在尝试输出到一个文件，使用来自另一个文件的输入。无键盘输入。
我知道我在正确的轨道上，我的语法只是有点偏离。
基本上，我从文件"boot.log“中获取记录，使用模式匹配选择某些记录，并将它们输出到名为"bootlog.out”的文件中。我还没有讲到模式匹配部分。这是我的资料..。
open (BOOTLOG, "boot.log") || die "Can't open file named boot.log: $!";
while ($_ = <BOOTLOG>)
{
print $_;
}
open (LOGOU
浏览 2提问于2013-10-30得票数 0
3回答
Perl在文件中读写
perl
好了，我带着另一个问题回来。我知道在Python中有一种方法可以读取文件，而无需指定它将是哪个文件，直到您进入命令提示符。所以基本上你可以设置脚本，这样你就可以读入任何你想要的文件，而不必每次都回过头来更改代码。有没有办法在Perl中做到这一点？如果是这样的话，你也可以写这样的文件吗？谢谢。
这就是我所拥有的：
open (LOGFILE, "UNSUCCESSFULOUTPUT.txt") or die "Can't find file";
open FILE, ">", "output.txt" o
浏览 0提问于2012-06-07得票数 2
回答已采纳
3回答
我试图在perl中操作csv。
输入csv在列数据中有一些新的行字符，这会导致其他外部程序失败。我在下面编写了Perl脚本，对csv进行预处理以删除这些字符。
use strict;
use warnings 'all';
# Using Text::CSV file to allow
# full CSV Reader and Writer
use Text::CSV;
use open ":std", ":encoding(UTF-8)";
my $file = $ARGV[0] or die;
my $csv = Text::
浏览 7提问于2020-04-01得票数 1
回答已采纳
3回答
可以将Tie::File与utf编码的输出文件一起使用吗？我不能让它正常工作。我要做的是打开这个utf编码的文件，从文件中删除匹配的字符串，然后重命名文件。
代码：
use strict;
use warnings;
use Tie::File;
use File::Copy;
my ($input_file) = qw (test.txt);
open my $infh, "<:encoding(UTF-16LE)", $input_file or die "cannot open '$input_file': $!";
for (
浏览 0提问于2011-10-15得票数 3
回答已采纳
1回答
UTF-8编码的JSON文件，尝试使用JSON模块范围的字符进行解析
perl、utf-8
我在Perl中有一个非常简单的脚本： use JSON;
use open qw/ :std :encoding(utf8) /;
#my $ref = JSON::decode_json($json_contents);
my $path = "/home/chambres/web/x.org/public_html/cgi-bin/links/admin/booking_import/import/file.json";
my $json_contents = slurp_utf8_file($path);
my $ref = JSON->new->
浏览 29提问于2019-02-05得票数 2
回答已采纳
2回答
Perl中格式错误的JSON字符串
xml、json、perl、malformed
我正在尝试将json文件转换为xml。因此，将扫描JSON目录，如果到达该目录的任何文件都将转换为xml并移动到xml目录。
但我发现了这个错误
在关闭的文件句柄$fh上的readline()位于json.pl第29行。
格式错误的JSON字符串，没有数组、对象、数字、字符串或原子，在json.pl第34行的字符偏移量为0(“(字符串的结尾)”之前)
json.pl
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
binmode STDOUT, ":utf8";
use utf8;
use JSO
浏览 2提问于2015-01-08得票数 0
3回答
西里尔符号在写入文件时显示了strangеly
perl、utf-8、cyrillic、writetofile
我有一个类，它有一个字符串字段input，其中包含UTF-8字符。我的班级也有一个方法toString。我希望使用toString方法将类的实例保存到文件中。问题是文件中正在写入奇怪的符号：
my $dest = "output.txt";
print "\nBefore saving to file\n" . $message->toString() . "\n";
open (my $fh, '>>:encoding(UTF-8)', $dest)
or die "Cannot open
浏览 7提问于2016-09-02得票数 3
回答已采纳
1回答
在一个文件夹中一次在多个文件上运行带有Python的perl脚本
python、perl
目前，这是我的perl脚本：
#!/usr/bin/perl
use open qw/:std :utf8/;
use strict;
use warnings;
if (defined $ARGV[0]){
my $filename = $ARGV[0];
my %count;
open (my $fh, $filename) or die "Can't open '$filename' $!";
while (<$fh>)
{
$count{ lc $1 }++ while /(\w+)/g;
}
close $fh;
浏览 0提问于2019-05-12得票数 2
1回答
在Windows7和8.1中使用Perl复制数据后的不同文件
windows、perl、file
我有一个文件(1.pdf)，它是1mb。我有一个简单的Perl脚本，它从文件中按块读取数据，然后将每个缝隙写入新文件。在检查两个文件的权重后--它们在大约14 in内是不同的。
在Linux 15和MacOS10.9.5中工作得很好。问题只出现在Win7 x32、Win8.1 x64和Win7 x64中。
我需要在写入新文件之前处理该文件(当然)，但是读取文件+将它们写入新文件的简单基本操作在WIN OS中是行不通的。有时操作系统为我“组合”新字节，有时删除。
我们使用的脚本是：
#!/usr/bin/env perl
use strict;
use warnings;
my $filen
浏览 6提问于2015-11-06得票数 0
回答已采纳
1回答
perl脚本不需要文本文件
perl
我有一个Perl脚本，它应该查找我在命令参数中写入的文本文件，但是，不管出于什么原因，它都不承认我在参数中写入的文本文件的存在，即使它位于同一个文件夹中。
这就是代码开始混乱的地方。
my $filename = $ARGV[0];
if($filename == "") {
print("[ERROR] Argument unavailable! use ./script.pl filename.txt\n");
end;
} elsif (open (FILE, "<", $filename)) {
print
浏览 6提问于2022-08-26得票数 -2
2回答
输入：
NAME Age Occupation Place
X1 43 Artist Italy
X2 42 Artist Germany
Y1 56 Artist France
我需要提取姓名和年龄列。
我的代码：
#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils;
my $file = @ARGV[0];
open(FH, "< $file") or die "Cannot open $file for reading: $!";
浏览 0提问于2014-05-08得票数 0
回答已采纳
4回答
使用大型文本文件的Perl“内存不足”
windows、string、perl、memory
以下代码在Strawberry Perl for Windows的最新版本中有问题:我想读取目录中的所有文本文件并处理它们的内容。我目前没有看到一种逐行处理它们的方法，因为我想对文件内容所做的一些更改跨换行符。处理主要涉及删除大量文件块(在下面的示例代码中，它只是一行，但理想情况下，我会运行几个类似的正则表达式，每个正则表达式都从文件中删除)。
我正在大量的文件(>10,000)上运行这个脚本，它总是以“内存不足！”来分解。一个大于400 MB的特定文件上的消息。问题是，当我编写一个只处理一个文件的程序时，代码工作得很好。
这台机器有8GB内存，所以我认为物理RAM不是问题。
我阅读了其
浏览 6提问于2015-02-04得票数 2
回答已采纳
1回答
用Perl读取文件中断编码
perl、encoding、escaping
我有用Perl读取html文件的脚本，它可以工作，但是它破坏了编码。
这是我的脚本：
use utf8;
use Data::Dumper;
open my $fr, '<', 'file.html' or die "Can't open file $!";
my $content_from_file = do { local $/; <$fr> };
print Dumper($content_from_file);
含量file.html:
<span class="previews-counter
浏览 0提问于2018-11-17得票数 0
回答已采纳
2回答
perl脚本中的读写操作
linux、perl
我是Perl脚本的新手。
我想对一个文件进行读写操作。我将以读写模式(+<)打开一个文件，并将其写入文件。现在，我想读取我之前写入的文件。下面是我的代码：
#!/usr/bin/perl
`touch file.txt`; #Create a file as opening the file in +< mode
open (OUTFILE, "+<file.txt") or die "Can't open file : $!";
print OUTFILE "Hello, welcome to File handling
浏览 0提问于2012-06-06得票数 2
回答已采纳
3回答
Perl中的递归搜索？
perl
我是Perl的新手，从来都不是一个杰出的程序员。我有一些成功的BVA例程来控制微处理器的功能，但从来没有任何嵌入式或多因素。无论如何，我今天的问题是，当我试图弄清楚如何从我创建的文本文件中删除重复的文本行时，我无法克服一个难题。
文件中可能有几行相同的txt，而不是按顺序放置，这是有问题的，因为我实际上是逐行比较文件本身。因此，如果第一行和第三行相同，我将把第一行写入一个新文件，而不是第三行。但是当我比较第三行时，我会重新编写它，因为第一行被我当前的代码“遗忘”了。我相信有一种简单的方法可以做到这一点，但我在代码中使事情变得简单是有问题的。代码如下：
my $searchString = ps
浏览 0提问于2017-09-29得票数 2
3回答
如何在Perl中写入其*filename*包含utf8字符的文件？
windows、perl、utf-8、filenames、cmd
我正在努力创建一个包含非ascii字符的文件。
如果以0作为参数调用它，但使用1调用它时，下面的脚本工作得很好。
错误消息是打开的: C:\temp\filename.pl第15行的无效参数。
脚本是在cmd.exe中启动的。
我希望它编写一个文件，其名称要么是(取决于参数) äöü.txt，要么是äöü☺.txt。但我无法创建包含笑脸的文件名。
use warnings;
use strict;
use Encode 'encode';
# Text is stored in utf8 within *this* file.
use utf8;
my $with_s
浏览 1提问于2011-08-26得票数 11
回答已采纳
3回答
如何在文件末尾检测格式错误的UTF-8？
perl、utf-8
在读取包含无效UTF-8的文件(应该包含有效的UTF-8)时，我尝试打印一条警告消息。但是，如果无效数据位于文件的末尾，我将无法输出任何警告。下面的创建了一个包含无效UTF-8数据的文件(该文件的创建与一般问题无关，只是添加到此处以生成一个MVCE)：
use feature qw(say);
use strict;
use warnings;
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
my $bytes = "\x{61}\x{E5}\x{61}"; # 3 bytes in is
浏览 13提问于2016-08-04得票数 1
3回答
perl数组打印为GLOB(#x#)
perl、split
我有一个文件，其中包含一个用分号分隔的电子邮件地址列表，它的配置很像这样(但要大得多)： $ cat email_casper.txt
casper1@foo.com; casper2@foo.com; casper3@foo.com; casper.casper4@foo.com;
#these throw outlook error :
#casper101@foo.com ; casper100@foo.com
#cat /tmp/emailist.txt | tr '\n' '; '
#cat /tmp/emallist.txt | perl -nl
浏览 55提问于2019-01-31得票数 1
4回答
在perl中一次处理多个文件？
perl、parsing
我有一个perl脚本，它打开一个txt文件，解析它，以便将适当的文本输出到csv文件。我现在已经为一个文件做了很好的工作，但我也有很多类似的文件需要以完全相同的方式来处理。我希望能够自动执行此操作，这样代码将通过file1.txt工作并解析我想要output.csv的文本，然后通过file2.txt工作并将此输出附加到相同的output.csv。我在下面的代码中包含了相关的部分，只排除了while循环中执行实际解析的代码，因为我不需要修改它。输入文件的名称是一致的，例如file1.txt、file2.txt、file3.txt等，并且所有文件都位于同一目录中
my $mode = "n
浏览 0提问于2013-04-11得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
