Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^3: What would you put on a Perl mug?

by graff (Chancellor)
on Oct 28, 2005 at 02:17 UTC ( #503529=note: print w/replies, xml ) Need Help??

in reply to Re^2: What would you put on a Perl mug?
in thread What would you put on a Perl mug?

And more importantly:
$mug->refill( $name_your_poison ) if $mug->is_empty;

Replies are listed 'Best First'.
Re^4: What would you put on a Perl mug?
by ww (Archbishop) on Oct 28, 2005 at 15:37 UTC
    and, derivatively from this thread:
    #!C:/perl/bin system ("cls"); print "\n"; $COFFEE = "COFFEE"; $mug = "mug"; print "\n\t $mug->refill( $COFFEE )\n\t if $mug->is_empty;\n\n"; print "\n___________________ small cup\n\n\t\t"; $_='c[_]'; s/\Qc[_]\E/c[~]/; print $_,$/; print "\n\t\t -jbWare\n"; print "\n ++++++++++++++++++++ medium cup\n\n"; $cup1 = "\t /|~~~~~~|\n\t ( | use |\n\t \\| warn;|\n +\t | |\n\t \\____/ \n "; print "$cup1 \n"; print "\t\t\t -ww\n"; print "\n\t====================== large cup\n\n"; print "\t";$a = ".";for ($i=0; $i<20;$i++){print "$a"; }print"\n\t|\t\t |\n\t| use strict;\t |......\n\t| use warn; + |\t |\n\t|\t\t |\t |\n\t|\t\t |\t |\n"; print "\t|\t\t |......\n\t|\t\t |\t\n\t|\t\t |\t\n\t|\t\t |\t\ +n\t";for ($i=0; $i<20;$i++) { print "$a"; } print "\n\t\t\t -softworkz\n"; print "\n\t __________________________ timeless wisdom\n"; print "\n\t\tuse Perl;\n\t\tIt is Perlish, simple and elegant.\n\t\t - +John Krahn\n\n";

    oops! ... no "use strict;
                 use warnings;" in code.
    add:    "require caffeine;"

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://503529]
usemodperl remembers the hilarious merlyn bot
[usemodperl]: perl is not broken, perl is being broken by the web being broken by https, for the love of banking apps on free wifi at coffee shops or something...
[Veltro]: Wondering, would it be so hard to write a small application that you can access using http which forwards the request over web ussing ssl?
[Veltro]: are there not even tools for that?
[usemodperl]: the breakage is so fresh i guess not, so it's up to us! :-)
[usemodperl]: someone has yet to make that future famous free http to https proxy written in perl and supported by ads, paypal, patreon, etc to make millions of dollars a minute!
[Veltro]: Why would this be fresh, I recon this is stuff that happens all the time (not Perl per se)

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2018-06-24 16:58 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.