Обновить ссылку в WSC, используя PerlScript

Я установил Windows Script Component (wsc), в котором я использую Perlscript в качестве языка. Похоже на код ниже:

...
<public>
  <method name="changeRef">
    <parameter name="boolval"/>
  </method>
</public>
...
<script language="PERLScript">
<![CDATA[
sub changeRef {
$_[0] = 0; 
}
]]>
</script>
...

Теперь я зарегистрировал файл wsc и вызвал его из другой программы, передав ссылку на логическое значение. К сожалению, это не изменит ссылку.

Так как я не знаком с Perl, я также попробовал некоторые другие вещи, такие как

sub changeRef { $ref = shift; $$ref = 0; }

в результате возникла ошибка, указывающая, что я пытаюсь изменить значение "только для чтения".

У кого-нибудь есть идея?

Источник

0 ответов

Другие вопросы по тегам