[chat] Re: [SLUG] From newbie to...

[Martin <marty@xxxxxxxxxx>]

$author = "Jeff Waugh" ;
> 
> Will Perl do my washing up? :)

#!/usr/bin/perl

use Stiff::Brush;
use Hot::Water;
use Washing::Detergent;

$sink = new Hot:Water;
$suds = new Washing::Detergent;

open (THINGSTOWASH,</var/spool/dirty/dishes);

while ($dish = <THINGSTOWASH>) {
        while ($state ne "clean") {
                $state = brush_scrub($dish,$sink,$suds); 
        }
}

close (THINGSTOWASH);
open (BEER,>/dev/couch);


:)

code does not carry any warranty. failure to wash dishes is covered in the
faq, refer to Bug #666.

later
marty

"I can't buy what I want because it's free. Can't be what they want
because I'm me." - Corduroy, Pearl Jam