Perl脚本：列出目录下所有的文件扩展名（后缀名）

 

#!/bin/perl
# Extension_filename_lister v0.1
# List all extension filenames without duplicate in a directory.

use strict;
use warnings;
use File::Find;

my %extname_list;

sub process_file {
    my $cur_file = $_; 

    # Ignore the directories . and ..
    if ($cur_file eq "." || $cur_file eq "..") {
        return;
    }

    (my $ext_name) = ($cur_file =~ /\.(\w+)$/);

    if (defined ($ext_name)) {
        $extname_list{$ext_name} = "Yes";
    }

#    print $cur_file, "\n";
#    print $ext_name, "\n";
}

my @DIRLIST = ("."); 
find(\&process_file, @DIRLIST);

print "Extension filenames:\n";
foreach my $item (keys %extname_list) {
    print $item, "\n";
}