带有选项的 Perl 脚本 [关闭]

Question

我正在寻找执行以下操作的 Perl 脚本：

1. 有两个选项，例如script.pl -option1 -option2

2. 选项 1 有两个选择，比如 choice1 和 choice2，我有 shell 代码 做这两个动作（我希望我可以移植到 Perl）

3. 这里选项2是路径，是可选的。如果未指定，则使用当前目录

所需的脚本

checks arguments

if choice 1 :

go to path (arg2)

run a code (i have it ready)

If choice 2

 go to path (arg2 )
 
 run a code
 

Answer 1

（未测试）

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

my ($action, $path) = @ARGV;
$path //= '.';
chdir $path or die "Cannot chdir to $path.\n";

my $script = {
    choice1 => 'script1.sh',
    choice2 => 'script2.sh',
}->{$action};

die "Invalid choice $action.\n" unless defined $script;
0 == system $script or die "Status: $?";

以script.pl choice1 /path 运行。