Lists files in directory; then gets info on files with stat : stat « File « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » File » stat 
Lists files in directory; then gets info on files with stat
    
#!/usr/bin/perl -w

$dir = "c:\\";

opendir(DIR, $diror die "Can't open $name";

@entries = readdir(DIR);

closedir(DIR);
@sorted = sort(@entries);

foreach $entry (@sorted) {
    $name = $dir . '/' . $entry;
    print "\nEntry: $name\n";

    ($dev, $inode, $mode, $nlink,$uid, $gid, $rdev, $size, $atime,$mtime, $ctime, $blksize, $blocks= stat($name);

    if (defined($dev) ) {     
      print "Device number    : $dev\n";
      print "Inode number     : $inode\n";
      print "File mode        : $mode\n";
      print "Number hard links: $nlink\n";
      print "Owner ID         : $uid\n";
      print "Owner Group ID   : $gid\n";
      print "Device ID        : $rdev\n";
      print "Total size       : $size\n";
      print "Last access time : $atime\n";
      print "Last modify time : $mtime\n";
      print "Last inode time  : $ctime\n";
      print "Block size       : $blksize\n";
      print "Number blocks    : $blocks\n";
    }


   
    
    
    
  
Related examples in the same category
1.Getting Information on a File
2.Get return value from stat function
3.Get the file size
4.Get the length of a file
5.File statistics returned from the stat command
6.File stats
7.Checks the permissions of a file
8.Call stat function from file handle
9.The stat Function for Windows NT File Attributes
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.