19 lines
339 B
Perl
19 lines
339 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
my $dir = path('/var','log'); # /var/log
|
||
|
|
|
||
|
|
# Iterate over the content of foo/bar
|
||
|
|
my $iter = $dir->iterator;
|
||
|
|
while (my $file = $iter->()) {
|
||
|
|
|
||
|
|
# See if it is a directory and skip
|
||
|
|
next if $file->is_dir();
|
||
|
|
|
||
|
|
# Print out the file name and path
|
||
|
|
print "$file\n";
|
||
|
|
}
|