用md5，同步目录结构

[eexpress]

A机器A目录 大量修改了目录名和文件名
准备到B机器B目录，同步结构
文件类型其实并不适合使用版本控制。
准备做一个脚本，用md5判断，搬移目录和文件。

举例

代码： 全选

● md5sum bin/*.pl|head |perl -e 'use Data::Dumper; %h=map{split /\ \ /} <>; print Dumper \%h;'
$VAR1 = {
          'b247e006be6dcedc3ca5511674f2e47a' => 'bin/monitor-clip.pl
',
          '28376d6f0811f3b8ee848c807bb9969a' => 'bin/flash-down.pl
',
          '8ceefc57ce9ac470bb1dec5cdaaf6ce2' => 'bin/mailto-attach.pl
',
          'ea7d5d54782cc743efb467796519b444' => 'bin/show_png.pl
',
          '00c0c8224b81e3e890fc0052f41b7b95' => 'bin/cflow2dot.pl
',
          '28c1dfb1f8119d3ab50f78130f1b402b' => 'bin/grepmulticolor.pl
',
          '776d480d01dd5fa53407f3566e147047' => 'bin/clip.pl
',
          '7269ed0cd3f921d6735bfb0c4d413747' => 'bin/down-lrc.pl
',
          '69293b7d6c8655c2127018ebd29d44c6' => 'bin/ip-t-翻译.pl
',
          'ee00b65887fc33b597e85b7057f04c96' => 'bin/attach.pl
'
        };

回家写。

[fanhe]

md5 碰撞了怎么办

[lm789632]

md5 碰撞了怎么办

md5碰撞？很常见吗？

[qy117121]

md5 碰撞了怎么办

md5碰撞？很常见吗？

[eexpress]

我等他碰撞，然后再来报告。

[sk1418]

我没明白这是要实现什么功能呢？
B机器的B目录最终要和A机器的A目录内容一样？那你copy过去不就得了？
还是我哪理解错了？

[eexpress]

代码： 全选

#!/usr/bin/perl

use feature 'say';
open LOCAL,"md5-locate"; open REMOTE,"md5-remote";
%l=map{split /\ \ /} <LOCAL>; %r=map{split /\ \ /} <REMOTE>;
for (keys %r){
chomp $l{$_}; chomp $r{$_};
say "====\t$_\n$l{$_}\t->\t$r{$_}" if $l{$_};
}
close LOCAL; close REMOTE;

nnnd 居然只有2成内容可操作的。看来增加蛮多文件了。

sk1418, 大目录，cp你不觉得麻烦嘛。一台机器整理好了，另外一台同步修改下而已。原本2目录是差不多内容的，不需要拷贝。

[ChenFengyuan]

到底神要shell实现还是perl

[ChenFengyuan]

两边find + sha512sum
然后比较不同的,从A中提取文件(保持目录结构)
然后复制过去.

[eexpress]

那句看出是shell？做md5的？看7楼的嘛。实际比较的，多简单。

就你天天sha512sum

我输入md5<tab>习惯了。

[lexdene]

围观各路大牛。