在perl-mason中为ARGS添加值

Question

在重定向调用中将值作为参数传递之前，我想向ARGS添加值。

我试过

%ARGS{session-id} = 'value1';

出现语法错误。你能马上提出建议吗。名称中带有连字符的键是不允许的吗？如果不是，我如何将其传递给重定向调用，因为我重定向到的组件需要%ARGS的"会话id"。

Answer 1

使用

$ARGS{'session-id'} = 'value1';

session-id不是Perl中的有效标识符；哈希键只有是有效标识符时才可以不加引号地使用。

此外，在访问哈希的单个元素时，使用$作为sigil（变量名前面的取消引用字符）；CCD_ 3；和%仅当访问整个散列时（或者在Perl 5.20及更高版本中，当访问散列的一部分的键和值时）。