[Solved] Search file in directory structure
From one File::Find hater to another: DirWalk.pm, inspired by the Python’s os.walk(). package DirWalk; use strict; use warnings; sub new { my ($class, @dirs) = @_; my @odirs = @dirs; @dirs = qw/./ unless @dirs; s!/+$!! for @dirs; s!/+\.$!! for @dirs; my $self = { _odirs => [@odirs], _dirs => [@dirs], _dhstack => [], _dnstack … Read more