1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Make a program that uses stacked file test operators to list all
 4 ffd9a51f 2023-08-04 jrmu # files named on the command line that are readable, writable, and
 5 ffd9a51f 2023-08-04 jrmu # owned by you.
 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 foreach (@ARGV) {
13 ffd9a51f 2023-08-04 jrmu 	if (-o -w -r -e) {
14 ffd9a51f 2023-08-04 jrmu 		say;
15 ffd9a51f 2023-08-04 jrmu 	}
16 ffd9a51f 2023-08-04 jrmu }