Perl生成文件或者文件夹的权限、属主
发表于:2024-10-24 作者:千家信息网编辑
千家信息网最后更新 2024年10月24日,#!/usr/bin/perluse strict;use warnings;##生成目录放到一个临时文件,然后根据这个文件生成权限。##find /usr -type d -ls |awk '{pr
千家信息网最后更新 2024年10月24日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";
}
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";
}
文件
生成
权限
目录
文件夹
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
湖北网络技术服务标准
扬州网络营销软件开发推荐咨询
服务器的域名是什么
网络安全密钥wifi
即开型彩票机网络安全措施介绍
如何入侵服务器
河南北斗时钟监控网关服务器
软件开发费用的入账
互联网和高科技企业
光遇哪些服务器互通
黑龙江网络安全宣传作品
数据提供给公共数据库
陀螺世界的服务器有什么用
晨光文学网络安全
网络技术更新到第几代了
崩坏三云玩是哪个服务器的
泰山杯网络安全大赛分数
网络安全运营平台
如何抓住网络安全发展
数据库的独立性体现在
数据库的同时删除2张表数据
学校招生报名软件开发
三级联动json数据库
软件开发公司 北京
csgo没法进去服务器
广东服务器续保价格
软件开发需要了解哪些软件
科技频道互联网栏目文章
重庆万盛蔬菜配送软件开发
嘉定区网络技术转让价钱