while(){
chomp();
($a,$b)=split(/\|/);
print<<END;
robocopy $a $b /mt:8 /w:0 /e /v /mir /XF “*.m*”
END
}
__DATA__
A:\|B:\
c:\0x0\v5|D:\0x0\v5
D:\0x0\v5|c:\0x0\v5
f:\00-PATV-2022 e:\00-PATV-2022
robocopy A:\ B:\ /mt:8 /w:0 /e /v /mir /XF “*.m*”
robocopy c:\0x0\v5 D:\0x0\v5 /mt:8 /w:0 /e /v /mir /XF “*.m*”
robocopy D:\0x0\v5 c:\0x0\v5 /mt:8 /w:0 /e /v /mir /XF “*.m*”
robocopy f:\00-PATV-2022 e:\00-PATV-2022 /mt:8 /w:0 /e /v /mir /XF “*.m*”