[BACK]Return to perl_strmode.pl CVS log [TXT][DIR] Up to [local] / misc / strmode

Diff for /misc/strmode/perl_strmode.pl between version 1.4 and 1.5

version 1.4, 2011/03/28 03:37:48 version 1.5, 2011/03/28 03:38:52
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
   
 # $AFresh1: perl_strmode.pl,v 1.3 2011/03/27 21:27:25 andrew Exp $  # $AFresh1: perl_strmode.pl,v 1.4 2011/03/28 02:37:48 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.
Line 97 
Line 97 
   
 foreach my $file (@files) {  foreach my $file (@files) {
     my ( $mode, $nlink, $uid, $gid, $size, $mtime )      my ( $mode, $nlink, $uid, $gid, $size, $mtime )
         = ( lstat($file) )[ 2 .. 5, 7, 9 ];          = ( lstat($file) )[ 2 .. 5, 7, 9 ]
               or next;
     next unless -e _;  
   
     my $time = localtime($mtime);      my $time = localtime($mtime);
     $time =~ s/^\w+\s+//;      $time =~ s/^\w+\s+//;
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>