![]()
Custom Search
|
#!/usr/bin/perl -w # # usage: # perl p-askforuser.pl # this will find all files owned by the given user # and save the data to a file named for the user # into the current working directory # written March 2001 by kevin krkosska # # this makes the list of users print " User name: "; chomp ($luser = <STDIN>); `find / -user $luser > $luser`;
![]()
Custom Search
|