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生成文件或者文件夹的权限、属主-创新互联
文章地址:http://bzwzjz.com/article/djohgo.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 外贸网站设计方案 成都企业网站建设 自适应网站设计 定制级高端网站建设 广安网站设计 手机网站制作 成都网站建设 H5网站制作 成都商城网站建设 品牌网站建设 重庆网站建设 成都定制网站建设 网站制作报价 成都网站制作 成都网站制作 成都网站建设 定制网站建设多少钱 网站建设 网站制作 成都网站建设公司 成都网站建设公司 成都网站建设