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

wxlfh

UID: 22014
帖子: 1
积分: 2
在线时间: 10 分钟

11^# wxlfh 发表于 2008-12-01 22:05

楼主应该多看看小骆驼书，会有帮助的。

HF.SKY000

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

12^# HF.SKY000 发表于 2008-12-02 10:34

再问个问题.比如文件temp.txt内容为:
00
01
02
03
04
等等,能不能不用数组,直接读取文件中第一,三,五,七行等?

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

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

13^# FinalBSD 发表于 2008-12-02 10:47

QUOTE:

原帖由 HF.SKY000 于 2008-12-2 10:34 发表
再问个问题.比如文件temp.txt内容为:
00
01
02
03
04
等等,能不能不用数组,直接读取文件中第一,三,五,七行等?

试试这样：

open(FH,"temp.txt");
$i++;
while(<FH>) {
print(),$i+=2 if $. == $i;
last if $. > 7;
}
close(FH);

HF.SKY000

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

14^# HF.SKY000 发表于 2008-12-02 14:36

为什么要写last if $_>7呢?
还有 print(),$i+=2 if $. == $i;
不太明白

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

15^# cobrawgl 发表于 2008-12-02 14:43

lz 还是先看书去吧，这个比提问要重要的多

ynchnluiti

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

16^# ynchnluiti 发表于 2008-12-02 15:12

QUOTE:

原帖由 HF.SKY000 于 2008-12-2 14:36 发表
为什么要写last if $_>7呢?
还有 print(),$i+=2 if $. == $i;
不太明白

他以为你只要1,3,5,7不要后面的

HF.SKY000

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

17^# HF.SKY000 发表于 2008-12-02 16:19

哦,.........
能用PERL写往手机上发短信的程序不能.能否提供一下源代码或者提供思路不能?

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

ynchnluiti

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

18^# ynchnluiti 发表于 2008-12-02 16:36

QUOTE:

原帖由 HF.SKY000 于 2008-12-2 16:19 发表
哦,.........
能用PERL写往手机上发短信的程序不能.能否提供一下源代码或者提供思路不能?

当然能写。你用哪种方式发短信。
短信网关还是手机模块。还是手机接在电脑上发。
如果是短信网关的话就是用socket发送符合短信网关协议的数据
后两者类似串口编程。

http://bbs.chinaunix.net/viewthread.php?tid=1275308
http://www.umts-tools.org/

HF.SKY000

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

19^# HF.SKY000 发表于 2008-12-02 17:55

通过短信网管.
能否提供源代码瞧瞧呀!!!!!!!!!!!!!!!

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