用PERL怎么从文件中的第一行开始读取呢?

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

1^# HF.SKY000 发表于 2008-12-01 14:50

用PERL怎么从文件中的第一行开始读取呢?

比如:temp.txt内容:
1
2
3
4
5
6
7
8
9
10

open(IN,"temp.txt"||die "Can not open!";
while (<IN> {
@array=<IN>;
print @array;
}
close(IN);
输出结果为:
2
3
4
5
6
7
8
9
10
请问:程序怎么从第二行开始读取呢?怎样才能全部读取呢?请高手帮忙?

[fly]php忠实网迷[/fly]

qianzhuo

UID: 6744
帖子: 11
积分: 25
在线时间: 10 分钟

2^# qianzhuo 发表于 2008-12-01 14:53

while <FP>
{
print $_;
}

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

3^# HF.SKY000 发表于 2008-12-01 14:58

我要读到数组里.

[fly]php忠实网迷[/fly]

qianzhuo

UID: 6744
帖子: 11
积分: 25
在线时间: 10 分钟

4^# qianzhuo 发表于 2008-12-01 15:00

你要求还真多，放数组处理起来不慢么？

要放数组里读的时候用foreach
谁教你放数组里的？

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

5^# DQP 发表于 2008-12-01 15:00

@array=<IN>;

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

6^# HF.SKY000 发表于 2008-12-01 15:16

???????

[fly]php忠实网迷[/fly]

ddcc

UID: 36626
帖子: 194
积分: 446
在线时间: 2 天 3 小时

7^# ddcc 发表于 2008-12-01 15:25

直接赋给数组不就行了吗？

[Copy to clipboard] [ - ]

CODE:

open(IN,"temp.txt"||die "Can not open!";
@array=<IN>;
print @array;
close(IN);

为什么要加while?

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

8^# MMMIX 发表于 2008-12-01 15:56

QUOTE:

原帖由 HF.SKY000 于 2008-12-1 14:50 发表
open(IN,"temp.txt")||die "Can not open:$!";
while (<IN>) {
@array=<IN>;
print @array;
}

楼主，你如果明白

[Copy to clipboard] [ - ]

CODE:

@array = <IN>;

是嘛意思，你就会明白为嘛你打印出来的内容少了第一行

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

9^# ynchnluiti 发表于 2008-12-01 16:05

QUOTE:

原帖由 HF.SKY000 于 2008-12-1 14:50 发表
比如:temp.txt内容:
1
2
3
4
5
6
7
8
9
10

open(IN,"temp.txt"||die "Can not open!";
while () {
@array=;
print @array;
}
close(IN);
输出结果为:
2
3
4
5
6
7
8
9
10
请 ...

[Copy to clipboard] [ - ]

CODE:

第一行被while (<>) 中的<>吃了

HF.SKY000

UID: 28252
帖子: 3
积分: 6
在线时间: 10 分钟

10^# HF.SKY000 发表于 2008-12-01 18:04

哈哈,说的是对的..................
谢谢啦!!!!!!!!!!!!!!

[fly]php忠实网迷[/fly]