Leo Charre > lsutils-1.02 > lib/LEOCHARRE/Dir/Lsutils.pod

Download:
lsutils-1.02.tar.gz

Annotate this POD

View/Report Bugs
Source  

NAME ^

SYNOPSIS ^

LEOCHARRE::Dir::Lsutils

DESCRIPTION ^

SUBROUTINES ^

None are exported by default.

sort_by_stat() ^

First argument is stat position. Second argument is list or array ref to paths on disk. Any paths not on disk, we warn and continue. Returns array ref in scalar context, list in list context.

The stat position is one of:

   # 0 dev      device number of filesystem
   # 1 ino      inode number
   # 2 mode     file mode  (type and permissions)
   # 3 nlink    number of (hard) links to the file
   # 4 uid      numeric user ID of file’s owner
   # 5 gid      numeric group ID of file’s owner
   # 6 rdev     the device identifier (special files only)
   # 7 size     total size of file, in bytes
   # 8 atime    last access time in seconds since the epoch
   # 9 mtime    last modify time in seconds since the epoch
   # 10 ctime    inode change time in seconds since the epoch (*)
   # 11 blksize  preferred block size for file system I/O
   # 12 blocks   actual number of blocks allocated

sort_by_ctime()

Argument is list or array ref to paths on disk. Returns sorted by inode change time. (creation time?) Returns array ref or list depending on context.

sort_by_atime()

Argument is list or array ref to paths on disk. Returns sorted by last access time. Returns array ref or list depending on context.

sort_by_mtime()

Argument is list or array ref to paths on disk. Returns sorted by last modify time. Returns array ref or list depending on context.

most_by_stat()

Argument is stat num, and list or aref of paths. In scalar context, returns path with highest value of stat num selected. In list contextx, returns path and the value of the stat num selected.

For example if you want to know which of the paths you have has the greater 'size'.

   my @files = ('/home/myself/one.pdf', '/home/myself/two.pdf' );
   
   my $biggest_file 
      = most_by_stat( 7, @files);
   
   my ($biggest_file, $size_of_biggest_file) 
      = most_by_stat( 7, @files);
   
   my $biggest_file 
      = most_by_stat( 7, \@files);
   
   my ($biggest_file, $size_of_biggest_file) 
      = most_by_stat( 7, [@files]); 

Make sure to look at the shortcuts biggest(), newest(), oldest(), smallest().

least_by_stat()

Reverse of most_by_stat().

biggest()

Argument is list or aref of paths. Returns on with biggest size.

In list context, first value returned is path, second is the value of size.

   my @files = ('/home/myself/one.pdf', '/home/myself/two.pdf' );
   
   my $biggest_file 
      = biggest(@files);
   
   my ($biggest_file, $size_of_biggest_file) 
      = biggest(@files);
   
   my $biggest_file 
      = biggest(\@files);
   
   my ($biggest_file, $size_of_biggest_file) 
      = biggest([ @files]); 

smallest()

Reverse of biggest().

newest()

Just like biggest(), only it selects the one with largest ctime, that is.. the file who's inode is newest (therefore largest value, created latest).

   my @files = ('/home/myself/one.pdf', '/home/myself/two.pdf' );
   
   my $newest_on_disk = newest( @files );
   my $newest_on_disk = newest( \@files );
   
   my ($newest_on_disk, $ctime ) = newest( @files ); 

oldest() ^

Revese of newest().

CAVEATS ^

This is for posix.

AUTHOR ^

Leo Charre leocharre at cpan dot org

LICENSE ^

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, i.e., under the terms of the "Artistic License" or the "GNU General Public License".

DISCLAIMER ^

This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the "GNU General Public License" for more details.

syntax highlighting: