（已解决）请问怎样检查是否含有某些文件夹或者文件

greaterwei

有文件夹列表 folder.dat， 内容为
1
2
...
1111
1112

需要检查文件夹/home  中是否含有上述子文件夹，同时输出新文件夹列表 report_folder.dat , 其中含有的文件夹名后"+1",不含的"+0"

若/home中含有以下子文件夹：
1
...
1112


则report_folder.dat的内容应为：
1+1
2+0
...
1111+0
1112+1




如果以上都为文件，即检查/home 文件夹中是否含有相应的文件，输出规则不变，又该怎么办呢？ 谢谢！

关阴月飞

dir:
find  /home  -mindepth 1 -type d -exec basename {} \;|awk 'FNR==NR{a[$0]=1;next}{print $0"+"a[$0]+0}' -  folder.dat  >report_folder.dat

file:
find /home  -mindepth 1 -type f -exec basename {} \;|awk 'FNR==NR{a[$0]=1;next}{print $0"+"a[$0]+0}' -  folder.dat >report_folder.dat

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. chomp(my $para = pop);
   
6. my %hParas = ('files' => 0, 'folders' => 0);
   
7. $hParas{$para}++;
   
8. chdir('!yourWorkPath!');
   
9. foreach(glob('*')){
   
10.     if(-d){
    
11.         print("$_+$hParas{'folders'}\n");
    
12.     }elsif(-f){
    
13.         print("$_+$hParas{'files'}\n");
    
14.     }
    
15. }
    

复制代码

ls -l yourWorkPath/
total 0
-rw-rw-rw-  1 doAgain 0 0 2017-07-06 09:30 1
-rw-rw-rw-  1 doAgain 0 0 2017-07-06 09:30 2
-rw-rw-rw-  1 doAgain 0 0 2017-07-06 09:30 3
-rw-rw-rw-  1 doAgain 0 0 2017-07-06 09:30 4
-rw-rw-rw-  1 doAgain 0 0 2017-07-06 09:30 5
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir1
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir2
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir3
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir4
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir5
drw-rw-rw-  2 doAgain 0 0 2017-07-06 09:31 dir6

perl abc.pl files
--------------------------------
1+1
2+1
3+1
4+1
5+1
dir1+0
dir2+0
dir3+0
dir4+0
dir5+0
dir6+0

perl abc.pl folders
--------------------------------
1+0
2+0
3+0
4+0
5+0
dir1+1
dir2+1
dir3+1
dir4+1
dir5+1
dir6+1

greaterwei

回复 3# sunzhiguolu

谢谢前辈，运行成功！

greaterwei

回复 2# 关阴月飞

完美运行，十分感谢！