Blob
1 #!/usr/bin/perl3 # Write a program that takes a list of filenames on the command line and4 # uses grep to select the ones whose size is less than 1,000 bytes. Use map5 # to transform the strings in this list, putting four space characters in6 # front of each and a newline character after. Pring the resulting list.8 use v5.24;9 use warnings;10 use strict;11 use utf8;13 print map { " ".$_."\n" } grep { (-s $_ < 1000) } @ARGV;