use perl;
No replies — Read more | Post response
|
by shmem
on Feb 25, 2010 at 15:00
|
|
|
print q.use..$",sub{use:perl,@_}->(q);)),^@^,q;or die;
|
My e-mail signature JAPH
No replies — Read more | Post response
|
by joaocoutinho
on Feb 23, 2010 at 15:24
|
|
|
perl -E '@O=("\x61\x6e\x6f\x74\x68\x65\x72","\x50\x65\x72\x6c","\x68\x61\x63\x6b\x65\x72\x2c\xa");$J0="\x4a\x75\x73\x74\x20";say"$J0@O"'
|
Decimal Gray Code in 31 chars
2 direct replies — Read more / Contribute
|
by Oromis92
on Jan 18, 2010 at 17:14
|
|
|
print(($_^$_>>1).$/)for(0..pop)
simplest as possible
|
Yuletide Greetings!
No replies — Read more | Post response
|
by jffry
on Dec 24, 2009 at 17:04
|
|
|
$t = int rand(14) + 6;
$t = $t % 2 ? $t + 1 : $t;
for $l (1..$t) {
print ' ' x ((int(($t + 1) / 2 )) + 1) . "*\n" if $l == 1;
print ' ' x (int(($t + 1) / 2 )) . '/'
. (int rand(2) ? "#" : '&') . "\\\n"
if $l == 2
;
print ' ' x ((($t + 1) - ($l + ($l % 2 ? 0 : 1))) / 2) . '/'
. (int rand(2) ? "#" : '&') x ($l + ($l % 2 ? 0 : 1))
. "\\\n"
if $l >= 3
;
}
print '^' x ($t + 3) . "\n";
print ' ' x ($t / 2) . '|H|' . "\n";
|
Xmas Msg (just for linux)
No replies — Read more | Post response
|
by smokemachine
on Dec 23, 2009 at 14:40
|
|
|
perl -e'*MERRY=*\;*XMAS=*/;' -F: -nae'$,=join q,,,map{chr$_+@{[(1)x un
+pack q C\CC,q q \q \q q]}}q 1007769828289001 =~/.{2}/g;BEGIN{*SANTA =
+ *ARGV}$MERRY=$XMAS;print$F[0],join q,,,map{chr}q;0991041141051151161
+09097115;=~/(.{3})/g;BEGIN{push@SANTA,join q,,,map{chr}q 304710111609
+90471120971151151191003 =~/(.{3})/g}'
|
Functional Composition
2 direct replies — Read more / Contribute
|
by billh
on Dec 17, 2009 at 15:41
|
|
|
This isn't really obfuscation, it's even vaguely useful,
but see if you can figure out what Pipes.pm must be doing,
given that this prints o-l-l-e-H
use strict;
use warnings;
use Pipes;
print "hello" |
fn { ucfirst($_[0]) } |
fn { [ split('', $_[0]) ] } |
fn { [ reverse(@{$_[0]}) ] } |
fn { join('-', @{$_[0]}) } |
fn { $_[0] . "\n" };
Bill H
perl -e 'print sub { "Hello @{[shift->()]}!\n" }->(sub{"World"})'
|
Doing it with command line switches
3 direct replies — Read more / Contribute
|
by JavaFan
on Dec 10, 2009 at 08:43
|
|
|
ls -1|perl -054lp012e1
I leave it as an exercise to the reader to figure out how it works.
|
JAPH again
No replies — Read more | Post response
|
by locked_user mtve
on Nov 11, 2009 at 09:18
|
|
|
#!perl -l
print map chr oct oct oct oct hex,debf,fbbcf,hex hex eaff,adfff;
print map chr oct oct oct oct oct hex,abadf,hex cd,hex ec,ffaef;
print map chr oct oct oct hex,hex hex oct hex bfd,dbbf,fbbbd,ea;
Update: finally, more fun
print chr oct oct oct hex for qw acfed ccf debf cdefa
|
first cut at JAPHs
No replies — Read more | Post response
|
by jakobi
on Oct 24, 2009 at 16:17
|
|
|
perl -MPOSIX -e 'sub _{($.,$/)=@_;eval"\$\\.=sprintf\"\%s\",\"".(grep{s/\S/do{(ord($&)<42+4*2**0.42)?chr((42\/3+1)<<3):$&}/ge,42}grep{s%(?!$)%do{$//=2;"\\\/".(($/=~s/\.\S*//)?ceil sqrt 42:int sqrt 42)}%ge,42}sprintf("%x",$.))[0]." \""};@_=(42292,14,32458834,72,58668,5,8469330,32);while(@_){_@_;@_=@_[2..$#_]};print'|tr UNIX~ REWOP|cat -vet
The vet's first diagnosis: The poor kitten seems to be erudite, but it should probably try a diet of less theory, and instead actively some play rounds of golf. Cautious use of source filtering may also provide support in refactoring into a lean beast. @_@
|
Format quine (slightly obfu)
1 direct reply — Read more / Contribute
|
by bv
on Oct 15, 2009 at 18:01
|
|
|
Couldn't figure out how to get the #! to work, but it's not really necessary. Uses the open 0 trick, so save it to a file before running
use strict ;my@f; use warnings ;
open 0;$/= \11;my $i= 0; while (
<0>){chop; push@{$f [ $i]},$_;$i
=($i+1)%3} close 0;$~ ="it"; my(
$l,$m,$r)= map{$f[$_] }(0 .. 2);
for(0..$#{ $l}){$m->[ $_]||= '';
$r-> [$_ ] ||=''; #$l }){ $m ->[
format it=
@<<<<<<<<< @<<<<<<<<< @<<<<<<<<<
$l-> [$_], $m-> [$_], $r-> [$_],
.
write;}
print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))
|