#!/u

成都創(chuàng)新互聯(lián)公司是一家專業(yè)的成都網(wǎng)站建設(shè)公司，我們專注網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、網(wǎng)絡(luò)營(yíng)銷、企業(yè)網(wǎng)站建設(shè)，買友情鏈接，廣告投放平臺(tái)為企業(yè)客戶提供一站式建站解決方案，能帶給客戶新的互聯(lián)網(wǎng)理念。從網(wǎng)站結(jié)構(gòu)的規(guī)劃UI設(shè)計(jì)到用戶體驗(yàn)提高，創(chuàng)新互聯(lián)力求做到盡善盡美。sr/bin/perl
use strict;
use warnings;
##生成目錄放到一個(gè)臨時(shí)文件，然后根據(jù)這個(gè)文件生成權(quán)限。
##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";
}

標(biāo)題名稱：Perl生成文件或者文件夾的權(quán)限、屬主-創(chuàng)新互聯(lián)
文章鏈接：http://www.chinadenli.net/article10/djohgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、ChatGPT、品牌網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計(jì)、電子商務(wù)、網(wǎng)站導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)