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 :
$Track ») ; s'ouvrir (MISSING_FILES, « >$Missing_files ») ; s'ouvrir (COPIED_FILES, « >$Copied_files ») ; imprimer COPIED_FILES « obtenant des dossiers de la liste \ n » ; imprimer « de COPIED_FILES \ n » ; s'ouvrir (DANS, « < », $transfer) ou mourir « ne pourrait pas ouvrir $transfer : $ ! \ n » ; tandis que () { chomp ; # mon ($filename) = (=~/^ de _ de $ (. +) \. +$/) ; mon ($filename) = (=~/^ de _ de $ (. +) (\ _.+) ? $) ; $file {LC ($filename)}++ ; copie « obtenant les dossiers $filename \ n » ; } fin (DEDANS) ; trouvaille (\ &wanted, $SrcRootDir) ; fin (VOIE) ; fin (COPIED_FILES) ; la copie MISSING_FILES « ceux-ci sont les schémas qui ne pourraient pas être trouvés \ n » ; la copie MISSING_FILES « vérifient svp les nombres de schéma incorrects dans la liste \ n » ; « de l'impression MISSING_FILES \ n » ; mon %file1 ; s'ouvrir (FILE1, « T:\Team\transfer\tracking.txt ") ou mourir « ne pourrait pas ouvrir $Track : $ ! \ n » ; tandis que () { $file1 {LC $_} =1 ; } fin (FILE1) ; s'ouvrir (FILE2, « T : /team/transfer/transfer_list.txt ") ou meurent « ne pourraient pas ouvrir $transfer : $ ! \ n » ; tandis que () { à moins que ($file1 {LC $_}) { copie $_ ; copie MISSING_FILES « $_ \ n » ; } } fin (FILE2) ; fin (MISSING_FILES) ; sommeil (10) ; sortie ; le sous-marin a voulu { si ($File : : Trouvaille : : dir = /old/) {$File : : Trouvaille : : pruneau = 1 ; retour ; } # mon ($filename) = (=~/^ de _ de $ (. +) (\. +) ? $) ; mon ($filename) = (=~/^ de _ de $ (. +) \ _.+$/) ; # copie « obtenant le dossier $filename \ n » ; retourner à moins qu'existe $file {LC ($filename)}; imprimer « $File de copie : : Trouvaille : : nom à $DestRootDir \ à n » ; # VOIE « $File d'impression : : Trouvaille : : nom \ n » ; VOIE d'impression « $filename \ n » ; copie COPIED_FILES « $filename \ n » ; # copie ($File : : Trouvaille : : le nom, « $DestRootDir/$_ ») ou avertissent que « ne pourrait pas copier $_ : $ ! \ n » ; copier ($File : : Trouvaille : : le nom, « $DestRootDir/$_ ») ou impriment la VOIE « ne pourrait pas copier $_ : $ ! \ n » ; }