关于散列读取文件

flw

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

现在已经下台了。

ccie307

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

forlorngenius

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


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

ccie307

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

这句来读取的话？

shift @AGRV能读出啥呢

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

ccie307

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

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

cobrawgl

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

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

forlorngenius

churchmice

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

ccie307

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