Perl的DATA文件句柄

设为首页
点击收藏
手机版

手机扫一扫访问
迪恩网络手机版
关注官方公众号

微信扫一扫关注
公众号

登陆注册

快速发帖
客服电话

点击联系客服
在线时间：8:00-16:00

客服电话

132-9538-2358

电子邮件
[email protected]
APP下载

迪恩网络APP

随时随地掌握行业动态
官方微信

扫描二维码

关注迪恩网络微信公众号
问题反馈
返回顶部

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

有太多次写完一个perl程序，需要另外新建一个文件来测试，每次觉得很繁琐，但又不得不这么做。没想到原来perl已经提供了解决方案，这就是DATA。

使用很简单，见下面这个例子：

1 #!/usr/bin/perl
2 
3 while (<DATA>) {
4         print;
5 }
6 
7 __DATA__
8 hello perl

输出结果: hello perl

这个用法太方便太perl了，以后再也不需要使用新建文件的笨方法了。

下面是解释：

文件句柄可以直接从执行它的脚本中获取数据，而不是从命令行或者从另一个文件里获取。<DATA> 所读取的数据保存在每个脚本末尾的特殊常量__DATA__之后，同时这个常量也标志着脚本的逻辑结束。

注意：脚本中有两个while(<DATA>)将只有前一个起作用，因为前一个已经读到了文件结尾。比如以下示例：

 1 #!/usr/bin/perl -w
 2 use strict;
 3 
 4 while (<DATA>) {
 5         print "$_";
 6 }
 7 
 8 while (<DATA>) {
 9         print;
10 }
11 
12 __DATA__
13 hello world

输出结果:

hello world

而不是:

hello world

DATA

A Virtual File In Perl

It has been occurred a lot of times that one has to test a code using data from a file. It can be anything like checking for a pattern in a file to taking some input. If you want to check the code without opening the file and reading it. One can use the __DATA__ marker provided by perl as a pseudo-datafile.

Steps to follow:
1) At the end of the code use __DATA__ marker and copy paste or write the contents of the file you wish to test exactly from the next line of _DATA_.
2) Use while (){ -- your code here -- }.

#!/usr/bin/perl
use strict;
use warnings;

while () {
chomp $_;
print "Found" if $_ =~ /(t\w+)/;
print $1;
}
__DATA__
hello there how r u

Output of the above program will be “there”.