DATA其实是个自定义的变量，不是PERL自带的，一般你这句的前后是这样的：
open(DATA,"XXX.TXT");
print while();
close(DATA);
上面代码段实现的功能是显示XXX.TXT文件的所有内容，程序里面的DATA可以换为其它名字，例如F1、F2、……
唔.. 先看以下一例
print while() ;
__DATA__
one
two
three
要使用 DATA, 首先就得在脚本的最後一个部分加入 __DATA__ 这样一句. (留意是全大写)
在 __DATA__ 以下的内容, 就可以当成"文本"看待, 而 DATA 本身就是一个已打开的"句柄" (handle)
至於会读取到甚麼讯息, 就全看你在 __DATA__ 之下写的是甚麼了.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024