溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×

忘記密碼？

登錄注冊×

獲取短信驗證碼

其他方式登錄

點擊登錄注冊即表示同意《億速云用戶服務條款》

用戶登錄×

賬戶密碼登錄

請使用微信掃描上方二維碼

使用幫助

請求超時！

請點擊重新獲取二維碼

Perl生成文件或者文件夾的權限、屬主

發布時間：2020-08-07 03:29:53 來源：ITPUB博客閱讀：260 作者：colin_cwc 欄目：建站服務器

#!/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";

}

向AI問一下細節

推薦閱讀：

免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。

上一篇新聞：
Oracle之PL/SQL編程_流程控制語句
下一篇新聞：
Linux新手入門怎么學?如何學習好Linux?

猜你喜歡

AI
助
手

產品服務

地區劃分

專題活動

幫助支持

關于我們

售后咨詢

7*24小時在線電話：400-100-2938

7*24小時在線 QQ：800811969

關注億速云

億速云公眾號

手機網站二維碼

亚洲午夜精品一区二区_中文无码日韩欧免_久久香蕉精品视频_欧美主播一区二区三区美女