Revision: 69418
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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