Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

anti-culture

by Amoe (Friar)
on Dec 21, 2001 at 20:25 UTC ( #133793=obfuscated: print w/ replies, xml ) Need Help??

I was feeling in a rebellious mood.
#!/usr/bin/perl -w # anti-culture use strict; package thefinalfrontier; my$female_sheep='ewe'; my($firsthalf,$secondhalf); my$male_sheep=uc scalar(reverse qw(e l d n a h e i t));my$sandwich=reverse(qw(b u s));eval("$sandwich $male_sheep".' {bless{},shift();}');tie *WEAPONRY, 'thefinalfrontier';my @government_oppression = qw( divide sedate control);my @typeonegative;for(my #; $count=0;$count<=4;$count++){$^W=0;my $towel =''.# 'we rock pangalactic blat';my@method_breakdown=@_= split/ /,$towel,4;my@letters=split//,join('','','' ,$method_breakdown[$count]);if($count==3){$_=$/=$| =($firsthalf)=$method_breakdown[$count]=~/^(.)/ ;} push@typeonegative,$letters[$count];}$secondhalf=# chop(my$pronoun=reverse(split//,$female_sheep));my $grammar={0=>'d',1=>'d',2=>'led'};eval"sub\n\n\n\n ".uc('print').' { shift; print(STDOUT join\' \','. ',map{uc;}@_);}';for(my$count=0;$count<3;$count++) {print WEAPONRY join('',reverse(split(//,$pronoun) )),join('',@typeonegative[0..2],'\'','','','','',# $typeonegative[3]),join('',$firsthalf,$secondhalf) ,join('',$government_oppression[$count],$grammar-> {$count},chr(33)),"\n";} # anti-culture by amoe #


--
my one true love

Comment on anti-culture
Download Code
Re: anti-culture
by Just Some Guy (Initiate) on Dec 21, 2001 at 21:36 UTC
    The last line seems to have an extra right-curly-bracket. Deleting that got the message to display properly.
      Fixed. That was a relic from when I put a bare block around the whole code...

      --
      my one true love

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://133793]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2014-09-16 01:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (155 votes), past polls