删除一个文件夹中的所有.psd文件

Question

所以我是新来的Perl，我有一个文件夹，而不是包含子文件夹也包含子文件夹等，所有这一整个子文件夹和subsubfolders文件是说“.psd”

我试着研究如何删除它们，到目前为止这是我最好的刺（但我不确定它会做什么，我不想最终删除我的计算机上的每个.psd文件）。 ..我只是想删除在特定的文件夹我的桌面上的所有.PSD文件（或该文件夹的子文件夹等）

至今代码： unlink glob('*.psd');

Answer 1

脚本生成，并在几秒钟的帮助下修改：

find2perl -type f -name '*.psd' 

：

#!/usr/bin/perl 

use strict; 
use warnings; 
use autodie; # abort execution with warning when "unlink" fails. 
use File::Find; 

find { 
    # do the "wanted" action for each file/directory 
    wanted => sub { 
    unlink $_ if -f $_ and /\.psd$/; 
    # -f tests that the entry is a normal file 
    # The regex /\.psd$/ tests that the filename has a .psd ending 
    }, 
}, $ARGV[0]; # take the start directory from command line 

调用像

$ perl the-script.pl /place/where/you/want/to/start 

这将在指定的目录中递归地工作。