perl如何循环读取文本文件内容

饭饭

UID: 37441
帖子: 85
积分: 195
在线时间: 10 小时

1^# 饭饭发表于 2006-04-14 03:10

perl如何循环读取文本文件内容

perl如何循环读取文本文件内容
#cat list.txt
zhangsan#beijing#8456874
lisi#shanghai#8452136
....

perl如何循环读出list.txt文本内容
传值给 $a =zhangsan $b=beijing $c=8456874
..

记得shell 里面比较简单啊

for a in `cat list.txt`
do
..
done

就可以的了 .
perl新手,请教下

smilelance

UID: 3973
帖子: 103
积分: 236
在线时间: 14 小时

2^# smilelance 发表于 2006-04-14 09:42

open(MYFILE,
open(MYFILE, "list.txt") || "File is not exist!";
while(<MYFILE>){
print $_;
}
close(MYFILE);

wormhole

UID: 28887
帖子: 183
积分: 420
在线时间: 1 天 21 小时

3^# wormhole 发表于 2006-04-14 14:43

用perl更简单：--#perl .
用perl更简单：
#perl -e 'map{($a,$b,$c)=split /#/} <>' list.txt