1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Write a program that works like rm, deleting any files named on
 4 ffd9a51f 2023-08-04 jrmu # the command line. (You dont' need to handle any of the options of
 5 ffd9a51f 2023-08-04 jrmu # rm)
 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 use Cwd;
12 ffd9a51f 2023-08-04 jrmu 
13 ffd9a51f 2023-08-04 jrmu if (scalar(@ARGV) == 0) {
14 ffd9a51f 2023-08-04 jrmu 	die "Usage: $0 file ...";
15 ffd9a51f 2023-08-04 jrmu }
16 ffd9a51f 2023-08-04 jrmu foreach (@ARGV) {
17 ffd9a51f 2023-08-04 jrmu 	unlink $_ or warn "Unable to delete '$_': $!";
18 ffd9a51f 2023-08-04 jrmu }