Pytanie : programować powrót fałszywy brakujący kartoteka po znajdować the kartoteka

I mieć krótki pismo który czytać od lista, kopiować the kartoteka od the lista, robić txt kartoteka the odbity kartoteka, robić tekst kartoteka the kartoteka ono patrzeć dla i robić txt kartoteka the kartoteka ono móc. The problem być że ono spisywać niektóre kartoteka jako chybianie nawet jeśli ono zakładać i kopiować. I móc the błąd w ten sposób jeżeli błąd wskazywać błąd to, ono być wielki.
I zawierać the kod i files.

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

           
           
          #! /usr/bin/perl

używać surowy;
używać ostrzeżenie;
use Kartoteka:: Znalezisko;
use Kartoteka:: Kopia;
use Dane:: Dumper;


mój $SrcRootDir = "G: /data/";
mój $SrcRootDir_old = "G: /data/old/";
mój $DestRootDir = "Z: /transfer";
mój $transfer = "Z: /transfer/transfer_list.txt";
mój %file;
mój %file2;
mój %file3;
mój ($file1, $file2);


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

otwarty (SZLAKOWY, ">$Track");
otwierać (MISSING_FILES, ">$Missing_files");
otwierać (COPIED_FILES, ">$Copied_files");
drukować COPIED_FILES "kartoteka od lista \ n";
drukować COPIED_FILES "\ n";


otwierać (W, "<", $transfer) lub kostka do gry "Móc $transfer: $! \ n";
podczas gdy () {
      chomp;
      # mój ($filename) = ($ _ =~/^ (. +) \. +$/);
       mój ($filename) = ($ _ =~/^ (. +) (\ _.+)? $/);
      $file {lc ($filename)}++;
druk "kartoteka $filename \ n";
}
zakończenie (WEWNĄTRZ);


znalezisko (\ &wanted, $SrcRootDir);


zakończenie (ŚLAD);
zakończenie (COPIED_FILES);

druk MISSING_FILES "Te być the rysunek który móc znajdować \ n";
druk MISSING_FILES "Zadawalać czek dla błędny rysunkowy liczba w lista \ n";
druk MISSING_FILES "\ n";


mój %file1;
otwierać (FILE1, "T:\Team\transfer\tracking.txt ") lub kostka do gry "Móc $Track: $! \ n";
podczas gdy () {
 $file1 {lc $_} =1;
}
zakończenie (FILE1);

otwierać (FILE2, "T: /team/transfer/transfer_list.txt ") lub umierać "Móc $transfer: $! \ n";
podczas gdy () {
  jeśli ($file1 {lc $_}) {
    druk $_;
druk MISSING_FILES "$_ \ n";
  }
}
zakończenie (FILE2);

zakończenie (MISSING_FILES);

sen (10); 

wyjście;

okręt podwodny chcieć {

jeżeli ($File:: Znalezisko:: dir = /old/) 
	{$File:: Znalezisko:: prune = (1);
	powrót;
	}

# mój ($filename) = ($ _ =~/^ (. +) (\. +)? $/);
 mój ($filename) = ($ _ =~/^ (. +) \ _.+$/);
# druk "kartoteka $filename \ n";
    wracać jeśli istnieć $file {lc ($filename)};
   drukować "$File:: Znalezisko:: imię $DestRootDir \ n";
# druk ŚLAD "$File:: Znalezisko:: imię \ n"; 
druk ŚLAD "$filename \ n";
druk COPIED_FILES "$filename \ n";



    # kopia ($File:: Znalezisko:: imię, "$DestRootDir/$_") lub ostrzegać "Móc $_: $! \ n";
kopia ($File:: Znalezisko:: imię, "$DestRootDir/$_") lub drukować ŚLAD "Móc $_: $! \ n";

}

           
         

Attachments:

Copied-Files.txt (87 bajt) (Kartoteka Typ Szczegół)

copied files

Missing-Files.txt (136 bajt) (Kartoteka Typ Szczegół)

missing files

tracking.txt (60 bajt) (Kartoteka Typ Szczegół)

tracking file

transfer-list.txt (58 bajt) (Kartoteka Typ Szczegół)

original list