[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.2 and 1.5

version 1.2, 2011/03/27 22:26:33 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.1.1.1 2011/03/27 20:54:35 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 52 
Line 52 
         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
     }      }
   
Line 98 
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 ]
               or next;
   
     my $time = localtime($mtime);      my $time = localtime($mtime);
     $time =~ s/^\w+\s+//;      $time =~ s/^\w+\s+//;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>