レス数が1000を超えています。残念ながら全部は表示しません。

UNIX超初心者専用スレッド

642 ：名無しさん@XEｍａｃｓ ：02/02/11 03:06

>630
Perl の File::Find で済ますのも手だよん。

#!/usr/bin/perl -w
use File::Find;
my $uid_s = $ARGV[0];my $uid_d = $ARGV[1];
find(\&wanted,'./');
sub wanted {
my @l = stat($_);
print "$_,$uid_s -> $uid_d,$l[5]\n" if ($l[4] == $uid_s);
# chown($uid_d,$l[5],$_) if ($l[4] == $uid_s);
}

。。。長いか?

read.cgi ver5.26+ (01/10/21-)