1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Modify your answer to Exercise 2 to report the times using the
 4 ffd9a51f 2023-08-04 jrmu # YYYY-MM-DD format. Use a map with localtime and a slice to turn
 5 ffd9a51f 2023-08-04 jrmu # the epoch times into the date strings that you need. Note the
 6 ffd9a51f 2023-08-04 jrmu # localtime documentation about the year and month values it
 7 ffd9a51f 2023-08-04 jrmu # returns. Your report should look like this:
 8 ffd9a51f 2023-08-04 jrmu #
 9 ffd9a51f 2023-08-04 jrmu # fred.txt	2011-10-15	2011-09-28
10 ffd9a51f 2023-08-04 jrmu # barney.txt	2011-10-13	2011-08-11
11 ffd9a51f 2023-08-04 jrmu # betty.txt	2011-10-15	2010-07-24
12 ffd9a51f 2023-08-04 jrmu 
13 ffd9a51f 2023-08-04 jrmu use v5.24;
14 ffd9a51f 2023-08-04 jrmu use warnings;
15 ffd9a51f 2023-08-04 jrmu use strict;
16 ffd9a51f 2023-08-04 jrmu use utf8;
17 ffd9a51f 2023-08-04 jrmu 
18 ffd9a51f 2023-08-04 jrmu foreach (glob '.* *') {
19 ffd9a51f 2023-08-04 jrmu 	my ($atime, $mtime) = map {
20 ffd9a51f 2023-08-04 jrmu 		my ($year, $mon, $day) = (localtime($_))[5,4,3];
21 ffd9a51f 2023-08-04 jrmu 		sprintf "%4d-%02d-%02d", $year+1900, $mon, $day;
22 ffd9a51f 2023-08-04 jrmu 	} (stat $_)[8,9];
23 ffd9a51f 2023-08-04 jrmu 	printf ("%-16s %s %s\n", $_, $atime, $mtime);
24 ffd9a51f 2023-08-04 jrmu }