高分悬赏Perl求助:如何读入大量的数组成的文件

发布网友发布时间：2022-12-10 22:56

共2个回答

热心网友时间：2024-11-16 22:22

输出utf8编码
在print() 之前加上:
binmode(STDOUT, ":utf8");

想要把 STDOUT, STDIN & STDERR 都设成 UTF-8，就用：
use open qw/:std :utf8/;

热心网友时间：2024-11-16 22:22

不知道你遇到了什么问题，我觉得直接写语句读就是了，系统不管文件大小的，例如：

FD=fopen('*.txt');
while ($line=<FD>){
chomp($line);
@nums=split(/\s+/,$line);
foreach $num (@nums) print "$num ";
}
close(FD);

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com