如何在Perl中使用類屬性/變量作爲打印文件句柄？

Question

我想做同樣的事情

open MYFILE, ">", "data.txt"; 
print MYFILE "Bob\n"; 

但在替代類變量一樣

sub _init_tmp_db 
{ 
    my ($self) = @_; 

    open $$self{tmp_db_fh}, ">", "data.txt"; 
    print $$self{tmp_db_fh} "Bob\n"; 
} 

它給了我這個錯誤：「字符串發現其中運營商預計近期‘鮑勃\ n’」

我該怎麼辦？

Answer 1

從print manpage：在一個數組或哈希，或在一般

如果你存儲句柄每當 任何正在使用的表達比裸詞處理更復雜的或 平原，無下標量變量來檢索它，你將不得不 使用返回文件句柄值的塊代替。

您應該使用：

print { $$self{tmp_db_fh} } "Bob\n"; 

此代碼不會use strict下工作。要修復它只是用一種my變量：

open my $fh, ">", "data.txt" or die $!; 
$$self{tmp_db_fh} = $fh; 
print { $$self{tmp_db_fh} } "Bob\n"; 

Answer 2

文件句柄只能是標量。

但$$self{tmp_db_fh}或者是一個開放的文件句柄（至data.txt中），那麼這會工作：

sub _init_tmp_db 
{ 
    my ($self) = @_; 

    my $filehandle = $$self{tmp_db_fh} ; 
    print $filehandle "Bob\n"; 
} 

或打開裏面_init_tmp_db

sub _init_tmp_db 
{ 
    my ($self) = @_; 

    open my $filehandle , ">", "data.txt" or die "Cannot open data.txt" ; 
    print $filehandle "Bob\n"; 
} 

文件句柄但在$$self{tmp_db_fh}提供一個字符串（像'FILEHANDLE'）將不起作用。

Answer 3

你應該IO ::文件模塊來代替。

use IO::File; 
my $file = IO::File->new; 
$file->open("> data.txt"); 

print_something($file); 

sub print_something { 
    my ($file) = @_; 
    $file->print("hello world\n"); 
} 

或者在你的榜樣作用：

use IO::File; 
# ... 
sub _init_tmp_db 
{ 
    my ($self) = @_; 

    $self{tmp_db_fh} = IO::File->new; 
    $self{tmp_db_fh}->open(">", "data.txt"); 
    $self{tmp_db_fh}->print"Bob\n"; 
} 

（注意，你仍然可以非 - >基於電話太多，但我用上面寫了 更傳統 - > open（）的呼叫類型。）

Answer 4

這是很容易的文件句柄創建變量解決：

sub _init_tmp_db { 
    my $self = shift; 

    my $fh; 
    open $fh, ">", "data.txt" 
    $self->{temp_db_fh} = $fh; 

    # Sometime later... 

    $fh = $self-{temp_db_hf}; 
    print $fh "Bob\n"; 
} 

這是一個問題，因爲解析了print語法的方式以及語法的早期缺乏。 print聲明實際上有兩種不同的格式：格式＃1是您只需將它傳遞給打印機。格式＃2說第一個項目可能是一個文件句柄，剩下的就是你想要打印到文件句柄的東西。如果print無法輕易確定第一個參數是文件句柄，則失敗。

如果你看看其他語言，他們將使用一個參數來傳遞文件句柄，也可能是要打印的東西。或者在面向對象的語言中，它們將爲文件句柄參數重載>>。他們會是這個樣子：

print "This is my statement", file=file_handle; 

或

print "This is my statement" >> file_handle; 

您可能能夠Munge時間的語法使用一個變量脫身。但是，它不會使程序更高效或更易讀，並且可能會使程序更難以維護。所以，只需使用文件句柄的變量。

---

你說類的標題。我假設你有興趣編寫一個完全面向對象的包來做到這一點。這是一個簡單的例子。通知write 子程序 方法我將文件句柄檢索到一個變量中並使用print語句中的變量。

#! /usr/bin/env perl 
# 
use strict; 
use warnings; 


####################################################### 
# MAIN PROGRAM 
# 
my $file = File->new; 

$file->open("OUTPUT") or 
    die "Can't open 'OUTPUT' for writing\n"; 

$file->write("This is a test"); 
# 
####################################################### 

package File; 
use Carp; 


sub new { 
    my $class = shift; 

    my $self = {}; 
    bless $self, $class; 

    return $self; 
} 

sub open { 
    my $self = shift; 
    my $file = shift; 

    my $fh; 
    if (defined $file) { 
     $self->{FILE} = $file; 
     open ($fh, ">", $file) and $self->_fh($fh); 
    } 
    return $self->_fh; 
} 

sub _fh { 
    my $self = shift; 
    my $fh = shift; 

    if (defined $fh) { 
     $self->{FH} = $fh; 
    } 
    return $self->{FH}; 
} 

sub write { 
    my $self = shift; 
    my $note = shift; 

    my $fh = $self->_fh; 
    print $fh $note . "\n"; 
    return 
}