version 1.3, 2011/03/27 22:27:25 |
version 1.4, 2011/03/28 03:37:48 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
|
|
# $AFresh1: perl_strmode.pl,v 1.2 2011/03/27 21:26:33 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. |
|
|
@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+//; |