#
# Author: Ulli Horlacher <framstag@rus.uni-stuttgart.de>
#
-# Copyright: Perl Artistic License
+# Perl Artistic License
use Cwd qw'abs_path';
use File::Basename;
$newer = $1;
}
}
-
+
# preselect date field number
if ($opt_c) { $sdf = 'c' }
elsif ($opt_u) { $sdf = 'a' }
$opt_z = '%'.$opt_z.'s ';
@LIST = grep { s/\0 *([,\d\.\-]+) /sprintf($opt_z,$1)/e } @LIST;
}
-
+
@LIST = reverse @LIST if $opt_r;
if (not ($opt_t or $opt_U) and grep /^d[rR-][wW-][xX-]/,@LIST) {
foreach (@LIST) { print if /^d/ }
foreach (@LIST) { print unless /^d/ }
- } else {
+ } else {
print @LIST;
}
}
print "$SS file(s):";
printf " r=%d (%s Bytes)",$SS{'-'},&d3($Ss) if $SS{'-'};
delete $SS{'-'};
- foreach my $type (qw(l d c b p s ?)) {
+ foreach my $type (qw(l d c b p s ?)) {
printf " %s=%d",$type,$SS{$type} if $SS{$type};
delete $SS{$type};
}
# collect files and build file lists
-#
+#
# INPUT: filenames
#
# GLOBAL: @LIST
# loop over all argument files/directories
foreach $f (@files) {
-
+
# skip jed and emacs backup files
# next if $f =~ /~$/ and not $opt_a and not $opt_l;
-
+
# recursive?
if ($opt_R) {
list($f);
# traverse real subdirs
- if (-d $f and not -l $f) {
+ if (-d $f and not -l $f) {
$f =~ s:/*$:/:;
# skip other file systems on -x
if ($opt_x) {
}
collect(getfiles($f));
}
-
+
} else {
-
+
# suppress trailing / on -d option
$f =~ s:/$:: if $opt_d;
-
+
# on trailing / list subdirs, too
if ($f =~ m:/$:) { &list(&getfiles($f)) }
elsif ($f eq '') { &list('/') }
}
list($f);
}
-
+
}
}
}
$day = $date;
$day =~ s/\s.*//;
-
+
if ($older) {
next if $older =~ /-/ and $day gt $older;
next if $older !~ /-/ and $dates{m} > time-$older;
next if $newer =~ /-/ and $day lt $newer;
next if $newer !~ /-/ and $dates{m} < time-$newer;
}
-
+
if (defined $linkname) {
# prepend sorting string
elsif ($i eq 'l') { $line .= sprintf '%3s ', $links }
elsif ($i eq 'i') { $line .= sprintf '%14s ', $inode }
elsif ($i eq 'd') { $line .= sprintf '%10s ', $date }
- elsif ($i eq 'a') { $line .= sprintf '%10s %10s %10s ',
+ elsif ($i eq 'a') { $line .= sprintf '%10s %10s %10s ',
$dates{'a'},$dates{'m'},$dates{'c'} }
} else {
if ($i eq 'm') { $line .= $mode.' ' }
&isodate($dates{'c'}).' ' }
}
}
-
+
# predefined formats
} else {
-
+
if ($opt_n) {
if ($opt_l) { $line .= sprintf "%06o %6d %6d $z%15s %10d ",
$mode,$uid,$gid,$size,$date }
else { $line .= sprintf "%s $z%19s %s ",
$mode,$size,substr($date,0,-3) }
}
-
+
if ($opt_i) { $line .= sprintf '%3s %10s ',$links,$inode }
}
$line .= $linkname."\n";
-
- if ($postproc) {
+
+ if ($postproc) {
push @LIST,$line;
- } else {
+ } else {
$line =~ s/\0//;
print $line;
}
$found++;
-
+
} else {
lstat $file;
warn "$0: cannot get dir-info for ".quote($file)." - $!\n";
}
-
+
}
}
#
# INPUT: file name
#
-# OUTPUT: filename with linkname, inode, hard link count, size, mode string,
+# OUTPUT: filename with linkname, inode, hard link count, size, mode string,
# UID, GID, isodate
sub info {
my $file = shift;
if ($opt_L) { @stat = stat $file }
else { @stat = lstat $file }
-
+
if (@stat) {
-
+
$inode = $stat[1];
$bmode = $stat[2];
$links = $stat[3];
- %dates = ('m' => $stat[9],
- 'a' => $stat[8],
+ %dates = ('m' => $stat[9],
+ 'a' => $stat[8],
'c' => $stat[10]);
if ($opt_n) {
$gid = getgrgid($stat[5]) || $stat[5];
$date = &isodate($dates{$sdf});
}
-
+
if (-f _) { $type = '-'; $size = $stat[7]; }
elsif (!$opt_L && -l _) { $type = 'l'; }
elsif (-d _) { $type = 'd'; }
$mode = $type.$mode;
} else {
# with short list display only effektive file access modes
- $mode = $type
+ $mode = $type
. (-r _ ? 'R' : '-')
. (-w _ ? 'W' : '-')
. (-x _ ? 'X' : '-');
}
$size = &d3($size);
-
+
# determine longest size field
if ($opt_z) {
my $x = length $size;
}
$mode =~ s/\+$//;
#$mode .= ' ' unless $mode =~ /\+$/;
-
+
return ($linkname,$inode,$links,$size,$mode,$uid,$gid,$date,%dates);
}
if (opendir D,$dir) {
$dir = '' if $dir eq '.';
- while (defined($f = readdir D)) {
-
+ while (defined($f = readdir D)) {
+
# skip . and .. pseudo-subdirs
next if $f =~ m:(^|/)\.\.?/*$:;
# skip ONTAP snapshot dir
next if $f =~ m:(^|/)\.snapshot/*$:;
-
+
# skip jed and emacs backup files
# next if $f =~ /~$/ and not $opt_a and not $opt_l;
-
+
if ($f =~ /$opt_m/) {
my $x = $dir.$f;
- if (not -l $x and -d $x and not ($opt_R or $postsort or $opt_U)) {
+ if (not -l $x and -d $x and not ($opt_R or $postsort or $opt_U)) {
push @dirs,$x;
- } else {
+ } else {
push @files,$x;
}
}
} else {
warn "$0: cannot read $dir : $!\n";
}
-
+
return (@dirs,@files);
}
sub quote {
local $_ = shift;
my $mc = '\'\[\]\\\\ `"$?&<>$*()|{};';
-
+
unless (defined $_) {
die "@_";
@x = caller;
my $status = shift;
my $opts = '[-lastcuidnrzLRxNS*] [-f format] [-D X:Y]';
local *OUT = $status ? *STDERR : *STDOUT;
-
- if ($0 ne 'lf') {
+
+ if ($0 ne 'lf') {
print OUT "usage: $0 $opts [-F regexp] [file...]\n";
}
$opts =~ s/R//;
-f user defined format output, format characters are:
m=mode, u=user, g=group, s=size, l=hard links count, i=inode
n=name only, d=date, a=access+modification+inodechange dates
- -D list only files newer than X and older than Y
+ -D list only files newer than X and older than Y
XY format: NUMBER[smhd] (s=seconds, m=minutes, h=hours, d=days)
XY format: YYYY-MM-DD (Y=year, M=month, D=day)
-E show examples
print <<EOD;
l *.c # list files ending with .c
l -la # list all files in long format
-l -Rrs # list files recursive reverse sorted by size
+l -Rrs # list files recursive reverse sorted by size
l -*f mus # list files native names with format: mode+user+size
l -D 10d: # list files newer than 10 days
ll # list files long format (equal to: l -l)
projects / fex.git / blobdiff