my $status = sub { my $eyes = "X--X"; while(alarm eq "ring") { kill alarm if ((localtime)[1] =~ /Sat/ || (localtime)[1] =~ /Sun/); warn alarm time; $eyes = ((localtime)[4] < 7? $eyes = "X--o":$eyes = "0--0"); last if $eyes eq "0--0"; } return my $conciousness; }
I just thought I would give one a try.. hope you at least found it somewhat enjoyable...

Grygonos

Replies are listed 'Best First'.
Re: My sleep pattern
by csuhockey3 (Curate) on Feb 27, 2004 at 20:00 UTC
    I love this one. I especially like the:

    $eyes = "X--o":$eyes = "0--0"

    That's great, nice job!

    --CSUhockey3
Re: My sleep pattern
by CloneArmyCommander (Friar) on Feb 27, 2004 at 21:41 UTC
    I like that, it's great :). Sounds like my morings :). I like the part that says:
    return my $conciousness;
    It would be nice to use a code to return to conciousness :).