Язык программирования: JavaScript, perl Для работы Моя программа подготовки Online опросов допускает вставку perl скриптов, но они работают очень долго. Надо посоветоваться. Задача срочная <input name=“A20_N1“ id=“A20_N1“ type=“hidden“ value='[% Begin Unverified Perl my $tx=““; my $min=3; my $max=5; for(my $i=$min ; $i<=$max ; $i++){ if(LISTHASPARENTMEMBER(“ActionsUseAll“,$i)){ if($tx ne ““){$tx = $tx . “; “;} $tx = $tx . LISTLABEL(“ActionsShort2“,$i); } }return ($tx); End Unverified %]'> <input name=“A20_N2“ id=“A20_N2“ type=“hidden“ value='[% Begin Unverified Perl my $tx=““;