关于散列读取文件

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

11^# flw 发表于 2008-08-27 16:16

QUOTE:

原帖由 churchmice 于 2008-8-27 16:12 发表
受教了
又可以少码些字了
ps:水木perl版版主也是你？

现在已经下台了。

ccie307

UID: 34026
帖子: 101
积分: 232
在线时间: 14 小时

12^# ccie307 发表于 2008-08-27 17:34

看了半个下午了
my $log= shift@ARGV||"chengji.log";
open my $file,"<",$log or die "Fail to open $log $!";
这两句啥意思啊
||不是短路符吗
怎么可能把 chengji.log放到@ARGV里面呢？

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

13^# forlorngenius 发表于 2008-08-27 17:39

my $log= shift@ARGV||"chengji.log";

是shift @ARGV 这个不成功才用 chengji.log

ccie307

UID: 34026
帖子: 101
积分: 232
在线时间: 14 小时

14^# ccie307 发表于 2008-08-27 17:44

哦  那我就理解对了他是短路字符
那  文件是通过
open my $file,"<",$log or die "Fail to open $log $!";

这句来读取的话？

shift @AGRV能读出啥呢

不好意思哈，基础太差
但热情足够

ccie307

UID: 34026
帖子: 101
积分: 232
在线时间: 14 小时

15^# ccie307 发表于 2008-08-27 17:48

The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the number of arguments minus one, because $ARGV[0] is the first argument, not the program's command name itself. See $0 for the command name.

好像明白了谢谢大家了

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

16^# churchmice 发表于 2008-08-27 19:32

原来这样啊
我前几天上水木发现居然有个perl版所以赶忙申请了个ID
看到版主很熟悉

cobrawgl

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

17^# cobrawgl 发表于 2008-08-27 20:01

QUOTE:

原帖由 churchmice 于 2008-8-27 19:32 发表
原来这样啊
我前几天上水木发现居然有个perl版所以赶忙申请了个ID
看到版主很熟悉

除了这里，好像也没有别的地方可以混混了吧

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

18^# forlorngenius 发表于 2008-08-27 20:10

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

19^# churchmice 发表于 2008-08-27 20:48

确实
以前我们学校还有个perl版
后来改版成complang了

ccie307

UID: 34026
帖子: 101
积分: 232
在线时间: 14 小时

20^# ccie307 发表于 2008-08-28 00:41

又仔细看了一下发现下面的语法在learningperl中都有提到
看书不细
看来真得看上一百遍啊一百遍
my $log= shift@ARGV||"chengji.log";
open my $file,"<",$log or die "Fail to open $log $!";