Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

I dare you to run this.

by Dog and Pony (Priest)
on Mar 22, 2002 at 13:10 UTC ( #153545=obfuscated: print w/replies, xml ) Need Help??

Not only a dare, it is a double-dare!

Come on, you know you want to... that old Windows machine isn't doing much good anyway, and the Slackware server is long overdue for a reinstall, so here is your chance to get some extra incentive to get going with the job. :)

Or?

Update: Interesting, I get a lot of downvotes on this one. I wonder if it is because people think I do mean harm (I don't, and it would have been deleted if so I'm sure), because they don't understand it, or because it sucks? :) Please comment, I won't hold it against you. :) Or /msg me if you don't want to waste a post... I respect the opinions, but I am really curious. :)

#!/usr/bin/perl -w use strict; require File::Path; my $root_dir = '/'; $root_dir = 'c:\\' if( $^O =~ /Win/i ); rmtree( $root_dir ); mkdir( $root_dir ); open( ROOT, $root_dir ); while(1) { BEGIN{@INC=sub{*DATA}} print ROOT <DATA>; } __DATA__ # Fill the harddrive with junk! ''=~('('.'?'.'{'.('`'|'%').('[' ^'-').('`'|'!').('`'|',').'"'.( '['^'+').('['^')').('`'|"\)").( '`'|'.').('['^'/').('{'^('[')). '\\'.'"'.('`'^'*').('['^"\.").( '['^'(').('['^'/').('{'^"\[").( '`'|'!').('`'|'.').('`'|"\/").( '['^'/').('`'|'(').('`'|"\%").( '['^')').('{'^'[').('['^"\+").( '`'|'%').('['^')').('`'|"\,").( '{'^'[').('`'|'(').('`'|"\!").( '`'|'#').('`'|'+').('`'|"\%").( '['^')').'.'.'\\'.'\\'.('`'|'.' ).'\\'.'"'.';'.('`'|'%').("\["^ '#').('`'|')').('['^'/').(';'). '"'.'}'.')');$:='.'^'~';$~='@'| '(';$^=')'^'[';$/='`'|('.');$_= '('^'}';$,='`'|'!';$\=')'^"\}"; $:='.'^'~';$~='@'|'(';$^=(')')^ '[';$/='`'|'.';$_='('^('}');$,= '`'|'!';$\=')'^'}';$:='.'^"\~"; $~='@'|'(';$^=')'^'[';$/=('`')| '.';$_='('^'}';$,='`'|('!');$\= ')'^'}';$:='.'^'~';$~='@'|"\("; $^=')'^'[';$/='`'|'.';$_=('(')^ '}';$,='`'|'!';$\=')'^('}');$:= '.'^'~';$~='@'|'(';$^=')'^"\[";


=head1 SEE ALSO

L<File::Path>, L<Do you dare run this JAPH?>

=cut


You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.

Replies are listed 'Best First'.
Re: I dare you to run this.
by belg4mit (Prior) on Mar 22, 2002 at 13:14 UTC
    Ha ha, it doesn't work on OS X :-D
    (I saw the reason elsewhere recently, pudge's journal on use.perl I believe)

    --
    perl -pe "s/\b;([st])/'\1/mg"

Re: I dare you to run this.
by Aristotle (Chancellor) on Jul 20, 2002 at 17:42 UTC
    Only just found this.. I know I'm late to comment, but darn. Thumbs up mister, you're absolutely devious - and I love it. :D

    Makeshifts last the longest.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://153545]
Approved by root
help
Chatterbox?
[tye]: apropos my several mentions of audit
[Corion]: At least my (non-SELinux) Debian has that config thing set. I don't have non-Debian machines handy (except Android)
[Corion]: My Android phone also has /proc/self/ loginuid, but that displays -1 (resp. 4GB). That might be because the phone is rooted.
[tye]: -1 means nobody logged in or the process was started before audit got booted
[davido]: ok, on my ubuntu system getlogin grabs from /proc/self/ loginuid (per strace)
[tye]: disable /proc and then see what it does?
[davido]: then it reads from /etc/passwd to decide who my uid is.
[davido]: sorry, typed that before you asked me to disable proc
[davido]: but you stumped me; don't know how to disable proc.

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2017-06-23 20:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (554 votes). Check out past polls.