Re: What would you put on a Perl mug?

Quick, someone write a mug-shaped obfu that prints an ASCII picture of a mug.

Comment on Re: What would you put on a Perl mug?

Replies are listed 'Best First'.
Re^2: What would you put on a Perl mug? by jbware (Chaplain) on Oct 27, 2005 at 16:42 UTC
With a lack coffee (ironically enough), this is the best coffee mug graphic I can muster at the moment. So I figured the least I could do was refill it. Unfortunantly the '~' only gets me half-full. And yes, dependent upon my mood, my coffee mug and beer mug look the same :) I like the aesthetic zenness of this: `s/c[_]/c[~]/;` [download] But this one actually works: `$_='c[_]'; s/\Qc[_]\E/c[~]/; print $_,$/;` [download] -jbWare	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: What would you put on a Perl mug?
by jbware (Chaplain) on Oct 27, 2005 at 16:42 UTC

s/c[_]/c[~]/;
[download]

$_='c[_]';
s/\Qc[_]\E/c[~]/;
print $_,$/;
[download]

In Section Meditations