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

Hmmm, that would mean if there's a bit of cold coffee from yesterday, you're stuck - you aren't getting fresh coffee. 
    $mug =~ s/.*/coffee/s, sleep(1500 + rand 600) while 1;

[download]
Or maybe: 
    $mug =~ s/.*/beer/s, sleep(1500 + rand 600) while 1;

[download]
Perl --((8:>*

Replies are listed 'Best First'.
Re^4: What would you put on a Perl mug?
by liz (Monsignor) on Oct 27, 2005 at 15:41 UTC
    I guess I don't like stale coffee in my mug. 
    foreach (@days) {
    my $mug = 'coffee';
# rest of the day
}

    [download]
    would be a more desirable description. ;-)
[reply]
[d/l]

In Section Meditations