前端之家收集整理的这篇文章主要介绍了
逐字逐句读取Perl中的文本文件，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_
403_1@我有一个大的(300 kB)文本
文件,其中包含由空格分隔的单词.现在我想打开这个
文件并逐个处理它中的每个单词.
问题是perl一行一行地读取文件(即)整个文件,这给我带来了奇怪的结果.我知道正常的方法是做类似的事情
open($inFile,'tagged.txt') or die $!;
$_ = <$inFile>;
@splitted = split(' ',$_);
print $#splitted;
但这给了我一个错误的字数(太大的数组？).
是否可以逐字阅读文本文件？
@R_301_323@
要一次读取一个
文件,请将输入记录分隔符($/)更改为空格：
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
