Fråga : den falska saknaden för programretur sparar, efter det fyndet har sparat

Jag har en kort stavelse att skriva, som läser från en lista, kopierar sparar från lista, gör en txt att spara av kopierad sparar, gör en text att spara av sparar den söker efter och gör en txt att spara av sparar den kunde inte finna. Problemet är att det listar något sparar som saknad, även om det grundar dem och som kopierar dem. Jag kan inte se felet så, om skulle någon pekar denna ut, det skulle är stor.
I har inklusive kodifiera och files. > för

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:

" codeBody " " ># för class= " för $Track”); öppna (MISSING_FILES, ”>$Missing_files”); öppna (COPIED_FILES, ”>$Copied_files”); trycket COPIED_FILES ”som får, sparar från listar \ n”; ”för tryck COPIED_FILES \ n”; öppna (I, ”<”, $transfer), då matrisen ”kunde inte öppna $transfer: $! \ n”; stunder () { segrare; nr. mitt ($filename) = ($-_- =~/^ (. +) \. +$/); mitt ($filename) = ($-_- =~/^ (. +) (\ _.+)? $/); $file {lc ($filename)}++; trycket ”som får, sparar $filename \ n”; } nära (IN); fynd (\ &wanted, $SrcRootDir); nära (SPÅRA); nära (COPIED_FILES); trycket MISSING_FILES ”dessa är teckningarna som inte kunde finnas \ n”; trycket MISSING_FILES ”behar kontrollen för oriktigt dra numrerar in listar \ n”; ”för tryck MISSING_FILES \ n”; min %file1; öppna (FILE1, ”T:\Team\transfer\tracking.txt”), då matrisen ”kunde inte öppna $Track: $! \ n”; stunder () { $file1 {lc $_} =1; } nära (FILE1); öppna (FILE2, ”T: /team/transfer/transfer_list.txt”) eller dör ”kunde inte öppna $transfer: $! \ n”; stunder () { om inte ($file1 {lc $_}) { tryck $_; tryck MISSING_FILES ”$_ \ n”; } } nära (FILE2); nära (MISSING_FILES); sömn (10); gå ut; sub önskat { om ($File:: Fynd:: dir = /old/) {$File:: Fynd:: katrinplommon = 1; retur; } nr. mitt ($filename) = ($-_- =~/^ (. +) (\. +)? $/); mitt ($filename) = ($-_- =~/^ (. +) \ _.+$/); nr. trycket ”som får, sparar $filename \ n”; gå tillbaka, om inte finns $file {lc ($filename)}; skriv ut ”kopiera $File:: Fynd:: namnge till $DestRootDir \ n”; nr. trycket SPÅRAR ”$File:: Fynd:: namnger \ n”; trycket SPÅRAR ”$filename \ n”; tryck COPIED_FILES ”$filename \ n”; nr. kopiera ($File:: Fynd:: namnge, ”$DestRootDir/$_”) eller varnar att ”inte kunde kopiera $_: $! \ n”; kopiera ($File:: Fynd:: namnge ”$DestRootDir/$_”), eller trycket SPÅRAR ”kunde inte kopiera $_: $! \ n”; } Attachments: för >