13 lines
173 B
Perl
13 lines
173 B
Perl
|
|
||
|
|
#Format
|
||
|
|
|
||
|
|
#chown(LIST);
|
||
|
|
#chown LIST;
|
||
|
|
|
||
|
|
|
||
|
|
$ uid=9496;
|
||
|
|
$ gid=40;
|
||
|
|
$number=chown($uid, $gid, 'foo.p', 'boo.p');
|
||
|
|
print "The number of files changed is $number\.n";
|
||
|
|
|
||
|
|
|