循环读入文件和数组读入文件

very_99

while(<handle>){print $_;}

while(defined($a=<handle>)){print $a;}

@a=<handle>;print "@a\n";

这3个读取文本的操作有什么差别呢?

兰花仙子

前2者没什么区别。第3者是将文件读入一个数组，等于是全部读入内存，如果文件很大，会影响系统效率。

very_99

我也发现了,再加一个
foreach $as(<handle>)
{print "$a";}

这样就可以避免占内存了

very_99

附加一个问题,对于文本中的东西,我需要全文倒叙和每行倒叙
每行倒叙可以用foreach做
全文倒叙怎么办?用数组很占内存的.

laohuanggua

挖坟一下。今天做了一个。结果失败了。

#!/usr/bin/perl

use warnings;
use strict;

my $host_data_path="/usr/local/src/vhosts/host_data_file";

open(HOST_DATA,$host_data_path) || die("cannot open host_data_file");


while(<HOST_DATA>){
    #print $_; 可以输出每行来
    my @a=$_;
    print my $a[1];=====失败了
    #print length $_;====能输出每行的长度
    print "\n";
}



close HOST_DATA;

laohuanggua

改用split。终于读取来了。


my @r=split /\s+/,$_;

print $r[1],"=====",@r[0];

lkk2003rty

perl -e 'print reverse <>;' file

txh_zyy

学习下，花仙子赞

doujikai

恩，我一般习惯第一种，这样可以对每一行文本更方便进行处理

albertd

1. print while <>;

复制代码