Есть ли способ создавать ассоциативные массивы в REXX?

У меня есть код Perl (для анализа производительности), впервые разработанный под Linux, который теперь необходимо перенести на мэйнфрейм. Очевидно, REXX - предпочтительный язык сценариев для этой платформы, но этот сценарий Perl в значительной степени полагается на ассоциативные массивы (в основном массивы, где индекс является строкой).

Есть ли способ в REXX? Как мне написать что-то вроде:

$arr{"Pax"} = "Diablo";
$arr{"Bob"} = "Dylan";
print $arr{"Pax"} . "\n";
if (defined $arr{"no"}) {
        print "Yes\n";
} else {
        print "No\n";
}
6
задан paxdiablo 4 November 2010 в 12:40
поделиться