获取带有参数的 Perl 脚本的完整调用

Question

如何将脚本的文件名和输入参数放入变量中？

所以它应该是这样的：

# Start script as such: ./myscript.pl -d -s server1.domain

#!/usr/bin/perl
use strict;
use warnings;

my $call = some_command;

print $call; # Output: myscript.pl -d -s server1.domain 
             # OR ./myscript.pl -d -s server1.domain 
             # OR /path/to/myscript.pl -d -s server1.domain

尝试使用 __FILE__ 和 [=12=] 执行此操作，但我似乎无法在变量中获取输入参数。

我在 AIX 机器上运行 v5.10.1。

Answer 1

程序及其参数分别在 [=10=] 和 @ARGV 中找到。

您可以使用 String::ShellQuote 的 shell_quote 从它们组成命令行。

获取带有参数的 Perl 脚本的完整调用

Get full call of Perl script with parameters

perl