perl - perl 中未提供文件名时如何使用 __DATA__ 句柄

Question

如果没有向 perl 脚本提供文件名，则寻找使用 DATA 句柄的方法。

我对 perl 不是很熟练。

就像是:

use strict;
use warnings;
use autodie;
use diagnostics;

my $fd;
if( $ARGV[0] && -f $ARGV[0] ) {
    open $fd, "<", $ARGV[0];
} else {
    $fd = "DATA";   #what here?
}

process($fd);
close($fd); #closing the file - or the DATA handle too?

sub process {
    my $handle = shift;
    while(<$handle>) {
        chomp;
        print $_,"\n";
    }
}

__DATA__
default content

Answer 1

$fd=\*DATA ;应该做的伎俩