Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Poem about the FCC

by shirkdog_perl (Beadle)
on Mar 03, 2004 at 09:18 UTC ( #333487=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl $Freedom = ""; $Censorship = ""; if ($Freedom == 1) { $Censorship = 0; } elsif ($Censorhip == 1) { $Freedom = 0; }



Shirkdog_perl is meditating...

Replies are listed 'Best First'.
One must imagine Perl happy...
by calin (Deacon) on Mar 03, 2004 at 17:48 UTC

    Some may think that your code would benefit greately from an optimizing compiler. Leaving the minor, worldly details aside, one may envision your code similar in machinations and side effects to /bin/true. Yeah, True. Is this union with the Universe? Or that would be /bin/false? Or is it impossible to achieve such a feat, therefore we have to explore every nook and cranny of the absurd, the strange marriage between the conscious man and the hostile and meaningless world, never trying to elude what is given, our mortal condition... The absurd man says yes and his efforts will henceforth be unceasing. If there is a personal fate, there is no higher destiny, or at least there is but one which he concludes is inevitable and despicable. For the rest, he knows himself to be the master of his days.

    Below is Perl's painstaking interpretation of the whole affair. One must imagine Perl happy. :)

    $ perl -MO=Terse /tmp/censor.pl LISTOP (0x8185fc8) leave [1] OP (0x8123230) enter COP (0x8184320) nextstate BINOP (0x8185fa0) sassign SVOP (0x8185f80) const PV (0x812a9b4) "" UNOP (0x8185f60) null [15] SVOP (0x8127148) gvsv GV (0x812aa14) *Freedom COP (0x8186108) nextstate BINOP (0x81860e0) sassign SVOP (0x81860c0) const PV (0x812aa38) "" UNOP (0x81860a0) null [15] SVOP (0x8185ff0) gvsv GV (0x812a9a8) *Censorship COP (0x81231f0) nextstate UNOP (0x81231d0) null LOGOP (0x81231a8) cond_expr BINOP (0x81861a8) eq UNOP (0x8186168) null [15] SVOP (0x8186148) gvsv GV (0x812aa14) *Freedom SVOP (0x8186188) const IV (0x811f568) 1 LISTOP (0x8186298) leave OP (0x8123188) enter COP (0x8186258) nextstate BINOP (0x8186230) sassign SVOP (0x8186210) const IV (0x812a9e4) 0 UNOP (0x81861f0) null [15] SVOP (0x81861d0) gvsv GV (0x812a9a8) *Censors +hip UNOP (0x8123168) null LOGOP (0x8123140) and BINOP (0x812db50) eq UNOP (0x8184060) null [15] SVOP (0x81862c0) gvsv GV (0x812a9fc) *Cen +sorhip SVOP (0x81862f8) const IV (0x812aa08) 1 LISTOP (0x81230f8) leave OP (0x8123120) enter COP (0x81230b8) nextstate BINOP (0x8123090) sassign SVOP (0x8123070) const IV (0x812a9d8) 0 UNOP (0x8123050) null [15] SVOP (0x812db78) gvsv GV (0x812aa14) +*Freedom /tmp/censor.pl syntax OK

Re: Poem about the FCC
by Roger (Parson) on Mar 03, 2004 at 13:36 UTC
    :-D
    use constant { GOOD => 1, BAD => 0 }; $freedom = GOOD; $censorship = BAD; $freedom and $censorship++; $censorship and $freedom--;

Re: Poem about the FCC
by theorbtwo (Prior) on Mar 03, 2004 at 16:38 UTC

    Declarative:$freedom xor $censorship

    "Normal", assuming $censorship is set: $freedom = !$censorship


    Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).

Re: Poem about the FCC
by bageler (Hermit) on Mar 04, 2004 at 21:51 UTC
    any relation to the BF quote?
    #!/usr/bin/perl # Any society that would give up a little liberty # to gain a little security will deserve neither # and lose both. # -- Benjamin Franklin @{$deserve{liberty}}=(0..100000); @{$deserve{security}}=(0..100000); if (@security = map{shift @liberty}(0..5)) { delete $deserve{liberty} and delete $deserve{security}; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://333487]
Approved by grinder
Front-paged by exussum0
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2023-02-07 07:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (38 votes). Check out past polls.

    Notices?