Re^2: $. - smarter than you might think

Ohh, that's nice, if you expect it. :)

So you can have a Perl script print itself by:

use warnings;
use strict;

seek DATA, 0, 0;
print while <DATA>;
__END__
[download]

so long as __END__ or __DATA__ are present.

Of course that also means that you have to my $dataStart = tell DATA; if you want to seek DATA back to the data start rather than script start.

DWIM is Perl's answer to Gödel

Comment on Re^2: $. - smarter than you might think Select or Download Code

Replies are listed 'Best First'.
Re^3: $. - smarter than you might think by shmem (Chancellor) on Jun 22, 2006 at 23:13 UTC
heh.. that makes me think about a $SIG{__DIE__} handler which not only says harshly "Can't do method foo in context bar in file quux line 1024" or such, but prints the 3 lines above and below the error as well... `don't talk nonsense at blah.pl line 23. 21 learn('nothing'); 22 sub blah (\[&]) { 23 warn "don't talk nonsense"; > 24 $_[0]->(); 25 } 26 sub learn { 27 my $self->teach(shift); Can't use string ("bar") as a subroutine ref while "strict refs" in us +e at blah.pl line 24.` [download] I discovered this playing with your code, btw. Thanks! cheers, --shmem <Reveal this spoiler or all in this thread> _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]
Re^4: $. - smarter than you might think by radiantmatrix (Parson) on Jun 26, 2006 at 15:56 UTC
Ok, I played with your code and came up with a modification of my own: <Reveal this spoiler or all in this thread> Updates: 2006-06-26 : trailing paren crept in, removed -- thanks to shmem for noticing <–radiant.matrix–> A collection of thoughts and links from the minds of geeks The Code that can be seen is not the true Code I haven't found a problem yet that can't be solved by a well-placed trebuchet	[reply] [d/l] [select]
Re^5: $. - smarter than you might think by shmem (Chancellor) on Jun 26, 2006 at 16:23 UTC
Hey, good on ye... it's always nice to see bad hacks smoothened into a reasonable thing. radiantmatrix ++ if $self->($points_left). But! you have an extra ) on line two of your code ;) And if would get picky, I'd rather write `warn +($. == $d ? '>' : ' ')` than `print STDERR`. Flavours :) thx & greets, --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s,/,($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e,e && print}	[reply] [d/l] [select]