问题是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