Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic


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

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://133793]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2017-07-22 16:22 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (340 votes). Check out past polls.