NAME

File::Stat::Ls - Perl class for converting stat to ls -l format

SYNOPSIS

use File::Stat::Ls;

my $obj = File::Stat::Ls->new;
my @a = statstat('/file/name.txt'); 
my $ls = $obj->ls_stat(@a);

DESCRIPTION

This class contains methods to convert stat elements into ls format. It exports two methods: format_mode and ls_stat. The format_mode is borrowed from Stat::lsMode class by Mark_Jason Dominus. The ls_stat will build a string formated as the output of 'ls -l'.

new ()

Input variables:

None

Variables used or routines called:

None

How to use:

my $obj = new File::Stat::Ls;      # or
my $obj = File::Stat::Ls->new;     # or

Return: new empty or initialized File::Stat::Ls object.

METHODS

This class defines the following common methods, routines, and functions.

Exported Tag: All

The :all tag includes all the methods or sub-rountines defined in this class.

use File::Stat::Ls qw(:all);

It includes the following sub-routines:

format_mode ($mode)

Input variables:

$mode - the third element from stat

Variables used or routines called:

None

How to use:

my $md = $self->format_mode((stat $fn)[2]);

Return: string with permission bits such as -r-xr-xr-x.

ls_stat ($fn)

Input variables:

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

Variables used or routines called:

None

How to use:

my $ls = $self->ls_stat($fn);

Return: the ls string such as one of the followings:

-r-xr-xr-x   1 root     other         4523 Jul 12 09:49 uniq
drwxr-xr-x   2 root     other       2048 Jul 12 09:50 bin
lrwxrwxrwx   1 oracle7  dba           40 Jun 12  2002 linked.pl 
             -> /opt/bin/linked2.pl

HISTORY

• Version 0.10

  This version includes two methods: format_mode and ls_stat.

SEE ALSO (some of docs that I check often)

Data::Describe, Oracle::Loader, CGI::Getopt, File::Xcopy, Oracle::Trigger, Debug::EchoMessage, CGI::Getopt, etc.

AUTHOR

Copyright (c) 2005 Hanming Tu. All rights reserved.

This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

cpanm File::Stat::Ls

perl -MCPAN -e shell
install File::Stat::Ls