逐字逐句读取Perl中的文本文件

发布时间：2020-12-15 22:00:20 所属栏目：大数据来源：网络整理

导读：我有一个大的(300 kB)文本文件,其中包含由空格分隔的单词.现在我想打开这个文件并逐个处理它中的每个单词. 问题是perl一行一行地读取文件(即)整个文件,这给我带来了奇怪的结果.我知道正常的方法是做类似的事情 open($inFile,'tagged.txt') or die $!;$_ = $i

我有一个大的(300 kB)文本文件,其中包含由空格分隔的单词.现在我想打开这个文件并逐个处理它中的每个单词.

问题是perl一行一行地读取文件(即)整个文件,这给我带来了奇怪的结果.我知道正常的方法是做类似的事情

open($inFile,'tagged.txt') or die $!;
$_ = <$inFile>;
@splitted = split(' ',$_);
print $#splitted;

但这给了我一个错误的字数(太大的数组？).

是否可以逐字阅读文本文件？

解决方法

要一次读取一个文件,请将输入记录分隔符($/)更改为空格：

local $/ = ' ';

例：

#!/usr/bin/perl
use strict;
use warnings;

use feature 'say';

{
    local $/ = ' ';

    while (<DATA>) {
        say;
    }
}

__DATA__
one two three four five

输出：

one 
two 
three 
four 
five

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!