/Perl/Perl list files and folders in a directory

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

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

opendir my $dir, "/some/path" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;

Source: stackoverflow.com

Similar codes

0 vote203 views1 answer
Perl hash ref create
Perl
0 vote194 views1 answer
Perl remove all whitespace
Perl
0 vote182 views1 answer
Perl @$
Perl
0 vote141 views1 answer
Perl format decimal 2 places not rounding
Perl
0 vote130 views1 answer
Perl download images files
Perl
0 vote193 views1 answer
Perl leading zeros formatting sprintf
Perl
0 vote68 views1 answer
What is the index number of the last element of an array with 9 elements?
Perl
0 vote133 views1 answer
Perl split array into smaller arrays
Perl
0 vote200 views1 answer
Perl mechanize infinite scroll with attempt count
Perl
1 vote209 views2 answers
Perl array
Perl