1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97:
$Track”); abrir (MISSING_FILES, “>$Missing_files”); abrir (COPIED_FILES, “>$Copied_files”); imprimir COPIED_FILES “que começ limas da lista \ n”; imprimir “de COPIED_FILES \ n”; abrir (EM, “<”, $transfer) ou morrer “não poderia abrir $transfer: $! \ n”; quando () { chomp; # meu ($filename) = (=~/^ do _ de $ (. +) \. +$/); meu ($filename) = (=~/^ do _ de $ (. +) (\ _.+)? $); $file {lc ($filename)}++; cópia “que começ as limas $filename \ n”; } fim (DENTRO); achado (\ &wanted, $SrcRootDir); fim (TRILHA); fim (COPIED_FILES); a cópia MISSING_FILES “estes é os desenhos que não poderiam ser encontrados \ n”; a cópia MISSING_FILES “verific por favor para ver se há números de desenho incorretos na lista \ n”; “da cópia MISSING_FILES \ n”; meu %file1; abrir (FILE1, “T:\Team\transfer\tracking.txt ") ou morrer “não poderia abrir $Track: $! \ n”; quando () { $file1 {lc $_} =1; } fim (FILE1); abrir (FILE2, “T: /team/transfer/transfer_list.txt ") ou morrem “não poderiam abrir $transfer: $! \ n”; quando () { a menos que ($file1 {lc $_}) { cópia $_; cópia MISSING_FILES “$_ \ n”; } } fim (FILE2); fim (MISSING_FILES); sono (10); saída; o submarino quis { se ($File:: Achado:: dir = /old/) {$File:: Achado:: ameixa seca = 1; retorno; } # meu ($filename) = (=~/^ do _ de $ (. +) (\. +)? $); meu ($filename) = (=~/^ do _ de $ (. +) \ _.+$/); # cópia “que começ a lima $filename \ n”; retornar a menos que existir $file {lc ($filename)}; imprimir “$File de copi:: Achado:: nome a $DestRootDir \ n”; # TRILHA “$File da cópia:: Achado:: nome \ n”; TRILHA “$filename \ n” da cópia; cópia COPIED_FILES “$filename \ n”; # cópia ($File:: Achado:: o nome, “$DestRootDir/$_”) ou adverte que “não poderia copiar $_: $! \ n”; copiar ($File:: Achado:: o nome, “$DestRootDir/$_”) ou imprime a TRILHA “não poderia copiar $_: $! \ n”; }