<p>Небольшая поправочка, чтоб люди совсем не запутались.</p>
<p></p>
<p>Называть сигнатуры "прототипами" не совсем верно. Они именно сигнатуры, и появились в языке буквально неделю назад:</p>
<p>http://perl5.git.perl.org/perl.git/commitdiff/30d9c59b5f3cba8b5d632d20c2370e82d8ba69ca</p>
<p></p>
<p>Прототипы функций (prototypes) в Perl были всегда. У tchrist на "перловых монахах" есть отличная статья, почему вам почти никогда не надо ими пользоваться:</p>
<p>http://www.perlmonks.org/?node_id=861966</p>
<div id="editor_compose_signature">
<p>.</p>
</div>
<blockquote style="border-left: 1px solid #BBBBBB; margin: 1ex; padding: 1ex;">
<p>14.2.2014 13:11:16 пользователь Konovalov, Vadim (Vadim.Konovalov@emc.com) написал:</p>
<br />
<div class="RMCGCGJE">
<div class="RMCGCGJEhtml">
<div class="RMCGCGJEbody">
<div class="RMCGCGJE WordSection1">
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">По следам митапа 2,</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">1, я как-то без большого энтузиазма отнёсся к прототипам (signatures), </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">Корректируюсь - </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">на самом деле я заблуждался, signatures – великая крутизна и источник щастя, </span><span style="font-size: 11.0pt; font-family: Wingdings; color: #1f497d;" lang="RU">J</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">2,</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">Я говорил, что при попытке вставить в </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">dropdown</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">-</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">box</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"> <span lang="RU">элементы '</span></span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">a</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">'..'</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">zzz</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">' </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">perl</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">-</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">Gtk</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">2 был медленен как собака,</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">Щас вот написал на </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">Tcl</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">/</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">Tk</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"> <span lang="RU">– работает тока влёт как пропеллер,</span></span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">А попытка «загрузить» ещё больше – уже списком ['</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">a</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">'..'</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">zzzz</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">'] – приводит к тому, что список отрисовывается по 4 секунды,</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">use strict;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">use Tcl::Tk;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">my $int = new Tcl::Tk;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">my $mw = $int->mainwindow;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">$mw->ComboBox(-values=>['a'..'zzzz'])->pack;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">$mw->Button(-text=>"qwerty $_", -command=>'puts this')->pack for 'a' .. </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">'l';</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">$int->MainLoop;</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;"><img id="RMCGCGJEPicture_x0020_1" src="cid:image001.png@01CF2985.B9220F40" alt="" width="304" height="322" /></span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">Наверное всё же скорость погрызена в недрах самой </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">Gtk</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">, а не в перловом мостике </span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">perl</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">-</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;">Gtk</span><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">2</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU">Всем превед </span><span style="font-size: 11.0pt; font-family: Wingdings; color: #1f497d;" lang="RU">JJJ</span></p>
<p class="RMCGCGJE MsoNormal"><span style="font-size: 11.0pt; font-family: 'Calibri','sans-serif'; color: #1f497d;" lang="RU"> </span></p>
<div style="border: none; border-left: solid blue 1.5pt; padding: 0cm 0cm 0cm 4.0pt;">
<div>
<div style="border: none; border-top: solid #B5C4DF 1.0pt; padding: 3.0pt 0cm 0cm 0cm;">
<p class="RMCGCGJE MsoNormal"><strong><span style="font-size: 10.0pt; font-family: 'Tahoma','sans-serif';">From:</span></strong><span style="font-size: 10.0pt; font-family: 'Tahoma','sans-serif';"> Spb-pm [mailto:spb-pm-bounces+vadim.konovalov=emc.com@pm.org] <strong>On Behalf Of </strong>Сергей Романов<br /><strong>Sent:</strong> Friday, February 14, 2014 3:01 AM<br /><strong>To:</strong> Сергей Романов<br /><strong>Cc:</strong> Spb Pm<br /><strong>Subject:</strong> Re: [SPb-pm] February'14 meetup</span></p>
</div>
</div>
<p class="RMCGCGJE MsoNormal"> </p>
<div id="RMCGCGJEeditor_compose_signature">
<p>По следам сегодняшнего meetup'a:</p>
<p>- YAPC::Europe 2014 в Софии (регистрация уже открыта!) - <a href="http://act.yapc.eu/ye2014/"  target="_blank">http://act.yapc.eu/ye2014/</a></p>
<p>- Mojoconf в Осло (сверхинтрига - говорят, никто до этого не видел sri в лицо!) - <a href="http://blog.kraih.com/post/76535091594/mojoconf-2014"  target="_blank">http://blog.kraih.com/post/76535091594/mojoconf-2014</a></p>
<p>- Facing the Intelligence Explosion - <a href="http://intelligenceexplosion.com/"  target="_blank">http://intelligenceexplosion.com/</a></p>
</div>
<blockquote style="border: none; border-left: solid #BBBBBB 1.0pt; padding: 0cm 0cm 0cm 6.0pt; margin: 6.0pt;">
<p>Sunday, February 09, 2014 10:34:20 PM пользователь Сергей Романов (<a href="mailto:complefor@rambler.ru"  target="_blank">complefor@rambler.ru</a>) написал:</p>
<p class="RMCGCGJE MsoNormal"> </p>
<div>
<p>В этот четверг (13.02), 20.00, место точно напишу в среду вечером (предложения приветствуются).</p>
<p>Отписываемся, кто будет?</p>
<p>--</p>
<p>sromanov</p>
</div>
</blockquote>
</div>
</div>
</div>
</div>
</div>
</blockquote>