代码之家 › 专栏 › 技术社区 › adhanlon

为什么Perl只给我文件中的最后一行?

file perl

adhanlon · 技术社区 · 16 年前

我已下载以下文件: rawdata_2001.text

我有以下perl代码:

open TEXTFILE, "rawdata_2001.text";
while (<TEXTFILE>) {
    print;
}

但是,这只打印文件中的最后一行。你知道为什么吗?如有任何反馈,将不胜感激。

2 回复 | 直到 16 年前

ergosys 16 年前

该文件仅使用回车符格式化,因此它被作为一行插入。您应该能够将$/设置为“\r”以使其逐行读取。然后,您应该用chomp去掉回车符,并确保在字符串后面打印一行新行。

Eric Strom 16 年前

"\r" 行结束,但您的终端需要 "\n" 或 "\r\n"

open my $textfile, '<', "rawdata_2001.text" or die;
while (<$textfile>) {
    chomp;
    print "$_\n";
}

local $/ = $ending; 哪里 $ending "\n", "\r\n", "\r"

推荐文章

7BeholdeR7 · 文件夹的重量超过其中的文件(六倍)

4 年前

Clownpiece · 如何在python 3.8中反转txt文件?[已关闭]

4 年前

ColorfulYoshi · 如何在Tkinter中只打开一种格式的文件

4 年前

Kemper Lee · JAVAutil。扫描仪拒绝接受下一个(或任何)输入(已解决)

4 年前

Tomás Jullier · 我需要用python替换SQL文件中的某个数字

4 年前

ilteris · 为什么程序在fscanf后崩溃

4 年前

Peaceful · 使用fscanf读取C中具有未知行数的文件

4 年前

NOCi · 如何将Tensorflow的结果记录到CSV文件

4 年前

Oakzeh · 如何在字符串索引之前读取文件并删除字符

4 年前

Harjinder Singh · 将文件附加到Netsuite中的记录

4 年前