分类导航
PHPJavaPythonC#C&C++RubyVBasp.NetGoPerlDjangoDelphiJspSpringLuaLaravelMybatisAspGroovyThinkPHP

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

Perl   发布时间：2022-04-07  发布网站：大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了逐字逐句读取Perl中的文本文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
我有一个大的(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

大佬总结

以上是大佬教程为你收集整理的逐字逐句读取Perl中的文本文件全部内容，希望文章能够帮你解决逐字逐句读取Perl中的文本文件所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。
标签：perl中文件文本读取
猜你在找的Perl相关文章
其他相关热搜词更多
phpJavaPython程序员load中如何string使用参数jquery开发安装listlinuxiosandroid工具javascriptcap