My sleep pattern

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;
}
[download]

I just thought I would give one a try.. hope you at least found it somewhat enjoyable...

Grygonos

Comment on My sleep pattern Download Code

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	[reply] [d/l]
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;` [download] It would be nice to use a code to return to conciousness :).	[reply] [d/l]