0

在下面的代码中,如果语句之间FILE和之间有空格(,例如printf

printf FILE ("Test string inline\n");

否则Perl 将被FILE视为文件句柄

printf FILE("Test string inline\n");

将被视为子程序调用(如果 FILE perl 没有定义子程序,则会出现错误Undefined subroutine &main::FILE called at ./test.pl line xx)。Perl 没有更好的方法来实现这一点吗?(也许这就是为什么裸字文件句柄被认为是过时的?)

#!/usr/bin/perl

use warnings;

open(FILE,">test.txt");
printf FILE ("Test string inline\n");
close(FILE);


sub FILE
{
    return("Test string subroutine\n");
}
4

2 回答 2

3

您是否在问如何意外避免该错误?你可以把把手卷成卷曲

printf({ HANDLE } $pattern, @args);
print({ HANDLE } @args);
say({ HANDLE } @args);

或者因为say,printprintf,经常省略括号

printf { HANDLE } $pattern, @args;
print { HANDLE } @args;
say { HANDLE } @args;

或者你可以使用方法调用

HANDLE->printf($pattern, @args);
HANDLE->print(@args);
HANDLE->say(@args);
于 2013-07-11T18:07:33.027 回答
0

尝试:

#!/usr/bin/env perl

use strict;
use warnings;

# --------------------------------------

use charnames qw( :full :short );
use English qw( -no_match_vars ) ;  # Avoids regex performance penalty

my $test_file = 'test.txt';

open my $test_fh, '>', $test_file      or die "could not open $test_file: $OS_ERROR\n";
printf {$test_fh} "Test string inline" or die "could not print $test_file: $OS_ERROR\n";
close   $test_fh                       or die "could not close $test_file: $OS_ERROR\n";
于 2013-07-11T18:11:53.923 回答