[plug] Find similarly named files in directories
bernard at blackham.com.au
Sat Jan 13 11:52:03 WST 2007
Carl Gherardi wrote:
> On 1/12/07, Timothy White <weirdit at gmail.com> wrote:
>> Ok, so 2 simple sed's and I solve the space problem!! Not sure if
>> there are any other "bugs"
>> find| sed 's/\ /:::/g' |sed -r 's/.*\/(.*)/\0 \1/'|sort -i -k 2|uniq
>> -i --all-repeated=separate -f 1| sed 's/[^ ]*$//' | sed 's/:::/\ /g'
>> Rather simple, first check no file name as 3 :'s in a row, if it does,
>> find another "uniq" sequence to replace it with.
> Was a challenge for golf originally an i'm bored. 138 chars is benchmark.
Gah, I'll bite. 59 chars of perl, 74 chars altogether.
And the only thing it'll break on is files with new-lines in them (yes,
it's possible! The only things you can be guaranteed not to find in a
filename are / and the NULL byte).
It's an extra 2 chars for the case-insensitive version too ;)
I feel it could be a little shorter, but I can't see how at the moment.
More information about the plug