帮忙解释一下这段代码内部原理 $SEEK = "123.txt";open(SEEK);

hitsubunnu

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

1^# hitsubunnu 发表于 2008-03-10 18:39

帮忙解释一下这段代码内部原理 $SEEK = "123.txt";open(SEEK);

今天看到一段代码虽然知道运行结果但是不明白里面的原理

[Copy to clipboard] [ - ]

CODE:

$SEEK = "123.txt";
open(SEEK);
while(<SEEK>){
print;
}
close SEEK;

open(SEEK) 里面省略了什么？怎么把"123.txt"带进去的

churchmice

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

2^# churchmice 发表于 2008-03-10 18:45

你确认是SEEK而不是$SEEK ??

hitsubunnu

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

3^# hitsubunnu 发表于 2008-03-10 18:46

不是你可以运行一下就是因为这个我才不理解呢

churchmice

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

4^# churchmice 发表于 2008-03-10 18:49

果然神奇
see
perldoc -f open
open FILEHANDLE,EXPR
   open FILEHANDLE,MODE,EXPR
   open FILEHANDLE,MODE,EXPR,LIST
   open FILEHANDLE,MODE,REFERENCE
   open FILEHANDLE
            Opens the file whose filename is given by EXPR, and associates
            it with FILEHANDLE.

            (The following is a comprehensive reference to open(): for a
            gentler introduction you may consider perlopentut.)

            If FILEHANDLE is an undefined scalar variable (or array or hash
            element) the variable is assigned a reference to a new anony-
            mous filehandle, otherwise if FILEHANDLE is an expression, its
            value is used as the name of the real filehandle wanted.  (This
            is considered a symbolic reference, so "use strict 'refs'"
            should not be in effect.)

QUOTE:

  If EXPR is omitted, the scalar variable of the same name as the
            FILEHANDLE contains the filename.  (Note that lexical vari-
            ables--those declared with "my"--will not work for this pur-
            pose; so if you're using "my", specify EXPR in your call to
            open.)

就是说open(FILEHANDLE)相当与

[Copy to clipboard] [ - ]

CODE:

open(FILEHANDLE,$FILEHANDLE);

hitsubunnu

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

5^# hitsubunnu 发表于 2008-03-10 19:03

perl 有点儿太自由了

我就因为这个改了将近4个小时的程序让我在将近2000行代码中就找打开文件的位置

这么写程序有些害人

在此对之前写程序的人亲属表示抱歉

churchmice

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

6^# churchmice 发表于 2008-03-10 19:14

QUOTE:

原帖由 hitsubunnu 于 2008-3-10 19:03 发表
perl 有点儿太自由了

我就因为这个改了将近4个小时的程序让我在将近2000行代码中就找打开文件的位置

这么写程序有些害人

在此对之前写程序的人亲属表示抱歉

习惯了就好了

start2008

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

7^# start2008 发表于 2008-03-10 21:38

呵呵懒惰是perler的美德
正在看的learning perl中提到的
又学了一招

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

8^# perljoker 发表于 2008-03-11 09:52

我倒，这招学了可不好……

cobrawgl

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

9^# cobrawgl 发表于 2008-03-11 10:37

perl 给你自由

但自由是有代价的

jcool

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

10^# jcool 发表于 2008-06-19 09:54

呵呵，好有意思　．．．

帮忙解释一下这段代码内部原理 $SEEK = &quot;123.txt&quot;;open(SEEK);

帮忙解释一下这段代码内部原理 $SEEK = &quot;123.txt&quot;;open(SEEK);

帮忙解释一下这段代码内部原理 $SEEK = "123.txt";open(SEEK);

帮忙解释一下这段代码内部原理 $SEEK = "123.txt";open(SEEK);