如何在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;應該做的竅門

Answer 2

如果文件打開失敗，而不是讓autodie停止您的程序，您可能更喜歡默認爲DATA句柄。無論如何，這是一個比-f更好的測試。像這樣的東西也許

my $fd = \*DATA; 
if (@ARGV) { 
    if (open $_, '<', $ARGV[0]) { 
    $fd = $_; 
    } 
    else { 
    warn qq{Unable to open "$ARGV[0]" for reading: $!}; 
    } 
}