Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1722292
  • 博文数量: 234
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3322
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(234)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(44)

2012年(27)

2011年(22)

2010年(30)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类:

2009-10-28 11:31:00

使用Perl从文件中读取字符串,一般有两种方法:
1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件):

open(FILE,"filename")||die"can not open the file: $!";
@filelist=;

foreach $eachline (@filelist) {
chomp $eachline;
}
close FILE;

@filelist=;
当文件很大时,可能会出现"out of memory"错误,这是可以采用如下方法,一次读取一行。

2. 一次从文件中读取一行,一行行地读取和处理(读取大文件时比较方便):

open(FILE,"filename")||die"can not open the file: $!";

while (defined ($eachline =)) {
chomp $eachline;
# do what u want here!
}
close FILE;
阅读(1612) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~