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>