Perl生成文件或者文件夹的权限、属主

#!/usr/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生成文件或者文件夹的权限、属主
网页地址：http://kswjz.com/article/jcoodh.html

扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流

Perl生成文件或者文件夹的权限、属主

扫二维码与项目经理沟通

其他资讯

行业动态

企业网站建设的重要性！

服务项目

网站建设

移动端/APP

微信/小程序

技术支持

其它服务

更多服务项目

联系吧在百度地图上找到我们

电话：13518219792

Perl生成文件或者文件夹的权限、属主

扫二维码与项目经理沟通

其他资讯

行业动态

企业网站建设的重要性！

服务项目

网站建设

移动端/APP

微信/小程序

技术支持

其它服务

更多服务项目

联系吧 在百度地图上找到我们

电话：13518219792

联系吧在百度地图上找到我们