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:
Text File  |  1992-10-18  |  248 b   |  18 lines

  1. #!/usr/bin/perl
  2. require 'getopt.pl';
  3. require 'stat.pl';
  4. %days = (
  5.     'Sun', 1,
  6.     'Mon', 2,
  7.     'Tue', 3,
  8.     'Wed', 4,
  9.     'Thu', 5,
  10.     'Fri', 6,
  11.     'Sat', 7);
  12.  
  13. dump QUICKSTART if $ARGV[0] eq '-d';
  14.  
  15. QUICKSTART:
  16. &Getopt('f');
  17. # Your code here.
  18.