associative-array - 有没有办法在 REXX 中做关联数组？

Question

我有一些最初在 Linux 下开发的 Perl 代码(用于性能分析)，现在需要移植到大型机上。显然 REXX 是该平台上首选的脚本语言，但这个 Perl 脚本严重依赖关联数组(基本上是索引为字符串的数组)。

在 REXX 有办法吗？我将如何编码类似的东西:

$arr{"Pax"} = "Diablo";
$arr{"Bob"} = "Dylan";
print $arr{"Pax"} . "\n";
if (defined $arr{"no"}) {
        print "Yes\n";
} else {
        print "No\n";
}

Answer 1

您可以使用词干变量，与数组不完全相同但非常相似

/* REXX */
NAME = PAX
ARRAY.NAME = "DIABLO"
NAME = BOB
ARRAY.NAME = "DYLAN"
NAME = 'PAX'
SAY "ARRAY.PAX " IS ARRAY.NAME
NAME = 'BOB'
SAY "ARRAY.BOB " IS ARRAY.NAME
NAME = 'SANDY'
SAY "ARRAY.SANDY " IS ARRAY.NAME
IF ARRAY.NAME = "ARRAY.SANDY" THEN SAY "ARRAY.SANDY IS EMPTY"

上面的 Rexx 会打印

ARRAY.PAX  IS DIABLO
ARRAY.BOB  IS DYLAN
ARRAY.SANDY  IS ARRAY.SANDY
ARRAY.SANDY IS EMPTY

它们也可以像 a.b.c 一样复合
如果为空，词干变量将返回自身。
没有办法迭代不使用连续数字作为我所知道的索引的词干。

IBM Manual with reference to Stem variables

Perl 是 ZOS 的一项额外免费功能 IBM Ported Tools for z/OS