On Saturday 27 March 2010 16:56:43 Akzhan Abdulin wrote:
> Perl вообще не станет достаточно удобным, пока не станет поддерживать нечто
> вроде __FILE__.
>
Ха-ха...
# test.pl:
#!/usr/bin/perl
use uni::perl;
say __FILE__, ' ', __LINE__;
say sub { join ' ',(caller)[1,2] }->();
__END__
[m...@veda ~/perl/file]$ perl test.pl
test.pl 3
test.pl 4
[m...@veda ~/perl/file]$ perl /home/mons/perl/file/test.pl
/home/mons/perl/file/test.pl 3
/home/mons/perl/file/test.pl 4
[m...@veda ~/perl/file]$
--
Mons Anderson aka Vladimir Perepelitsa
<[email protected]> / #99779956 / [email protected]
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
