Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

use constant { Perl, 'Programming', all, time };

by buetow (Beadle)
on Jun 01, 2006 at 19:44 UTC ( #553131=poem: print w/replies, xml ) Need Help??

This works with Perl v5.8.8 without any compile error. But no script output. :( Its a little bit radical against PHP, but well, its only for fun. Dont take it too serious :)
#!/usr/bin/perl my $nation; no warnings; goto hell or die 'PHP!!11'; $nation; BEGIN { our $mission and kill if PHP } use constant { Perl, 'Programming', all, time }; require abs Perl and not undef$ined; sub knowledges {}; hell: warn if PHP and not Perl; heaven: do index all, knowledges if not Perl and not try { require PHP if defined }; require Switch and delete $evil{PHP}; Oh_Yes: do { PHP => Perl } for all, time; ref (our $best), knowledges() and listen Perl,power; END { our $mission and return if all }# is done bless [qw/the holy folk of/], Perl for (local $happiness); __END__ (C) 2006 by Paul C. Buetow (

Replies are listed 'Best First'.
Re: use constant { Perl, 'Programming', all, time };
by SamCG (Hermit) on Jul 07, 2006 at 20:12 UTC
    "Its a little bit radical against PHP"

    a little??!??!??! :)

    and they say there are no holy language wars...

    Seriously, very nice work.

    s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://553131]
Approved by socketdave
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2023-06-10 05:00 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (36 votes). Check out past polls.