The Hacker signature disciplin
Eli the Bearded
> I find myself wondering if there are some written or unwritten rules
> about the "Just another Perl Hacker" sig that some posters use?
The general rules as I understand them are:
Works on more than just your version of perl (including other
platforms: Abigail's abuse of rand() violates that).
Works in a clever way: print unpack('u*',...) is not very clever.
This is suject to various peoples personal opinions.
I'm also a bit hesitant about the use of specifically undocumented
features, eg I find Abigail's use of %^H rather dubious.
> Of course I had to make a couple myself but I'm worried that I may be
> breaking some rules (like for instance maybe you have to be a _real_
> Perl Hacker) and making a fool of myself if I use them.
Well, if they work, that's a start, and not a foolish one at that.
Elijah
------
exec{$^X}('Just Another Perl HackerX',$0)unless($^X=~y=X=\cJ=);print$^X
Lauren Smith
Jakob Schmidt <su...@aut.dk> wrote in message
news:1eg3nmp.17nqhqm1lkr7ggN@[192.168.88.117]...
> Hi
>
> I find myself wondering if there are some written or unwritten rules
> about the "Just another Perl Hacker" sig that some posters use?
>
> breaking some rules (like for instance maybe you have to be a _real_
> Perl Hacker) and making a fool of myself if I use them.
As a non-hacking, rarely-posting poser, I haven't had any feelings of
remorse for posting my own JAPH. Now I think I'd feel a little worse if I
had stolen it from someone else...
Lauren
--
print grep ord $_,map{y/a-zA-Z//d;$x.="+ $_";chr(eval $x)}
'J74u43-s2tA1-84n33o45th1er5-12-P3e13-82r48l21H13-a6-76
c55k10e13wx0-13za1bc3-68'=~m#([^!\n]{3})#g#tr/-0-9//d;print
Randal L. Schwartz
Jakob> Hi
Jakob> I find myself wondering if there are some written or unwritten rules
Jakob> about the "Just another Perl Hacker" sig that some posters use?
Jakob> Of course I had to make a couple myself but I'm worried that I may be
Jakob> breaking some rules (like for instance maybe you have to be a _real_
Jakob> Perl Hacker) and making a fool of myself if I use them.
As the originator of the tradition, I must say that those that do not
include the comma are not canon. :)
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<mer...@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
Jakob Schmidt
I find myself wondering if there are some written or unwritten rules
about the "Just another Perl Hacker" sig that some posters use?
Of course I had to make a couple myself but I'm worried that I may be
breaking some rules (like for instance maybe you have to be a _real_
Perl Hacker) and making a fool of myself if I use them.
--
Jakob
Jakob Schmidt
> Well, if they work, that's a start, and not a foolish one at that.
Cool. Thanks to Lauren too.
This one's of course more cosmetically clever than really clever - but
as sigs go I think it's OK.
--
Jakob
$if=sub{#for]if&$_ or &$
print$&if s].$]]s#y/\n//
}if$_=qq]$/rekcaH$"lreP$
"rehtona$"tsuJ];{[eval'&
$if,'x25]}#split,[2..$.]
jason
I think the only rule that I'm aware of is that if you have to ask -
then you shouldn't use it *8^)
--
jason -- elep...@squirrelgroup.com --
Abigail
<URL:news:1eg3nmp.17nqhqm1lkr7ggN@[192.168.88.117]>:
!!
!! I find myself wondering if there are some written or unwritten rules
!! about the "Just another Perl Hacker" sig that some posters use?
From my JAPH talks:
<LI>There are no formal rules on what is a JAPH and what isn't.
<LI>But we can derive some de facto rules.
<LI>Short: preferably fit in 4 x 80 characters.
<LI>Prints "Just another Perl Hacker".
<LI>Obscure or surprising syntax.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
Abigail
in <URL:news:eli$00082...@qz.little-neck.ny.us>:
// In comp.lang.perl.misc, Jakob Schmidt <su...@aut.dk> wrote:
// > I find myself wondering if there are some written or unwritten rules
// > about the "Just another Perl Hacker" sig that some posters use?
//
// The general rules as I understand them are:
//
// Works on more than just your version of perl (including other
// platforms: Abigail's abuse of rand() violates that).
I've never heard someone stating that rule. One of my favourite ones
works only on perl5.004 - by design. (One variant only works on perl5.004,
and not even on perl5.00401; again, by design).
// Works in a clever way: print unpack('u*',...) is not very clever.
// This is suject to various peoples personal opinions.
//
// I'm also a bit hesitant about the use of specifically undocumented
// features, eg I find Abigail's use of %^H rather dubious.
Obscure undocument features make for the best JAPHs. "Dubious" is a
complement. And besides, %^H is documented in perlvar.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
Gwyn Judd
say such a terrible thing:
The only ones I can think of are unwritten type rules...it should be
interesting, fun, surprising and obviously it should print out "Just
another Perl Hacker".
This is, I think, officially the worst JAPH I've ever seen...It seems to
work on my computer, although it may not on yours.
$,=" "; @x{qw(Just Another PERL Hacker)}='';
print map(ucfirst lc, reverse %x)
--
Gwyn Judd (print `echo 'tj...@guvfybir.qlaqaf.bet' | rot13`)
Children aren't happy without something to ignore, and that's what
parents were created for.
-- Ogden Nash
Ilmari Karonen
>
[JAPH]
>Works in a clever way: print unpack('u*',...) is not very clever.
Well, I'd say there are quite a few different types of JAPHs:
Simple but obfuscated:
print unpack u => q/:2G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R+`H`/
Obvious purpose but convoluted implementation:
sub AUTOLOAD {sub{print${$_[3]}=~/::(.*)/,$_[5]?" ":",\n"}->(caller 0)}
hacker(Perl(another(Just())))
"Now just what the heck is this doing?":
print @{{split//,"buitdtcsxrprlrhognqlvkshjhweoekeuctafanPaJy,r m e z\n"}}{a..z}
>exec{$^X}('Just Another Perl HackerX',$0)unless($^X=~y=X=\cJ=);print$^X
This, I'd say, falls into the second category. Of course, one of the
signs of a good JAPH is that it defies classification, so the above
list should be treated as nothing more than a random set of examples.
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla | "By promoting postconditions to
and its pseudonyms - | preconditions, algorithms become
do not feed the troll. | remarkably simple." -- Abigail
Jakob Schmidt
> jason <elep...@squirrelgroup.com> wrote:
>
> > I think the only rule that I'm aware of is that if you have to ask -
> > then you shouldn't use it *8^)
>
> I can't but agree. *L*
Hehe - I reckoned you'd give me that.
That's a standard rule of just about any subculture. Well - I'm a
determined subculture crasher and it's your turn :-)
It's the kind of rules that 10.000 lurkers decide to let themselves
scare off by. I'm the one who has little enough sense of occasion - or
maybe I'm just the only one who's priorities are twisted enough - to go
and break it.
--
Jakob
print "I'm a loser baby\n";
Chris Boyd
: I find myself wondering if there are some written or unwritten rules
: about the "Just another Perl Hacker" sig that some posters use?
(snip)
"Just Another Perl
Hacker" or "Just Another
Perl Haiku"? Your choice.
--
ibid
Jakob Schmidt
> "Just Another Perl
> Hacker" or "Just Another
> Perl Haiku"? Your choice.
Hehe
You just reminded me of the Black Perl poem in the Camel Book (at least
the version I read).
Any news of that disciplin?
--
Jakob
package p;sub TIESCALAR{shift;shift&&print tie$p,p,@_;shift};
tie$p,p,p,p,split//=>"\nrekcaH lreP rehtona tsuJ";
Tom Briles
>
> Jakob Schmidt (su...@aut.dk) wrote on MMDLIV September MCMXCIII in
> <URL:news:1eg3nmp.17nqhqm1lkr7ggN@[192.168.88.117]>:
> !!
> !! I find myself wondering if there are some written or unwritten rules
> !! about the "Just another Perl Hacker" sig that some posters use?
>
> From my JAPH talks:
Loses a bit without the actual talking I'm sure, but still fun and
educational. Slides at:
http://ucan.foad.org/~abigail/Perl/Talks/Japhs/
- Tom
jason
>> > then you shouldn't use it *8^)
>>
>
>Hehe - I reckoned you'd give me that.
>
>That's a standard rule of just about any subculture. Well - I'm a
>determined subculture crasher and it's your turn :-)
>
>It's the kind of rules that 10.000 lurkers decide to let themselves
>scare off by. I'm the one who has little enough sense of occasion - or
>maybe I'm just the only one who's priorities are twisted enough - to go
>and break it.
*8^)
>print "I'm a loser baby\n";
lol .. you mean (in the style of one of Ilmari's examples)
print @{{split//,qq.q\nf d l b'iscmeanaaIglkrhopyjembob.}}{a..q.q.};
Jakob Schmidt
> Jakob Schmidt <su...@aut.dk> wrote ..
>
> >print "I'm a loser baby\n";
>
> lol .. you mean (in the style of one of Ilmari's examples)
>
> print @{{split//,qq.q\nf d l b'iscmeanaaIglkrhopyjembob.}}{a..q.q.};
man you guys are crazy :-D
--
Jakob