从子程序调用子程序

Question

我有一个子程序（在 Perl 中）需要调用另一个子程序来传输它的参数并添加一个字符串。我已经尝试过这样的事情（但我正在寻找答案，而不仅仅是纠正这个......）：

sub TestBase($)
{
    print @_;
    return 'hard processed string';
}

sub Test($)
{
    print @_;
    return TestBase(@_, 'Filename.txt');
}

这个失败，因为“main::TestBase 的参数太多”（这些年来我仍然使用 cmd.com，在这种情况下不容易复制粘贴！）。

Answer 1

Perl 最佳实践：don't define function prototypes 除非你真的知道自己在做什么。

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

sub test_base {
    print @_;
}

sub test {
    print @_;
    return test_base(@_, 'Filename.txt');
}

test('foo', 'bar');

Answer 2

为了澄清和总结我对 Dan 的回答的更正，您的代码应该是这样的。

我删除了子程序原型，将左大括号与子程序名称放在同一行（perldoc perlstyle 首选），将名称更改为小写（大写通常保留给全局变量，例如包名称），并删除了 return 关键字。

请注意，您最好保留子例程名称，尤其是当其他人正在编写依赖于它们的代码时。遵循公认的做法很重要，但不如保持现有代码库的接口静态重要。

#!/usr/bin/perl

use strict;
use warnings;

sub test_base {
  print @_;
  'hard processed string';
}

sub test {
  print @_;
  test_base(@_, 'Filename.txt');
}

my $retval = test('A', 'B', 'C');
print "\n\n", $retval, "\n";

输出

ABCABCFilename.txt

hard processed string