Jak mogę przechowywać i otwierać uchwyt pliku w klasie Perla?

Question

proszę najpierw zapoznać się z następującym kodem.

#! /usr/bin/perl 
package foo; 

sub new { 

    my $pkg = shift; 
    my $self = {}; 
    my $self->{_fd} = undef; 
    bless $self, $pkg; 

    return $self; 
} 

sub Setfd { 

    my $self = shift; 
    my $fd = shift; 
    $self_->{_fd} = $fd; 
} 

sub write { 

    my $self = shift; 
    print $self->{_fd} "hello word"; 
} 

my $foo = new foo; 

Moim zamiarem jest przechowywanie uchwytu pliku w klasie przy użyciu skrótu. uchwyt pliku jest początkowo niezdefiniowany, ale można go później zainicjować, wywołując funkcję Setfd. następnie write można wywołać, aby faktycznie napisać ciąg "hello word" do pliku wskazanego przez uchwyt pliku, zakładając, że uchwyt pliku jest wynikiem sukcesu "write" open.

, ale kompilator perl po prostu narzeka, że ​​w linii "print" wystąpił błąd składniowy. Czy ktokolwiek z was może mi powiedzieć, co jest nie tak? z góry dziękuję.

Answer 1

Trzeba będzie umieścić wyraz $self->{_fd} w bloku lub przypisać go do prostszych wyrażenia:

print { $self->{_fd} } "hello word"; 

    my $fd = $self->{_fd}; 
    print $fd "hello word"; 

Od perldoc -f print:

pamiętać, że jeśli jesteś przechowywania uchwytów plików w tablicy lub jeśli używasz innego wyrażenia bardziej złożonego niż zmienna skalarna, aby go pobrać, będziesz musiał użyć bloku zwracającego wartość uchwytu pliku zamiast:

print { $files[$i] } "stuff\n"; 
print { $OK ? STDOUT : STDERR } "stuff\n"; 

Answer 2

Alternatywnie:

use IO::Handle; 

# ... later ... 

$self->{_fd}->print('hello world');