Return to Snippet

Revision: 69418
at June 16, 2015 12:24 by brm

Initial Code

perl -MFile::Find -le 'find(\&w,".");while(($n, $p)=each % file){if(@{$p}>1){print join(" ",@{$p})}} sub w{[email protected]{$file{$_}},$file::Find::Name;}'

Initial URL

Initial Description
Perl 1 liner to find file with same name as it parent directory

Initial Title
Find file with same name in parent directory

Initial Tags

Initial Language