[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] alarm?



From:   SMTP%"FISK_ZAN@CCSUA.CTSTATEU.EDU"  5-FEB-1996 16:15:09.68
To:     FISK_ZAN
CC:     
Subj:   [MacPerl] alarm?

Return-Path: <owner-mac-perl@iis.ee.ethz.ch>
Received: from err.ethz.ch by CCSUA.CTSTATEU.EDU with SMTP;
          Mon, 5 Feb 1996 16:15:07 -0500 (EST)
Received: by err.ethz.ch id AA04382
  (5.65c/IIS-2.7 for mac-perl-outgoing); Mon, 5 Feb 1996 19:57:21 +0100
Received: from ccsua.ctstateu.edu by err.ethz.ch with SMTP id AA04376
  (5.65c/IIS-2.7 for <mac-perl@iis.ee.ethz.ch>); Mon, 5 Feb 1996 19:57:15 +0100
Date: Mon, 5 Feb 1996 13:58:15 -0500 (EST)
From: "ZACHER, THE" <FISK_ZAN@CCSUA.CTSTATEU.EDU>
To: mac-perl@iis.ee.ethz.ch
Message-Id: <960205135815.2024d55d@CCSUA.CTSTATEU.EDU>
Subject: [MacPerl] alarm?
Sender: owner-mac-perl@iis.ee.ethz.ch
Precedence: bulk

I tried this script on mac perl. The script accepted my input but did nothing
after. Is the sleep function part of mac perl? Also how can I make the beep 
'\a' ?

#!perl
print "When to alarm?\n";
$time = <STDIN>;
chop ($time);

sleep ($time);

Zach-




#######
     #
    #
   #     #####
  #
 #
#######