怎么定义伪文件句柄

coldrainsunc

难道下面定义的伪文件句柄不对吗？

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my @hostlist;
   
6. @hostlist=<DATA>;
   
7. …………
   
8. …………
   
9. 
   
10. _DATA_
    
11. 127.0.0.1       本机
    
12. 192.168.1.23   工位网关
    
13. …………
    
14. …………
    
15. www.baidu.com   百度
    
16. _END_

复制代码

可是运行时
Number found where operator expected at ./netping.pl line 33, near "_DATA_
127.0.0.1"
        (Missing semicolon on previous line?)
syntax error at ./netping.pl line 33, near "_DATA_
127.0.0.1"
Unrecognized character \xB1 at ./netping.pl line 33.


望兄弟们不吝赐教，多谢！

coldrainsunc

搞定了，不好意思，书上看得不是很清楚，原来有两个下划线
__DATA__
数据
__END__

coldrainsunc

有一点搞不明白，如果我想在一个文件中定义两个伪文件句柄该怎么做？

福瑞哈哥

原帖由 coldrainsunc 于 2007-5-9 14:18 发表
有一点搞不明白，如果我想在一个文件中定义两个伪文件句柄该怎么做？

好像不行，等Perl 6吧。

coldrainsunc

唉，难过了！呵呵！

coldrainsunc

只能将两块数据合在一起，在读入数据的时候再分开吧！

福瑞哈哥

注意使用了__DATA__，不需要在最后加一个__END__，这两个在你的代码中是同义的。

coldrainsunc

__END__
标记数据的结束
如果没有的话数据定义至文件结尾

福瑞哈哥

__END__标记main程序的结束，数据段的开始。你可以把__DATA__换成__END__

gsging

原帖由 coldrainsunc 于 2007-5-9 14:51 发表
__END__
标记数据的结束
如果没有的话数据定义至文件结尾

楼主写个程序试试看你说的对不.