[知乎问题]perl初级题目 - 读取文本到变量，脚本为什么运行不成功？

[vicyang]

原问题https://www.zhihu.com/question/52650642：

题目如下:打开文件A1.blast，把内容付给变量FILE
脚本如下:

代码： 全选

#!/usr/bin/perl 
open (FH,“E:/A1.blast”);
my $filename=“E:/A1.blast”;
$FILE=$filename;
print $FILE;

[vicyang]

示例 1 - 打开文件A1.blast ，把整个文件内容载入 $all 变量
说明：在标量环境下，默认返回1行内容，如果将全局变量（换行标记） $/ 临时设为 未定义，
那么读取一行也就变成了读取所有行。

Code: [show] | [select all]

#!/usr/bin/perl 

my $all;

my $fname = "E:/A1.blast";



open my $FH, "<:raw", $fname or die "$!";

{

    local $/ = undef;

    $all = <$FH>;

}

close $FH;



print $all;

示例2 - 打印a.pl本身的内容
说明：在数组环境下<FH>会自动返回所有行内容，然后用join把所有这些行连接返回到$all

Code: [show] | [select all]

open FH, "<:raw", __FILE__;

my $all = join("", <FH>);

close FH;



print $all;