將文件句柄傳遞給Perl中的對象方法

Question

我想將一個打開的文件句柄傳遞給一個方法，以便該方法可以寫入該文件。

但文件句柄似乎封閉在對象內部。

# open the file 
open(MYOUTFILE, ">$dir_1/stories.txt") or die "Can't open file stories.txt"; #open for write, overwrite 
print MYOUTFILE "outside"; #works 

my $story = ObjectStory->new(); 
$story->appendToFile(\*MYOUTFILE); 
close(MYOUTFILE); 

對象，這應該寫入文件：

package ObjectStory; 

# constructor 
sub ObjectStory::new { 
    my ($class) = @_; 
    %hash =(); 
    bless \%hash, $class; 
} 

# addToFile method 
sub ObjectStory::appendToFile { 
    my ($class, $MYOUTFILE) = @_; 

    # check if open 
    if (tell($MYOUTFILE) != -1) { 
    print $MYOUTFILE 
     "\n File Handle is not open!"; # File handle is always closed... 
    } 
    print $MYOUTFILE "test"; 
} 

# the 1 is necessary, because other scripts will require this Module. 
# require MyModule results in true, only if there is a 1 at the end of the module 
1; 

Answer 1

的tell操作返回-1時，纔會有一個錯誤。沒有理由期望您顯示的代碼出現錯誤，並且它肯定不是檢測文件句柄是否打開的方法。

從IO::Handle的opened方法做你想做的，所以你可以寫

unless ($filehandle->opened) { ... } 

但請注意，您的原始代碼嘗試寫文件句柄不被打開到關閉文件句柄的消息，所以它永遠不會工作！

您將需要添加use IO::Handle到你的模塊，除非你正在運行的版本14或更高版本的Perl 5，這已更改，以便IO::File（等IO::Handle）被加載上的需求。

還要注意，不需要在包名稱前加上所有的子程序名稱。這就是package聲明的目的 - 更改默認命名空間，以便不必這樣做。

看看你的代碼的這個修改作爲一個例子

package ObjectStory; 

sub new { 
    my ($class) = @_; 
    my %hash; 
    bless \%hash, $class; 
} 

sub appendToFile { 
    my ($self, $fh) = @_; 
    die 'File Handle is not open!' unless $fh->opened; 
    print $fh "test\n"; 
} 

1;