Perl list files and folders in a directory
my $dir = "bla/bla/upload"; opendir DIR,$dir; my @dir = readdir(DIR); close DIR; foreach(@dir){ if (-f $dir . "/" . $_ ){ print $_," : file\n"; }elsif(-d $dir . "/" . $_){ print $_," : folder\n"; }else{ print $_," : other\n"; } }
Source: stackoverflow.com
Perl list files and folders in a directory
use File::Find; my @content; find( \&wanted, '/some/path'); do_something_with( @content ); exit; sub wanted { push @content, $File::Find::name; return; }
Source: stackoverflow.com
Perl list files and folders in a directory
opendir my $dir, "/some/path" or die "Cannot open directory: $!"; my @files = readdir $dir; closedir $dir;
Source: stackoverflow.com