Questione : le lime mancanti false di ritorni di programma dopo trovano le lime

Ho un breve scritto che legge da una lista, copia le lime dalla lista, fa una lima del txt delle lime copiate, fa una lima di testo delle lime che sta cercando e fa una lima del txt delle lime non potrebbe trovare. Il problema è che elenca alcune lime poichè mancando anche se le ha trovate e le ha copiate. Non posso vedere l'errore così se qualcuno abbia indicato questo fuori, esso sarei grande. il
I ha incluso il codice e il files. class= > " libero " del

> " del codeSnippet " del class= del

class= " lineNumbers " del

class= del

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:

># notpretty " del class= " del id= " codeSnippet846367 del

$Track„);
aprir (MISSING_FILES, “>$Missing_files„);
aprir (COPIED_FILES, “>$Copied_files„);
stampare COPIED_FILES “che ottiene le lime dalla lista \ n„;
stampare “\ n„ di COPIED_FILES;


aprir (IN, “<„, $transfer) o morire “non potrebbe aprire $transfer: $! \ n„;
mentre () {
      chomp;
      # mio ($filename) = (=~/^ del _ di $ (. +) \. +$/);
       mio ($filename) = (=~/^ del _ di $ (. +) (\ _.+)? $);
      $file {lc ($filename)}++;
stampa “che ottiene le lime $filename \ n„;
}
fine (DENTRO);


ritrovamento (\ &wanted, $SrcRootDir);


fine (PISTA);
fine (COPIED_FILES);

la stampa MISSING_FILES “questi è le illustrazioni che non potrebbero essere trovate \ n„;
la stampa MISSING_FILES “controlla prego per vedere se c'è numeri di illustrazione errati nella lista \ n„;
“\ n„ della stampa MISSING_FILES;


il mio %file1;
aprir (FILE1, “T:\Team\transfer\tracking.txt ") o morire “non potrebbe aprire $Track: $! \ n„;
mentre () {
 $file1 {lc $_} =1;
}
fine (FILE1);

aprir (FILE2, “T: /team/transfer/transfer_list.txt ") o muoiono “non potrebbero aprire $transfer: $! \ n„;
mentre () {
  a meno che ($file1 {lc $_}) {
    stampa $_;
stampa MISSING_FILES “$_ \ n„;
  }
}
fine (FILE2);

fine (MISSING_FILES);

sonno (10); 

uscita;

il sommergibile ha voluto {

se ($File:: Ritrovamento:: dir = /old/) 
	{$File:: Ritrovamento:: prugna = 1;
	ritorno;
	}

# mio ($filename) = (=~/^ del _ di $ (. +) (\. +)? $);
 mio ($filename) = (=~/^ del _ di $ (. +) \ _.+$/);
# stampa “che ottiene lima $filename \ n„;
    rinviare a meno che esista $file {lc ($filename)};
   stampare “$File di copiatura:: Ritrovamento:: nome a $DestRootDir \ a n„;
# PISTA “$File della stampa:: Ritrovamento:: nome \ n„; 
PISTA “$filename \ n„ della stampa;
stampa COPIED_FILES “$filename \ n„;



    # copia ($File:: Ritrovamento:: il nome, “$DestRootDir/$_„) o avverte che “non potrebbe copiare $_: $! \ n„;
copiare ($File:: Ritrovamento:: il nome, “$DestRootDir/$_„) o stampa la PISTA “non potrebbe copiare $_: $! \ n„;

}

class= " lastRow del

>Attachments " di nome " del class= del class= " valore " del

Questione : le lime mancanti false di ritorni di programma dopo trovano le lime

Risposta : le lime mancanti false di ritorni di programma dopo trovano le lime

DoCmd.OpenForm “frm_CampaignDetail„, acNormal, “CampaignID =„ & Me.CampaignID, acDialog