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 make a report of the access and modification
 4 ffd9a51f 2023-08-04 jrmu # times (in the epoch time) of the files in the current directory.
 5 ffd9a51f 2023-08-04 jrmu # Use stat to get the times, using a list slice to extract the
 6 ffd9a51f 2023-08-04 jrmu # elements. Report your results in three columns, like this:
 7 ffd9a51f 2023-08-04 jrmu #
 8 ffd9a51f 2023-08-04 jrmu # fred.txt	1294145029	1290880566
 9 ffd9a51f 2023-08-04 jrmu # barney.txt	1294197219	1290810036
10 ffd9a51f 2023-08-04 jrmu # betty.txt	1287707076	1274433310
11 ffd9a51f 2023-08-04 jrmu 
12 ffd9a51f 2023-08-04 jrmu use v5.24;
13 ffd9a51f 2023-08-04 jrmu use warnings;
14 ffd9a51f 2023-08-04 jrmu use strict;
15 ffd9a51f 2023-08-04 jrmu use utf8;
16 ffd9a51f 2023-08-04 jrmu 
17 ffd9a51f 2023-08-04 jrmu for (glob '.* *') {
18 ffd9a51f 2023-08-04 jrmu 	my ($atime, $mtime) = (stat $_)[8,9];
19 ffd9a51f 2023-08-04 jrmu 	printf "%-16s %d %d\n", $_, $atime, $mtime;
20 ffd9a51f 2023-08-04 jrmu }