Get folder size, attributes and name : opendir « File « Perl






  1. Perl
  2. File
  3. opendir

Get folder size, attributes and name

    

#!/usr/bin/perl

use strict;

print "Contents of the current directory:\n";
opendir DH, "." or die "Couldn't open the current directory: $!";
while ($_ = readdir(DH)) {
    next if $_ eq "." or $_ eq "..";
    print $_, " " x (30 - length($_));
    print "d" if -d $_;
    print "r" if -r _;
    print "w" if -w _;
    print "x" if -x _;
    print "o" if -o _;
    print "\t";
    print -s _ if -r _ and -f _;
    print "\n";
}
closedir DH;








Related examples in the same category

1.To open a directory, use the opendir command:
2.List the content of current folder
3.Use the functions opendir, readdir, and closedir