搜索目录

#!/usr/bin/perl

use strict;
use warnings;

my $dir = "c:\\testfile";
$dir =~ s/\\/\//g;
process_dir($dir);

sub process_dir {
    my $dir = shift;
    opendir my $dh, $dir or die "Can't open directory $dir: $!\n";
    while (my $exist = readdir $dh) {
        next if $exist eq '.' or $exist eq '..';
        $exist = "$dir/$exist";
        if ( -f $exist) {
            my $path = $exist;
            $path =~ s/^.\///;
#            $path =~ s/.*\/(.*)$/g;

            print "directory: $dir, file: $path\n";
        } elsif (-d $exist) {
            process_dir($exist);
        }
    }
    closedir $dh;
}