Hledám snadný způsob (příkaz nebo série příkazů, pravděpodobně zahrnující find ) najít duplicitní soubory ve dvou adresářích a nahradit soubory v jednom adresáři pevnými odkazy na soubory v druhém adresáři.
Zde je situace:Jedná se o souborový server, na kterém více lidí ukládá zvukové soubory, přičemž každý uživatel má svou vlastní složku. Někdy má více lidí kopie přesně stejných zvukových souborů. Právě teď jsou to duplikáty. Chtěl bych to udělat tak, aby to byly pevné odkazy, abych ušetřil místo na disku.
Přijatá odpověď:
Na http://cpansearch.perl.org/src/ANDK/Perl-Repository-APC-2.002/eg/trimtrees.pl je perl skript, který dělá přesně to, co chcete:
Projděte všechny adresáře uvedené na příkazovém řádku
, vypočítejte kontrolní součty MD5
a najděte soubory s identickým MD5. POKUD
jsou stejné, proveďte skutečné srovnání
pokud jsou skutečně stejné, nahraďte
druhý ze dvou souborů pevným odkazem
na první.