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:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
|
" codeBody "
" notpretty " $infile = „data.txt“;
#$infile = $batOutput;
## (de open) Handvatten van het Dossier van de output
open (OUT1, „> \!“. $state.$status. „INFO.txt“) of sterven „kunnen geen \ openen!“. $state.$status. „INFO.txt: $! “;
open (OUT2, „> \!“. $state.$status. „INFOspdsht.txt“) of sterven „kunnen geen \ openen!“. $state.$status. „$ INFO.txt! “;
open (ERRLOG, „> \! errors.log“) of sterf „kan niet openen! errors.log $! “;
## druk Kopballen aan spdshtdossier
druk OUT2 „; ; ; ; Whitespace; ; DPI ReSize; ; ; \ n“;
druk OUT2 „Filename; Comp; AlphCnl; Foto; Wid; Len; Onderzoek 0; x0; ; ; MB \ n“;
## de Gegevens van de configuratie voor het maskeren van gegevensoutput
mijn %config = (
„LZW“ => „kleuren“,
„Lempel-Ziv & het Welsh coderen“ => „kleuren“,
„CCITT Groep 4“ => „bkwhts“,
„CCITT Groep 4 facsimile het coderen“ => „bkwhts“,
„Niets“ => „niets“,
„niets“ => „niets“,
„RGB kleur“ => „kleuren“,
„min--wit“ => „bkwhts“,
„min--zwarte“ => „bkwhts“,
„RGB paletkleur (van colormap)“ => „kleuren“,
Sub van de „resolutie“ => {
mijn @r = verdeel (/,/, verschuiving);
$r [0] =~ s \ D//g;
$r [1] =~ s \ D//g;
terugkeer @r [0.1];
},
);
mijn @config = sleutels %config;
mijn $file = $infile; # plaats dit zoals nodig.
open mijn $fh, „<“, kan $file of de matrijs „geen <$file> voor lezings$ openen! “;
$ = „TYPE: \ n“;
terwijl (mijn $record = <$fh>) {
chomp $record;
als daarna $record eq '';
$record =~ s (de Folder van TIF bij compensatie. +) \ n;
## toekomstig gebruik, voor het verhogen van fouten
$errorCount = 0;
mijn ($fullpath, $data) = verdeel (/\ n, $record, 2);
$fullpath =~ s: $;
mijn ($drv, $path, $file) = Dossier:: Spec->splitpath ($fullpath);
## krijg de gegevens van de Regeling van de Compressie
$cs = $config {$1} als (de Regeling van de $data=~ s \ s {2} Compressie: \ s+ (. *?)\ n);
als (! bepaalde $cs) {
druk „[FOUT]: De gevonden niet Regeling van de compressie voor $file. \ n“;
druk ERRLOG „[FOUT]: De gevonden niet Regeling van de compressie voor $file. \ n“;
$errorCount++;
#next;
}
## krijg Photometric gegevens van de Interpretatie
$pi = $config {$1} als ($data=~ s \ s {2} Photometric Interpretatie: \ s+ (. *?)\ n);
als (! bepaalde $pi) {
druk „[FOUT]: Photometric gevonden niet Interpretatie voor $file. \ n“;
druk ERRLOG „[FOUT]: Photometric gevonden niet Interpretatie voor $file. \ n“;
$errorCount++;
#next;
}
## krijg de gegevens van Beetjes/Steekproef
$bits = $1 als ($data=~ s \ s {2} Beetjes \ /Sample: \ s+ (. *?)\ n);
als (! bepaalde $bits) {
druk „[FOUT]: De gevonden niet gegevens van beetjes/Steekproef voor $file. \ n“;
druk ERRLOG „[FOUT]: De gevonden niet gegevens van beetjes/Steekproef voor $file. \ n“;
$errorCount++;
#next;
}
## krijg Steekproeven/de gegevens van het Pixel
$pixels = $1 als ($data=~ s \ s {2} Steekproeven \ /Pixel: \ s+ (. *?)\ n);
als (! bepaalde $pixels) {
druk „[FOUT]: De gevonden niet steekproeven/gegevens van het Pixel voor $file. \ n“;
druk ERRLOG „[FOUT]: De gevonden niet steekproeven/gegevens van het Pixel voor $file. \ n“;
$errorCount++;
#next;
}
## krijg Waarde AlphaChnl (beetjes * pixel)
$alphachnl = $bits * $pixels;
als ($alphachnl == 1) {
$alphachnl = „bkwhts“;
}
elsif ($alphachnl == 8) {
$alphachnl = „kleuren“;
}
elsif ($alphachnl == 24) {
$alphachnl = „doLOGO“;
}
anders {
$alphachnl = „unknwn“;
}
## krijg de gegevens van de Resolutie
mijn @r = $config {„Resolutie“} - > ($1) als ($data=~ s \ s {2} Resolutie: \ s+ (. *?)\ n);
## krijg de gegevens van de Breedte/van de Lengte
mijn ($w, $l) = ($1, $2) als (de Breedte van het $data=~ s \ s {2} Beeld: (\ d+) de Lengte van het Beeld: (\ d+) \ n);
## breedte
als (! bepaalde $w) {
druk „[FOUT]: Gevonden niet breedte voor $file. \ n“;
druk ERRLOG „[FOUT]: Gevonden niet breedte voor $file. \ n“;
$errorCount++;
#next;
}
## lengte
als (! bepaalde $l) {
druk „[FOUT]: Gevonden niet lengte voor $file. \ n“;
druk ERRLOG „[FOUT]: Gevonden niet lengte voor $file. \ n“;
$errorCount++;
#next;
}
## resolutie
als (! bepaalde $r [0] || ! bepaalde $r [1]) {
druk „[FOUT]: Gevonden niet resolutie voor $file. \ n“;
druk ERRLOG „[FOUT]: Gevonden niet resolutie voor $file. \ n“;
$errorCount++;
#next;
}
## krijg Grootte het dossier van van TIF (F)
mijn $filesize = (- s $fullpath)/(1024 * 1024);
mijn $size_in_mb = sprintf „%.2f“, $filesize;
## de Controle van de fout
als ($errorCount > 0) {
druk „[info]: $file werd niet verwerkt, teveel fouten. \ n“;
daarna;
}
$data =~ s \ n$//;
## ** voor het Zuiveren - Drukken aan het Scherm **
## druk $, toetreden („: “, $file, $cs, $bits, $pi, $w, $l, @r, $size_in_mb, „\ n“), $data,“ \ n ";
druk „Verwerking $file \ n“;
druk OUT1 $, treden toe („; “, $file, $cs, $bits, $pixels, $pi, $w, $l, @r, $size_in_mb, „\ n“), $data,“ \ n ";
## de Output van La
als ($state eq „La“) {
druk OUT2 „$file; “, „$cs; “, „$alphachnl; “, „$pi; “, „$w; “, „$l; “, „$r [0]; $r [1]; ; ; “, „$size_in_mb; ; “, „\ '$batch; ; ; ; “, „begin; “, „$file; ; ; ; ; ; ; ; ; ; “, „$size_in_mb; “, „beweging; “, „$file; “, „gedaane $dir_root \ \; “, „\ n“;
}
## de Output van NM
elsif ($state eq „NM“) {
druk OUT2 „$file; “, „$cs; “, „$alphachnl; “, „$pi; “, „$w; “, „$l; “, „$r [0]; $r [1]; ; ; “, „$size_in_mb; ; “, „\ '$batch; ; ; ; “, „begin; “, „$file; “, „$size_in_mb; “, „beweging; “, „$file; “, „gedaane $dir_root \ \; “, „\ n“;
daarna;
}
Output ## OK/UT
elsif („O.K.“ $state eq || $state eq „UT“) {
druk OUT2 „$file; “, „$cs; “, „$alphachnl; “, „$pi; “, „$w; “, „$l; “, „$r [0]; $r [1]; ; ; “, „$size_in_mb; ; “, „\ '$batch; ; ; ; “, „begin; “, „$file; “, „$size_in_mb; “, „beweging; “, „$file; “, „gedaane $dir_root \ \; “, „begin; “, $file. „F; “, „beweging; “, $file. „F; “, „$dir_root \ \ gedaane \ \ TEMPdone; “, „\ n“;
daarna;
}
Output ## TX/WY
elsif ($state eq „TX“ || $state eq „WY“) {
druk OUT2 „$file; “, „$cs; “, „$alphachnl; “, „$pi; “, „$w; “, „$l; “, „$r [0]; $r [1]; “, „beweging $dir_root \ \ $file $dir_root \ \ $cs \ \ $file; ; “, „$size_in_mb; ; “, „\ '$batch; ; ; “, „begin; “, „$dir_root \ \ $cs \ \ $file; “, „$file; “, „$size_in_mb; “, „beweging; “, „$dir_root \ \ $cs \ \ $file; “, „gedaane $dir_root \ \; “, „begin; “, $file. „F; “, „beweging; “, $file. „F; “, „$dir_root \ \ gedaane \ \ TEMPdone; “, „\ n“;
daarna;
}
elsif ($state eq „NIETS“ || $state eq“--„ || $state eq „ANDERE“) {
druk OUT2 „$file; “, „$cs; “, „$alphachnl; “, „$pi; “, „$w; “, „$l; “, „$r [0]; $r [1]; “, „$size_in_mb \ n“;
daarna;
}
}
sluit (OUT1) of de matrijs „kan geen out1 sluiten: $! “;
sluit (OUT2) of de matrijs „kan geen out2 sluiten: $! “;
sluit (ERRLOG) of de matrijs „kan fouten geen logboek sluiten: $! “;
sluit ($fh) of de matrijs „kan geen $fh sluiten: $! “;
|
