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

[GrandFather]

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__

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.

[shmem]

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.

I discovered this playing with your code, btw. Thanks!

cheers,
--shmem

<Reveal this spoiler or all in this thread>

[radiantmatrix]

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

[shmem]

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