Return to Snippet

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


Initial Code
#!/bin/sh

perl -MFile::Find -le 'find(\&w,".");while(($n, $p)=each % file){if(@{$p}>1){print join(" ",@{$p})}} sub w{push@{$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
Bash