1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Make a program to identify the oldest file named on the command
 4 ffd9a51f 2023-08-04 jrmu # line and report its age in days. What does it do if the list is
 5 ffd9a51f 2023-08-04 jrmu # empty? (That is, if no files are mentioned on the command line.)
 6 ffd9a51f 2023-08-04 jrmu 
 7 ffd9a51f 2023-08-04 jrmu use v5.24;
 8 ffd9a51f 2023-08-04 jrmu use warnings;
 9 ffd9a51f 2023-08-04 jrmu use strict;
10 ffd9a51f 2023-08-04 jrmu use utf8;
11 ffd9a51f 2023-08-04 jrmu 
12 ffd9a51f 2023-08-04 jrmu my $max = 0;
13 ffd9a51f 2023-08-04 jrmu my $maxfile;
14 ffd9a51f 2023-08-04 jrmu foreach (@ARGV) {
15 ffd9a51f 2023-08-04 jrmu 	if (-e) {
16 ffd9a51f 2023-08-04 jrmu 		my $age = -C;
17 ffd9a51f 2023-08-04 jrmu 		if ($age > $max) {
18 ffd9a51f 2023-08-04 jrmu 			$max = $age;
19 ffd9a51f 2023-08-04 jrmu 			$maxfile = $_;
20 ffd9a51f 2023-08-04 jrmu 		}
21 ffd9a51f 2023-08-04 jrmu 	}
22 ffd9a51f 2023-08-04 jrmu }
23 ffd9a51f 2023-08-04 jrmu 
24 ffd9a51f 2023-08-04 jrmu printf("%s: %.1f days\n", $maxfile, $max) if defined($maxfile);