perl
-
编辑 删除
Perl生成文件或者文件夹的权限、属主
#!/usr/bin/perluse strict;use warnings;##生成目录放到一个临时文件，然后根据这个文件生成权限。##find /usr -type d -ls |awk '{print $11}' > test_dir.txtmy $filename = 'test_dir.txt'; open(my $fh, $filename) or die "Could not open file '$filename' $!";while (my $row = ) {&nb...
-
编辑 删除
使用perl递归找出菜单路径
使用perl递归找出菜单路径
