曲径通幽论坛

标题: chown -- 更改文件隶属 | getpwnam -- 转换用户 | getgrnam -- 转换组 [打印本页]

作者: beyes 时间: 2011-10-12 13:54
标题: chown -- 更改文件隶属 | getpwnam -- 转换用户 | getgrnam -- 转换组
chown 函数用来更改文件的拥有者和所属组，使用 chown 时拥有者和组参数是以数字形式出现的，如：

# ls -l *.txt
-rw-r--r-- 1 root root 0 Oct 12 13:29 test1.txt
-rw-r--r-- 1 root root 0 Oct 12 13:29 test2.txt
-rw-r--r-- 1 root root 0 Oct 12 13:29 test3.txt
-rw-r--r-- 1 root root 0 Oct 12 13:29 test4.txt
-rw-r--r-- 1 root root 0 Oct 12 13:29 test5.txt

运行下面程序：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl



my $user = 500;

my $group = 500;



chown $user, $group, glob "*.txt";

处理结果：

ls -l *.txt
-rw-r--r-- 1 beyes beyes 0 Oct 12 13:29 test1.txt
-rw-r--r-- 1 beyes beyes 0 Oct 12 13:29 test2.txt
-rw-r--r-- 1 beyes beyes 0 Oct 12 13:29 test3.txt
-rw-r--r-- 1 beyes beyes 0 Oct 12 13:29 test4.txt
-rw-r--r-- 1 beyes beyes 0 Oct 12 13:29 test5.txt

记住数字毕竟不太容易，Perl 提供了 getpwnam 和 getgrnam 两个函数，它们分别用来将用户名和组名转换为相应的数字形式，这样就方便多了：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl





defined (my $user = getpwnam "beyes") or die "bad user";

defined (my $group = getgrnam "beyes") or die "bad group";



chown $user, $group, glob "*.txt";

欢迎光临曲径通幽论坛 (http://www.groad.net/bbs/)