加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 大数据 > 正文

来看一道Perl面试题

发布时间：2020-12-16 00:42:14 所属栏目：大数据 来源：网络整理
导读：据说这道题是 QQ 的，看下怎么解答为好 题目： 把当前目录下（包含子目录）下所有后缀为.sh的文件后缀变更为.shell（用PERL完成） 一、先人为的制造一些.sh文件 这个用shell吧，方便 for?i?in?`seq?100`;do?touch?$i.sh;done? for?i?in?testa?testb?testc?te

据说这道题是QQ的，看下怎么解答为好

题目：

把当前目录下（包含子目录）下所有后缀为.sh的文件后缀变更为.shell（用PERL完成）

一、先人为的制造一些.sh文件

这个用shell吧，方便

 
 
    

  1. for?i?in?`seq?100`;do?touch?$i.sh;done?
    2. 
  
  
  2. for?i?in?testa?testb?testc?testd?teste?testf testg;do?touch?/home/test/$i.sh;done?
    3.

好，生成文件，OK，部分图

 
 
    

  1. [root@test?~]#?ll?/home/?
    2. 
  
  
  2. total?404?
    3. 
  
  
  3. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?100.sh?
    4. 
  
  
  4. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?10.sh?
    5. 
  
  
  5. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?11.sh?
    6. 
  
  
  6. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?12.sh?
    7. 
  
  
  7. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?13.sh?
    8. 
  
  
  8. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?14.sh?
    9. 
  
  
  9. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?15.sh?
    10. 
  
  
  10. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?16.sh?
    11. 
  
  
  11. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?17.sh?
    12. 
  
  
  12. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?18.sh?
    13. 
  
  
  13. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?19.sh?
    14. 
  
  
  14. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?1.sh?
    15. 
  
  
  15. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?20.sh?
    16. 
  
  
  16. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?21.sh?
    17. 
  
  
  17. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?22.sh?
    18. 
  
  
  18. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?23.sh?
    19. 
  
  
  19. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?24.sh?
    20. 
  
  
  20. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?25.sh?
    21. 
  
  
  21. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?26.sh?
    22. 
  
  
  22. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?27.sh?
    23. 
  
  
  23. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?28.sh?
    24. 
  
  
  24. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?29.sh?
    25. 
  
  
  25. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?2.sh?
    26. 
  
  
  26. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?30.sh?
    27. 
  
  
  27. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?31.sh?
    28. 
  
  
  28. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?32.sh?
    29. 
  
  
  29. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?33.sh?
    30. 
  
  
  30. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?34.sh?
    31. 
  
  
  31. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?35.sh?
    32. 
  
  
  32. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?36.sh?
    33. 
  
  
  33. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?37.sh?
    34. 
  
  
  34. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?38.sh?
    35. 
  
  
  35. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?39.sh?
    36. 
  
  
  36. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?3.sh?
    37. 
  
  
  37. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?40.sh?
    38. 
  
  
  38. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?41.sh?
    39. 
  
  
  39. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?42.sh?
    40. 
  
  
  40. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?43.sh?
    41. 
  
  
  41. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?44.sh?
    42. 
  
  
  42. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?45.sh?
    43. 
  
  
  43. drwxr-xr-x?2?root?root?4096?Mar??2?09:20?46.sh?
    44.

/home/test下

 
 
    

  1. [root@test?~]#?ll?/home/test/?
    2. 
  
  
  2. total?0?
    3. 
  
  
  3. -rw-r--r--?1?root?root?0?Mar??2?09:48?testa.sh
    4. 
  
  
  4. -rw-r--r--?1?root?root?0?Mar??2?09:48?testb.sh 
    5. 
  
  
  5. -rw-r--r--?1?root?root?0?Mar??2?09:48?testc.sh
    6. 
  
  
  6. -rw-r--r--?1?root?root?0?Mar??2?09:48?testd.sh
    7. 
  
  
  7. -rw-r--r--?1?root?root?0?Mar??2?09:48?teste.sh
    8. 
  
  
  8. -rw-r--r--?1?root?root?0?Mar??2?09:48?testf.sh
    9. 
  
  
  9. -rw-r--r--?1?root?root?0?Mar??2?09:48?testg.sh
    10.

写perl 脚本，记得perl有一个模块叫File::Find,可以完成这个效果，试下

code:

 
 
    

  1. #!/usr/bin/perl?-w?
    2. 
  
  
  2. ?
    3. 
  
  
  3. use?strict;?
    4. 
  
  
  4. use?File::Find;?
    5. 
  
  
  5. ?
    6. 
  
  
  6. sub?wanted?{?
    7. 
  
  
  7. ?
    8. 
  
  
  8. ????if?(-f?$File::Find::name)?{?
    9. 
  
  
  9. ?
    10. 
  
  
  10. ????????if?($File::Find::name?=~?m/.sh$/)?{?
    11. 
  
  
  11. ????????????#print?$File::Find::name,"n";?
    12. 
  
  
  12. ????????????#print?$_,"n";?
    13. 
  
  
  13. ????????????#print?$File::Find::dir,"n";?
    14. 
  
  
  14. ????????????$File::Find::name?=~?s/.sh$/.shell/g;?
    15. 
  
  
  15. ????????????rename?$_,$File::Find::name;?
    16. 
  
  
  16. ????????}?
    17. 
  
  
  17. ?
    18. 
  
  
  18. ????}?
    19. 
  
  
  19. ?
    20. 
  
  
  20. }?
    21. 
  
  
  21. ?
    22. 
  
  
  22. find(&;wanted,'/home');?
    23.

运行一下，测试，大喜，完成，部分图

 
 
    

  1. [root@WEB-01?~]#?ll?/home/?
    2. 
  
  
  2. total?4?
    3. 
  
  
  3. -rw-r--r--?1?root?root????0?Mar??2?09:47?100.shell?
    4. 
  
  
  4. -rw-r--r--?1?root?root????0?Mar??2?09:47?10.shell?
    5. 
  
  
  5. -rw-r--r--?1?root?root????0?Mar??2?09:47?11.shell?
    6. 
  
  
  6. -rw-r--r--?1?root?root????0?Mar??2?09:47?12.shell?
    7. 
  
  
  7. -rw-r--r--?1?root?root????0?Mar??2?09:47?13.shell?
    8. 
  
  
  8. -rw-r--r--?1?root?root????0?Mar??2?09:47?14.shell?
    9. 
  
  
  9. -rw-r--r--?1?root?root????0?Mar??2?09:47?15.shell?
    10. 
  
  
  10. -rw-r--r--?1?root?root????0?Mar??2?09:47?16.shell?
    11. 
  
  
  11. -rw-r--r--?1?root?root????0?Mar??2?09:47?17.shell?
    12. 
  
  
  12. -rw-r--r--?1?root?root????0?Mar??2?09:47?18.shell?
    13. 
  
  
  13. -rw-r--r--?1?root?root????0?Mar??2?09:47?19.shell?
    14. 
  
  
  14. -rw-r--r--?1?root?root????0?Mar??2?09:47?1.shell?
    15. 
  
  
  15. -rw-r--r--?1?root?root????0?Mar??2?09:47?20.shell?
    16. 
  
  
  16. -rw-r--r--?1?root?root????0?Mar??2?09:47?21.shell?
    17. 
  
  
  17. -rw-r--r--?1?root?root????0?Mar??2?09:47?22.shell?
    18. 
  
  
  18. -rw-r--r--?1?root?root????0?Mar??2?09:47?23.shell?
    19. 
  
  
  19. -rw-r--r--?1?root?root????0?Mar??2?09:47?24.shell?
    20. 
  
  
  20. -rw-r--r--?1?root?root????0?Mar??2?09:47?25.shell?
    21. 
  
  
  21. -rw-r--r--?1?root?root????0?Mar??2?09:47?26.shell?
    22. 
  
  
  22. -rw-r--r--?1?root?root????0?Mar??2?09:47?27.shell?
    23. 
  
  
  23. -rw-r--r--?1?root?root????0?Mar??2?09:47?28.shell?
    24. 
  
  
  24. -rw-r--r--?1?root?root????0?Mar??2?09:47?29.shell?
    25. 
  
  
  25. -rw-r--r--?1?root?root????0?Mar??2?09:47?2.shell?
    26. 
  
  
  26. -rw-r--r--?1?root?root????0?Mar??2?09:47?30.shell?
    27. 
  
  
  27. -rw-r--r--?1?root?root????0?Mar??2?09:47?31.shell?
    28. 
  
  
  28. -rw-r--r--?1?root?root????0?Mar??2?09:47?32.shell?
    29. 
  
  
  29. -rw-r--r--?1?root?root????0?Mar??2?09:47?33.shell?
    30. 
  
  
  30. -rw-r--r--?1?root?root????0?Mar??2?09:47?34.shell?
    31. 
  
  
  31. -rw-r--r--?1?root?root????0?Mar??2?09:47?35.shell?
    32. 
  
  
  32. -rw-r--r--?1?root?root????0?Mar??2?09:47?36.shell?
    33. 
  
  
  33. -rw-r--r--?1?root?root????0?Mar??2?09:47?37.shell?
    34. 
  
  
  34. -rw-r--r--?1?root?root????0?Mar??2?09:47?38.shell?
    35. 
  
  
  35. -rw-r--r--?1?root?root????0?Mar??2?09:47?39.shell?
    36.

/home/test下

 
 
    

  1. [root@WEB-01?~]#?ll?/home/test/?
    2. 
  
  
  2. total?0?
    3. 
  
  
  3. -rw-r--r--?1?root?root?0?Mar??2?09:48?testa.shell?
    4. 
  
  
  4. -rw-r--r--?1?root?root?0?Mar??2?09:48?testb.shell?
    5. 
  
  
  5. -rw-r--r--?1?root?root?0?Mar??2?09:48?testc.shell?
    6. 
  
  
  6. -rw-r--r--?1?root?root?0?Mar??2?09:48?testd.shell?
    7. 
  
  
  7. -rw-r--r--?1?root?root?0?Mar??2?09:48?teste.shell?
    8. 
  
  
  8. -rw-r--r--?1?root?root?0?Mar??2?09:48?testf.shell?
    9. 
  
  
  9. -rw-r--r--?1?root?root?0?Mar??2?09:48?testg.shell?
    10.

呵，perl 的File::Find模块有三个特殊的变量

 
 
    

  1. $_?????????????????包含目录中的当前文件名?
    2. 
  
  
  2. $File::Find::dir???包含当前目录名?
    3. 
  
  
  3. $File::Find::name??包含$File::Find::dir/$_?
    4.

其他的功能尚待研究ing.谢谢大家。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同