Perl生成文件或者文件夹的权限、属主-创新互联

#!/u

成都创新互联公司是一家专业的成都网站建设公司，我们专注网站设计、网站制作、网络营销、企业网站建设，买友情链接，广告投放平台为企业客户提供一站式建站解决方案，能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高，创新互联力求做到尽善尽美。sr/bin/perl
use strict;
use warnings;
##生成目录放到一个临时文件，然后根据这个文件生成权限。
##find /usr -type d -ls |awk '{print $11}' > test_dir.txt
my $filename = 'test_dir.txt';
open(my $fh, $filename) or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
chomp $row;
my $chmod_line=`stat $row|grep Uid|awk -F\'\(\' \'{print \$2\}\'|awk -F\/ \'{print \$1\}\'`;
my $user_name=`stat $row|grep Uid|awk -F'(' '{print \$3}'|awk -F\/ '{print \$2}'|awk -F')' '{print \$1}'`;
my $group_name=`stat $row|grep Uid|awk -F'/' '{print \$4}'|awk -F')' '{print \$1}'`;

chomp $chmod_line;
chomp $user_name;
chomp $group_name;

$user_name =~ s/^\s+|\s+$//g;
$group_name =~ s/^\s+|\s+$//g;
print "mkdir -p $row\n";
print "chmod $chmod_line $row \n";
print "chown $user_name:$group_name $row \n";
}

标题名称：Perl生成文件或者文件夹的权限、属主-创新互联
文章链接：https://www.cdcxhl.com/article10/djohgo.html

成都网站建设公司_创新互联，为您提供网站收录、ChatGPT、品牌网站建设、品牌网站设计、电子商务、网站导航

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容