1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Write a program to parse the output of the date command to
 4 ffd9a51f 2023-08-04 jrmu # determine the current day of the week. If the day of the week is
 5 ffd9a51f 2023-08-04 jrmu # a weekday, print 'get to work'; otherwise, print 'go play'. The
 6 ffd9a51f 2023-08-04 jrmu # output of the date command begins with Mon on a Monday. If you
 7 ffd9a51f 2023-08-04 jrmu # don't have a date command on your non-Unix system, make a fake
 8 ffd9a51f 2023-08-04 jrmu # little program that simply prints a string like date might print.
 9 ffd9a51f 2023-08-04 jrmu # We'll even give you this two-line program if you promise not to
10 ffd9a51f 2023-08-04 jrmu # ask us how it works:
11 ffd9a51f 2023-08-04 jrmu #
12 ffd9a51f 2023-08-04 jrmu # #!/usr/bin/perl
13 ffd9a51f 2023-08-04 jrmu # print localtime( ). "\n";
14 ffd9a51f 2023-08-04 jrmu 
15 ffd9a51f 2023-08-04 jrmu use v5.24;
16 ffd9a51f 2023-08-04 jrmu use warnings;
17 ffd9a51f 2023-08-04 jrmu use strict;
18 ffd9a51f 2023-08-04 jrmu use utf8;
19 ffd9a51f 2023-08-04 jrmu 
20 ffd9a51f 2023-08-04 jrmu if (`date` =~ /(\w{3}) (\w{3}) (\d{1,2}) (\d{1,2}:\d{1,2}:\d{1,2}) (\w{2,4}) (\d{4})/) {
21 ffd9a51f 2023-08-04 jrmu 	my ($weekday, $mon, $day, $time, $zone, $year) = ($1, $2, $3, $4, $5, $6);
22 ffd9a51f 2023-08-04 jrmu 	if ($weekday =~ /Sat|Sun/i) {
23 ffd9a51f 2023-08-04 jrmu 		print "Go play!\n";
24 ffd9a51f 2023-08-04 jrmu 	} else {
25 ffd9a51f 2023-08-04 jrmu 		print "Get to work!\n";
26 ffd9a51f 2023-08-04 jrmu 	}
27 ffd9a51f 2023-08-04 jrmu }