Just another JAPH

[k-mx]

Hello! Here is my JAPH. Not very cryptic, I just want to say it:

#!/usr/bin/env perl

use 5.026.1;
no strict;

format =
.
BEGIN { use SelfLoader;
        open *q, v60 , $0; s(.*)((<q>)[-1])e;
        open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
          sub $& {  \@_ =
            ( $& => \@_ ) and !wantarray ?
        formline<<~"\@_" : \@_
                    \@_,
                    \@_
})rgx } END { write or die }

Just another Perl hacker,

[k-mx]

My JAPH has evolved

#!/usr/bin/env perl

use 5.026.1;
no strict;

format =
.
BEGIN { use SelfLoader; open 0;

    sub { @_[$[] = @_[$#_-@_] }->( *::->{(v95)}->$*,<0> );

    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<~"\@_" :  \@_, write && ()
                \@_,
                \@_
})rgx }

Just another Perl hacker,

[k-mx]

No END at the end.

#!/usr/bin/env perl

use 5.026.1;
no strict;

format =
.
BEGIN { use SelfLoader;
    open *q, v60 , $0; s(.*)((<q>)[-1])e;
    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<~"\@_" :  \@_, write && ()
                \@_,
                \@_
})rgx }

Just another Perl hacker,

[FreeBeerReekingMonk]

Aww, will take me a while to get that version of Perl on my system... (5.20 on Debian, 5.16 on RH)

[k-mx]

That's why I love perlbrew:

perlbrew list
   perl-5.30.0                               
   perl-5.28.2                               
   perl-5.28.1                               
   perl-5.24.1

You can try this version:

#!/usr/bin/env perl

format =
.
BEGIN { use SelfLoader;
    open *q, v60 , $0; s(.*)((<q>)[-1])e;
    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<"\@_" :  \@_, write && ()
\@_,
\@_
})rgx }

Just another Perl hacker,

Without 5.26.0 related feature