[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.3 and 1.4

version 1.3, 2011/03/27 22:27:25 version 1.4, 2011/03/28 03:37:48
Line 1 
Line 1 
 #!/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.
Line 96 
Line 96 
 @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+//;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>