小编Chr*_*007的帖子

我正在尝试对现有的 Perl 脚本进行更改。我正在尝试添加一个在不同位置多次调用的子程序，并根据调用位置打印不同的输出。

基本上，它创建一个文件并为业务团队编写一些业务消息（我是其中的一员，因此是我第一次用 Perl 编码）。

我想要/正在尝试的是

Sub filemessage ($arg1) {
  open(fh, '>', $message_file);
  print fh "$arg1/n";
  close fh;
}

现在我想在很多地方（在其他子例程内）像这样调用这个子例程（已经有一个失败条件基于它被调用）：

filemessage ("failed due to reason1")
filemessage ("failed due to reason2")