Just another JAPH

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,
[download]

Comment on Just another JAPH Download Code

Replies are listed 'Best First'.
Re: Just another JAPH by k-mx (Scribe) on Apr 14, 2022 at 15:44 UTC
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,` [download]	[reply] [d/l]
Re: Just another JAPH by k-mx (Scribe) on Sep 14, 2019 at 07:28 UTC
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,` [download]	[reply] [d/l]
Re: Just another JAPH by FreeBeerReekingMonk (Deacon) on Sep 14, 2019 at 21:55 UTC
Aww, will take me a while to get that version of Perl on my system... (5.20 on Debian, 5.16 on RH)	[reply]
Re^2: Just another JAPH by k-mx (Scribe) on Sep 15, 2019 at 16:42 UTC
That's why I love perlbrew: `perlbrew list perl-5.30.0 perl-5.28.2 perl-5.28.1 perl-5.24.1` [download] 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,` [download] Without 5.26.0 related feature	[reply] [d/l] [select]


more useful options
	PerlMonks