Frage : falsche fehlende Akten der Programmrückkehr nach finden die Akten

Ich habe einen kurzen Index, der von einer Liste, kopiert die Akten von der Liste, bildet eine txt Akte von den kopierten Akten, bildet eine Textdatei von den Akten, die es sucht und bildet eine txt Akte von den Akten liest, es nicht finden könnte. Das Problem ist, dass es einige Akten verzeichnet, da verfehlend, obwohl es sie fand und sie kopierte. Ich kann die Störung nicht so sehen, wenn jemand dieses heraus zeigen würde, es würde sein groß.
I haben den Code und das files. umfaßt

         
           
             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:
6:
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:

           
           
          #! /usr/bin/perl

strenges verwenden;
Warnungen verwenden;
Gebrauch Akte:: Entdeckung;
Gebrauch Akte:: Kopie;
Gebrauch Daten:: Kipper;


mein $SrcRootDir = „G: /data/“;
mein $SrcRootDir_old = „G: /data/old/“;
mein $DestRootDir = „Z: /transfer“;
mein $transfer = „Z: /transfer/transfer_list.txt“;
mein %file;
mein %file2;
mein %file3;
mein ($file1, $file2);


mein $Track='Z:\transfer\tracking.txt';
mein $old_files='Z:\transfer\Old_Files.txt';
mein $Missing_files='Z:\transfer\Missing_Files.txt';
mein Copied_files='Z:\transfer\Copied_Files.txt';

öffnen (SCHIENE, „>$Track“);
öffnen (MISSING_FILES, „>$Missing_files“);
öffnen (COPIED_FILES, „>$Copied_files“);
COPIED_FILES drucken „, das Akten von Liste \ n“ erhält;
COPIED_FILES „\ n“ drucken;


öffnen (IN, „<“, $transfer) oder sterben „könnte $transfer nicht öffnen: $! \ n“;
während () {
      chomp;
      # mein ($filename) = ($ _ =~/^ (. +) \. +$/);
       mein ($filename) = ($ _ =~/^ (. +) (\ _.+)? $);
      $file {lc ($filename)}++;
Druck „, der Akten $filename \ n“ erhält;
}
Abschluss (INNEN);


Entdeckung (\, $SrcRootDir &wanted);


Abschluss (SCHIENE);
Abschluss (COPIED_FILES);

Druck MISSING_FILES „diese sind die Zeichnungen, die nicht gefunden werden konnten \ n“;
Druck MISSING_FILES „überprüfen bitte auf falschen Zeichnungszahlen in Liste \ n“;
„des Druckes MISSING_FILES \ n“;


mein %file1;
öffnen (FILE1, „T:\Team\transfer\tracking.txt ") oder sterben „könnte $Track nicht öffnen: $! \ n“;
während () {
 $file1 {lc $_} =1;
}
Abschluss (FILE1);

öffnen (FILE2, „T: /team/transfer/transfer_list.txt ") oder sterben „konnten $transfer nicht öffnen: $! \ n“;
während () {
  es sei denn ($file1 {lc $_}) {
    Druck $_;
Druck MISSING_FILES „$_ \ n“;
  }
}
Abschluss (FILE2);

Abschluss (MISSING_FILES);

Schlaf (10); 

Ausgang;

Unterseeboot wünschte {

wenn ($File:: Entdeckung:: dir = /old/) 
	{$File:: Entdeckung:: Pflaume = 1;
	Rückkehr;
	}

# mein ($filename) = ($ _ =~/^ (. +) (\. +)? $);
 mein ($filename) = ($ _ =~/^ (. +) \ _.+$/);
# Druck „, der Akte $filename \ n“ erhält;
    zurückgehen, es sei denn $file {lc ($filename) existiert};
   „kopieren$File drucken:: Entdeckung:: Name zu $DestRootDir \ zu n“;
# Druck SCHIENE „$File:: Entdeckung:: Name \ n“; 
Druck SCHIENE „$filename \ n“;
Druck COPIED_FILES „$filename \ n“;



    # Kopie ($File:: Entdeckung:: Name, „$DestRootDir/$_“) oder warnen, dass „$_ nicht kopieren könnte: $! \ n“;
kopieren ($File:: Entdeckung:: Name, „$DestRootDir/$_“) oder drucken SCHIENE „könnte $_ nicht kopieren: $! \ n“;

}

           
         

Attachments:

Copied-Files.txt (87 Bytes) (Akten-Art Details)

copied files

Missing-Files.txt (136 Bytes) (Akten-Art Details)

missing files

tracking.txt (60 Bytes) (Akten-Art Details)

tracking file

transfer-list.txt (58 Bytes) (Akten-Art Details)

original list