home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cse.unsw.edu.au
/
2014.06.ftp.cse.unsw.edu.au.tar
/
ftp.cse.unsw.edu.au
/
pub
/
doc
/
languages
/
perl
/
nutshell
/
ch4
/
dump
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-10-18
|
248 b
|
18 lines
#!/usr/bin/perl
require 'getopt.pl';
require 'stat.pl';
%days = (
'Sun', 1,
'Mon', 2,
'Tue', 3,
'Wed', 4,
'Thu', 5,
'Fri', 6,
'Sat', 7);
dump QUICKSTART if $ARGV[0] eq '-d';
QUICKSTART:
&Getopt('f');
# Your code here.