LOL :)<div><br></div><div>Я Ð² ÑˆÐ¾ÐºÐµ :) </div><div><br><div class="gmail_quote">29 Ð¼Ð°Ñ€Ñ‚а 2010 Ð³. 13:16 Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ель Mons Anderson <span dir="ltr">&lt;<a href="mailto:mons@cpan.org" target="_blank">mons@cpan.org</a>&gt;</span> Ð½Ð°Ð¿Ð¸ÑÐ°Ð»:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>On Saturday 27 March 2010 16:56:43 Akzhan Abdulin wrote:<br>
&gt; Perl Ð²Ð¾Ð¾Ð±Ñ‰Ðµ Ð½Ðµ ÑÑ‚анет Ð´Ð¾ÑÑ‚аточно ÑƒÐ´Ð¾Ð±Ð½Ñ‹Ð¼, Ð¿Ð¾ÐºÐ° Ð½Ðµ ÑÑ‚анет Ð¿Ð¾Ð´Ð´ÐµÑ€Ð¶Ð¸Ð²Ð°Ñ‚ÑŒ Ð½ÐµÑ‡Ñ‚о<br>
&gt; Ð²Ñ€Ð¾Ð´Ðµ __FILE__.<br>
&gt;<br>
<br>
</div>Ха-ха...<br>
<br>
# <a href="http://test.pl" target="_blank">test.pl</a>:<br>
#!/usr/bin/perl<br>
use uni::perl;<br>
say __FILE__, &#39; &#39;, __LINE__;<br>
say sub { join &#39; &#39;,(caller)[1,2] }-&gt;();<br>
__END__<br>
<br>
[mons@veda ~/perl/file]$ perl <a href="http://test.pl" target="_blank">test.pl</a><br>
<a href="http://test.pl" target="_blank">test.pl</a> 3<br>
<a href="http://test.pl" target="_blank">test.pl</a> 4<br>
[mons@veda ~/perl/file]$ perl /home/mons/perl/file/<a href="http://test.pl" target="_blank">test.pl</a><br>
/home/mons/perl/file/<a href="http://test.pl" target="_blank">test.pl</a> 3<br>
/home/mons/perl/file/<a href="http://test.pl" target="_blank">test.pl</a> 4<br>
[mons@veda ~/perl/file]$<br>
<div><div></div><div><br>
--<br>
Mons Anderson aka Vladimir Perepelitsa<br>
&lt;<a href="mailto:mons@cpan.org" target="_blank">mons@cpan.org</a>&gt; / #99779956 / <a href="mailto:quanth@irc.freenode.net" target="_blank">quanth@irc.freenode.net</a><br>
</div></div></blockquote></div><br></div>