<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>А, ацкая копипаста, да, Николай.</div><div><br></div><div>неееееТТТТТТТ.. </div><div>не получается, это плохая практика.</div><div><br></div><div>оно будет работать только так </div><div><br></div><blockquote class="webkit-indent-blockquote" style="margin: 0 0 0 40px; border: none; padding: 0px;"><div><div>sub create_index{</div></div><div><div>  my ($fh, $idx_file)=@_;</div></div><div><div>  print "create index func ZZ $fh, $idx_file\n";</div></div><div><div>  }</div></div><div><div>  </div></div><div><div>my $v='create_index';</div></div><div><div><br></div></div><div><div>no strict 'refs'; # or nothing worked, but when you do it some kittens die</div></div><div><div><br></div></div><div><div>&{$v}('foo','bar');  </div></div></blockquote><div><br></div><div>но, госспидя, не делайте так, примерно никогда или чуть реже.</div><div><br></div><div>Короче, глобальная мысль, думать все каникулы до просветления - </div><div><br></div><blockquote class="webkit-indent-blockquote" style="margin: 0 0 0 40px; border: none; padding: 0px;"><div>"Функция определяет форму".</div></blockquote><div><br></div><div>как бы прежде чем что-то сделать нужно честно ответить на вопрос "ЗАЧЕМ?". Ответ на этот вопрос в 95% случаев упрощает "КАК".</div><div><br></div><div>Вот скажите мне честно, нафига вам резолвить литерал? Что ценного в этом изврате?</div><div><br></div><div>Митяй</div><div><br></div><div>PS. просьба - примеры должны быть copy-past worked - вставил и запустил (ну положим что хештег у каждого свой). Ваши таким свойством не обладают. Обычно.</div><div><br></div><br><div><div>On Dec 29, 2011, at 4:27 PM, Nikolay Mishin wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">Митяй, еще раз, привет,<span class="Apple-converted-space"> </span><br>так, меня Николай зовут, но это Бог с ним,<br><br>классные наблы прочитал,<br>получается так:<br>sub create_index ($$){<br>  my ($fh, $idx_file)=@_;<br>  print "create index func ZZ $fh, $idx_file\n";<br>  }<br>$v='create_index';<br>&{$v}(10);   <br>и ссылка не нужна, просто как параметр передаем имя функции!</blockquote></div><br></body></html>