Vraag : het programma keert valse ontbrekende dossiers na vondst terug de dossiers

Ik heb een kort manuscript dat van een lijst, kopi�ërt de dossiers van de lijst, maakt een txtdossier van de gekopi�ërde dossiers, maakt een tekstdossier van de dossiers leest het zoekt en een txtdossier van de dossiers maakt het niet kon vinden. Het probleem is dat het van sommige dossiers aangezien missend een lijst maakt alhoewel het hen vond en hen kopi�ërde. Ik kan niet de fout zo zien als iemand dit zou aanwijzen, zou het groot zijn.
I heeft de code en files. omvat

" codeBody " 


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

strikt gebruik;
gebruiks waarschuwingen;
gebruiks Dossier:: Vind;
gebruiks Dossier:: Exemplaar;
gebruiks Gegevens:: Kipwagen;


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


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

open (SPOOR, „>$Track“);
open (MISSING_FILES, „>$Missing_files“);
open (COPIED_FILES, „>$Copied_files“);
druk COPIED_FILES die „dossiers van lijst \ n“ krijgt;
druk COPIED_FILES „\ n“;


open (IN, „<“, $transfer) of matrijs „kon geen $transfer openen: $! \ n“;
terwijl () {
      chomp;
      # mijn ($filename) = ($ _ =~/^ (. +) \. +$/);
       mijn ($filename) = ($ _ =~/^ (. +) (\ _.+)? $);
      $file {lc ($filename)}++;
druk die „dossiers $filename \ n“ krijgt;
}
sluit (BINNEN);


vind (\ &wanted, $SrcRootDir);


sluit (SPOOR);
sluit (COPIED_FILES);

de druk MISSING_FILES „deze is de tekeningen die geen gevonden \ n“ konden zijn;
de druk MISSING_FILES „gelieve te controleren onjuiste tekeningsaantallen in lijst \ n“;
druk MISSING_FILES „\ n“;


mijn %file1;
open (FILE1, „T:\Team\transfer\tracking.txt“) of matrijs „kon geen $Track openen: $! \ n“;
terwijl () {
 $file1 {lc $_} =1;
}
sluit (FILE1);

open (FILE2, „T: /team/transfer/transfer_list.txt“) of sterf „kon geen $transfer openen: $! \ n“;
terwijl () {
  tenzij ($file1 {lc $_}) {
    druk $_;
druk MISSING_FILES „$_ \ n“;
  }
}
sluit (FILE2);

sluit (MISSING_FILES);

slaap (10); 

uitgang;

gewild sub {

als ($File:: Vind:: dir = /old/) 
	{$File:: Vind:: gedroogde pruim = 1;
	terugkeer;
	}

# mijn ($filename) = ($ _ =~/^ (. +) (\. +)? $);
 mijn ($filename) = ($ _ =~/^ (. +) \ _.+$/);
# druk die „dossier $filename \ n“ krijgt;
    keer terug tenzij $file {lc ($filename) bestaat};
   druk „het Kopiëren $File:: Vind:: naam aan $DestRootDir \ n“;
# drukSPOOR „$File:: Vind:: noem \ n“; 
druk SPOOR „$filename \ n“;
druk COPIED_FILES „$filename \ n“;



    # exemplaar ($File:: Vind:: de naam, „$DestRootDir/$_“) of waarschuwt „geen $_ kon kopiëren: $! \ n“;
exemplaar ($File:: Vind:: de naam, „$DestRootDir/$_“) of drukSPOOR „kon geen $_ kopiëren: $! \ n“;

}

Attachments:

van

Copied-Files.txt (87 bytes) copied files

van

Missing-Files.txt (136 bytes) missing files

van

tracking.txt (60 bytes) tracking file

van

transfer-list.txt (58 bytes) original list