Perl:我如何将列表传递给脚本?

use*_*642 4 perl list command-line-arguments

我需要将列表传递给我的脚本我该怎么办?

例如我有脚本:flow.pl我需要传递给它的fubs列表:

fub1, fub2, fub3 
Run Code Online (Sandbox Code Playgroud)

和database1 =的路径

path1 
Run Code Online (Sandbox Code Playgroud)

和database2 =的路径

path2 
Run Code Online (Sandbox Code Playgroud)

我怎样才能得到这个参数?

 (through $ARGV[i]?)
Run Code Online (Sandbox Code Playgroud)

如果我做:

flow.pl fub1,fub2,fub3 path1 path2
Run Code Online (Sandbox Code Playgroud)

并在代码中:

$listoffubs = $ARGV[0]
$path1 = $ARGV[1]
$path2 = $ARGV[2]
Run Code Online (Sandbox Code Playgroud)

fubs列表获得一个单词的fubs名称.

Dav*_*oss 7

只要列表简短,就可以获得位置参数列表.一旦你进入大量的参数或者你有一个内部结构的参数,那么你可能想看一下命名参数.

在这种情况下,我想我会考虑使用GetOpt :: Long来实现命名参数.


Nik*_*sMM 5

只需拆分列表:

my @ListOfFubs = split /,/ ,  $listoffubs;
Run Code Online (Sandbox Code Playgroud)