version 1.2, 2011/03/27 22:26:33 |
version 1.4, 2011/03/28 03:37:48 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
|
|
# $AFresh1: perl_strmode.pl,v 1.1.1.1 2011/03/27 20:54:35 andrew Exp $ |
# $AFresh1: perl_strmode.pl,v 1.3 2011/03/27 21:27:25 andrew Exp $ |
# |
# |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 1990 The Regents of the University of California. |
# Copyright (c) 1990 The Regents of the University of California. |
|
|
when (S_IFREG) { $p .= '-' } # regular |
when (S_IFREG) { $p .= '-' } # regular |
when (S_IFLNK) { $p .= 'l' } # symbolic link |
when (S_IFLNK) { $p .= 'l' } # symbolic link |
when (S_IFSOCK) { $p .= 's' } # socket |
when (S_IFSOCK) { $p .= 's' } # socket |
|
#ifdef S_IFIFO XXX How important is this? Is S_IFIFO ever not set? |
#ifdef S_IFIFO XXX How important is this ifdef? |
|
when (S_IFIFO) { $p .= 'p' } # fifo |
when (S_IFIFO) { $p .= 'p' } # fifo |
|
#endif |
#endif |
|
default { $p .= '?' } # unknown |
default { $p .= '?' } # unknown |
} |
} |
|
|
|
|
@files = '.' unless @files; |
@files = '.' unless @files; |
|
|
foreach my $file (@files) { |
foreach my $file (@files) { |
next unless -e $file; |
|
my ( $mode, $nlink, $uid, $gid, $size, $mtime ) |
my ( $mode, $nlink, $uid, $gid, $size, $mtime ) |
= ( stat(_) )[ 2 .. 5, 7, 9 ]; |
= ( lstat($file) )[ 2 .. 5, 7, 9 ]; |
|
|
|
next unless -e _; |
|
|
my $time = localtime($mtime); |
my $time = localtime($mtime); |
$time =~ s/^\w+\s+//; |
$time =~ s/^\w+\s+//; |