perl - 如何从 Bash 调用 Perl 构造函数？

Question

我在 perl 中有一个文件，它有一个构造函数

#!/usr/bin/perl

package ConfigFileReader;

sub new {
    my ($mode, $configFileName) = @ARGV;

    print $mode;
    print $configFileName;
}

我知道将参数传递给 perl 脚本就像

helloworld.pl arg1 arg2 argN

现在，如何从命令行调用构造函数 new{}？顺便说一句，我在 shell 脚本中调用 perl 文件。

#!/bin/bash

x=`helloworld.pl arg1 arg2 argN`;

echo $x;

Answer 1

#!/bin/bash

ARG1=...
ARG2=...

X=`perl -e "use ConfigFileReader; new ConfigFileReader($ARG1,$ARG2);"`

echo $X

Answer 2

你可以在你的 perl 脚本中调用 new：

#!/usr/bin/perl

package ConfigFileReader;

sub new {
    my ($mode, $configFileName) = @ARGV;

    print $mode;
    print $configFileName;
}

my $cfg = new ConfigFileReader(@ARGV); # call new with arguments