unix_clock.exe

Workshop vhdl code from Esperan

#!/usr/local/bin/perl
# File name: clock.exe
# Copyright (c) 1997 Intrinsix Corp.
#
# Function: Used for Esperan Verilog Labs
# Created by: Romas Rudis 1/5/98
# Updated by: Romas Rudis 1/5/98
#
# Description: Concatenates clock.txt to x-term window every second
# (program can be left running forever in an x-term window)
#
#
$version = "clock.exe 1.0\n\n";
$clear_string = "\033[1;1H\033[J\033[1;1H";

while(1) {

# Clear screen
   print ("$clear_string");
# Print local time and version
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   printf("%2d:%02d:%02d\n",$hour,$min,$sec);
   print ("$version");


# Echo clock.txt file
   open (CLOCK, "clock.txt");
   @txt = <CLOCK>;
   print (@txt);
   close (CLOCK);

   sleep 1;
}