代码之家 › 专栏 › 技术社区 › Thomas L Holaday

Perl:如何将词法文件句柄作为命名参数传递和使用到子例程?

subroutine perl

Thomas L Holaday · 技术社区 · 14 年前

#!/usr/bin/perl -w
use strict;

my $log_fh;
my $logname = "my.log";

sub primitive {
   my ($fh, $m) = @_;
   print $fh $m;
}

sub sophisticated {
   my ($args) = @_;
   print $args->{m};
   print $args->{fh} $args->{m} ;
}

open $log_fh, ">", $logname;

print $log_fh "Today I learned ...\n";

primitive($log_fh,"... the old way works ...\n");

sophisticated({
   fh=>$log_fh, 
   m=>"... and the new way requires an intervention by SO.",
   });
close $log_fh;

投诉是:

Scalar found where operator expected at ./lexical.file.handle.pl line 15, near
} $args"
(Missing operator before  $args?)

$ perl --version

This is perl, v5.10.1

当我使用传递参数的原始技术,命名参数散列技术适用于部分,只是不适合 文件句柄 部分。我需要新版本的吗打印 ?

2 回复 | 直到 14 年前

friedo 14 年前

当您有一个返回文件句柄的复杂表达式时(如 $args->{fh} )您需要通过添加一些额外的卷曲来消除语法的歧义:

print { $args->{fh} } $args->{m};

这是因为 print

或者,可以先从参数hashref中获取文件句柄,例如。

my $fh = $args->{fh};
print $fh $args->{m};

Community CDub 7 年前

friedo's answer

sub sophisticated {
   my %arg = @_;
   print $arg{m};
   print {$arg{fh}} $arg{m};
}

sophisticated(fh => $log_fh, m => "Hello, world!\n");

推荐文章

p_agarwal · 如何解析传递给定义为在Perl中接受2个参数的子例程的一个参数

7 年前

elias soltanie · (/value/)是什么意思?值是子例程的输入参数

7 年前

twosheds · 在并行Fortran do循环中调用内部子例程时,子例程无法访问迭代变量的正确值

7 年前

tjwrona1992 · 从Perl中的子例程返回别名

9 年前

Hydraxia · 在Java中调用void子例程的变量

10 年前

Jpyo · 有人能向我解释一下代码的某个部分发生了什么吗?(MIPS/组件)

11 年前

user2050516 · Perl调用以“&”开头的子程序[重复]

11 年前

lbjx · 如何从子程序返回值

11 年前