• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

perl 如何将文件内容读到一个标量中

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

将文件读入一个列表中很简单,如下:

1 open(IN, $file); 
2 @file = <IN>;

但如何将文件读入到一个标量中?

最简单的方法是设置perl内置变量$/,如下:

1 #!/usr/bin/perl -w
2 use strict;
3 open my $fh, '<', 'file.txt' or die $!; #系统或库调用fail时会设置$!
4 my $content = do { local $/; <$fh> };

或者也可以用undef:

1 my $file = "file.txt";
2 open (IN, "<$file") || die "Cannot open file: $file";
3 undef $/; #local $/;
4 my $content = <IN>;
5 close IN;

这里关键是变量$/. 

$/的值默认是换行符,因此一般情况下我们使用<>读取文件时都是一行一行读取的,使用local或者undef将使得读取文件直到文件结尾。如下:

1 local $/; # enable "slurp" mode
2 local $_ = <FH>; # whole file now here

一个完整应用的例子:

1 my $content; 
2 if ( open my $fh, '<', 'file.txt' ) {
3 $content = do { local $/; <$fh> };
4 close $fh;
5 } else {
6 $content = 'The file could not be opened.';
7 }

 

========================================

关于$/还有一点值得补充:
设置 $/ 为一个整数的引用,包含整数的标量,或者可以转换为整数的标量(reference to an integer, scalar containing an integer, or scalar that's convertible to an integer),将会从文件中读取不超过该整数字节的数据,比如:

1 local $/ = \32768; # or \"32768", or \$var_containing_32768
2 open my $fh, "<", $myfile or die $!;
3 local $_ = <$fh>;

将从文件读取不超过 32768 bytes的数据。

另外需要注意的是$/的值是一个字符串,不是一个正则表达式。
关于$\以及其他变量,可参考perldoc perlvar

 

========================================
其他的方法还有:
1.使用join函数

1 open(IN, $file) or die $!; 
2 my $content = join("", <IN>);
3 close IN;

2.使用列表转换成标量

一个完整的用法的例子:

 1 my $content; 
2 my $opened = open(IN, $file);
3 if (!$opened) {
4 $content = "Error.";
5 } else {
6 @lines = <IN>;
7 foreach $LINE (@lines) {
8 $content .= $LINE;
9 }
10 close(IN);
11 }

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
linux批量替换文件内容3种方法(perl,sed,shell)发布时间:2022-07-22
下一篇:
perl-opengl几何变换函数发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap