0

我想将打开的文件句柄传递给方法，以便该方法可以写入文件。

但是文件句柄似乎在对象内部关闭。

# 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;
4

1 回答 1

5

tell运算符仅在出现错误时返回 -1 。没有理由期望您显示的代码会出现错误情况，而且这当然不是检测文件句柄是否打开的方法。

from的opened方法IO::Handle会做你想做的，所以你可以写

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

但请注意，您的原始代码尝试将有关文件句柄未打开的消息写入已关闭的文件句柄，因此它永远不会工作！

use IO::Handle除非您正在运行 Perl 5 的 14 或更高版本，否则您将需要添加到您的模块中，该版本已更改为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;
于 2013-10-20T23:13:24.433 回答