more tricks learned from fellow monks

I've been working with variations on my signature, and came up with this:

#!/usr/bin/perl

open s,">/etc/services";$#=$/;seek s,"m/^ftp/";print s"ssh\t22\tudp",+
+0;$_=(<0>
)[-1];$/=q*(\w)*;*#=*_;$#=~s*^.\*?"(.+)".\*$*$1*;sub sig{print~~revers
+e join' '
,@#}sig map{s$\$/\$/$\$2\$1$g&&$#}split(' ',$#);$#=",erckha rlPe erthn
+oa stJu";
[download]

This uses an adaptation of a trick I've learned from japhy for part of it, the other part is a much older trick. Bonus ++ to anyone who recognizes my other source of inspiration :).

Update: BTW, this WILL work on windows, and ...

No, I don't clobber/write/edit any files on any other platform

perl -MO=Deparse filename.pl should allay your fears, along with japhy's Obfuscation Review - but that takes out some of the fun

--chargrill

[signature hidden for this post]

Comment on more tricks learned from fellow monks Select or Download Code

Replies are listed 'Best First'.

Re: more tricks learned from fellow monks
by davidrw (Prior) on Feb 01, 2006 at 00:22 UTC

$_=(<0>)[-1];

<0>

[reply]
[d/l]
[select]

Re^2: more tricks learned from fellow monks

by chargrill (Parson) on Feb 01, 2006 at 00:35 UTC

Yes, I was afraid people would be scared .. in fact, I'm pretty sure that's why the only vote I have at this point is a downvote. :(

As far as the problem you seem to be encountering, my guess is that when you put this in a file...

Read more... (261 Bytes)

--chargrill

[ whoops - signature hidden for this post, too :) ]

[reply]
[d/l]
[select]

Re^3: more tricks learned from fellow monks

by davidrw (Prior) on Feb 01, 2006 at 00:43 UTC

[reply]

Re: more tricks learned from fellow monks
by olus (Curate) on Feb 02, 2006 at 23:44 UTC

open +0;
$_=(<0>)[-1];
$_=~s/^.*?"(.+)".*$/$1/;
@array= split (' ',$_);
foreach $scalar (@array) {
  $scalar =~ s/(\w)(\w)/$2$1/g;
  $var .= " " . $scalar;
}
$var = reverse $var;
print $var;

__DATA__
,erckha rlPe erthnoa stJu
[download]

[reply]
[d/l]


Problems? Is your data what you think it is?
	PerlMonks