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)