Phone Numbers I Use

#!/usr/bin/perl # Script to generate list of Compact Discs and (eventually) cassettes # Hard part by Dale Bewley (dale@bewley.net) 11/13/96 # Easy part by Jason Sisk (jmsisk@iupui.edu) 11/13/96 and various other times # modified for ptudor by himself 02/19/97 # hacked by ptudor again 3/29/97 to generate phone numbers # ----------------------------------------------------------------------- print < Phone Numbers I Use Here we go...

This script is mine, dale's, and jason's.

EOF print "

Phone Numbers

\n"; open(DATA,"phone.txt") || die "Where the hell is phone.txt? $!"; print "

) { ($person,$number) = split(/=/); print "\t

$person \n"; print "\t\t: $number\n\t

\n"; } print "

\n"; print "Back
Top

"; #print ""; # you need the full path to date here. print `/bin/date +'%A, %B %d %l:%M%p %Z'`; # or better yet, use localtime(time); #print `date +'%A, %B %d %l:%M%p %Z'`; #print ""; print "\n"; print "\n";