[10945] in Perl-Users-Digest
Perl-Users Digest, Issue: 4545 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 4 20:17:25 1999
Date: Mon, 4 Jan 99 17:03:14 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 4 Jan 1999 Volume: 8 Number: 4545
Today's topics:
help with embedded Perl - accessing complex data struct (Timothy C. Gion)
Re: How can I identify MS Office files? (Kevin Reid)
Re: How can I identify MS Office files? (Bart Lateur)
Re: Improve speed of a perl-script ... and efficiency i (Eric Nelson)
Re: Improve speed of a perl-script ... and efficiency i <eugene@verticalnet.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 4 Jan 1999 19:08:57 GMT
From: tcg3j@cobra.cs.virginia.edu (Timothy C. Gion)
Subject: help with embedded Perl - accessing complex data structure
Message-Id: <76r3k9$ou3$1@murdoch.acc.Virginia.EDU>
I'm embedding Perl in C++. I'm passing my Perl subroutine a reference to
an empty hash. The hash will contain a reference to a data structure that
contains:
int strength
two dimensional array of equipment
two dimensional array of supplies
I'm having trouble accesing the equipment array. I create it the same way
I do the supply array, but I get a bus error trying to access the array on
the n'th iteration. I've included my code and the data file below. I'm
using Perl 5.003 on Solaris.
Thanks in advance for any help.
Tim
----------------------- data file - units.gam --------------------------
GAME.UNITS.533
FILE.MODIFIED YES
ME
CURRENT.CYCLE 10
CURRENT.TIME 10.0000
1101 - 1 KUWAIT DIV SUP: 1009 - MARINES
STA: WITHDRAWN POS: STATIC ECH: 1 STR: 54%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 200 100
1200 "BLUE APC " 200 118
1300 "BLUE HELO " 21 10
1400 "BLUE HEAVY ARTY " 36 36
1500 "BLUE LIGHT ARTY " 36 35
1600 "BLUE INFANTRY " 33 22
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 2575
DRY.BULK 2720 1922
POL 1810 1057
WATER 910 359
ORDERS
END.ORDERS
1102 - 1 MARINE FIE SUP: 1009 - MARINES
STA: WITHDRAWN POS: STATIC ECH: 1 STR: 40%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 95 18
1200 "BLUE APC " 90 7
1300 "BLUE HELO " 14 16
1400 "BLUE HEAVY ARTY " 24 30
1500 "BLUE LIGHT ARTY " 18 51
1600 "BLUE INFANTRY " 1638 1472
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1318
DRY.BULK 910 1092
POL 610 1092
WATER 300 1133
ORDERS
END.ORDERS
1103 - 2 MARINE FIE SUP: 1009 - MARINES
STA: IN.POSITION POS: STATIC ECH: 1 STR: 47%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 95 24
1200 "BLUE APC " 90 14
1300 "BLUE HELO " 14 18
1400 "BLUE HEAVY ARTY " 24 30
1500 "BLUE LIGHT ARTY " 18 51
1600 "BLUE INFANTRY " 1638 1638
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1361
DRY.BULK 910 1290
POL 610 1290
WATER 300 1290
ORDERS
WAIT SUP ON.LINE
END.ORDERS
1201 - 1 SAUDI DIV SUP: 1020 - SAUID UNITS
STA: ON.LINE POS: STATIC ECH: 1 STR: 49%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 200 103
1200 "BLUE APC " 200 75
1300 "BLUE HELO " 21 6
1400 "BLUE HEAVY ARTY " 36 35
1500 "BLUE LIGHT ARTY " 36 36
1600 "BLUE INFANTRY " 33 31
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 2702
DRY.BULK 2720 2118
POL 1810 1208
WATER 910 308
ORDERS
END.ORDERS
1202 - 4TH EGYPTIAN ARM DIV SUP: 1010 - 1 CAV
STA: RESERVE POS: STATIC ECH: 2 STR: 88%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 200 192
1200 "BLUE APC " 200 183
1300 "BLUE HELO " 21 18
1400 "BLUE HEAVY ARTY " 36 36
1500 "BLUE LIGHT ARTY " 36 36
1600 "BLUE INFANTRY " 33 32
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 2707
DRY.BULK 2720 1927
POL 1810 1017
WATER 910 117
ORDERS
END.ORDERS
1203 - 9TH SYRIAN ARM DIV SUP: 1010 - 1 CAV
STA: RESERVE POS: STATIC ECH: 2 STR: 89%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 200 194
1200 "BLUE APC " 200 193
1300 "BLUE HELO " 21 21
1400 "BLUE HEAVY ARTY " 36 36
1500 "BLUE LIGHT ARTY " 36 36
1600 "BLUE INFANTRY " 33 33
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 2713
DRY.BULK 2720 1910
POL 1810 1000
WATER 910 100
ORDERS
END.ORDERS
1301 - 1 UK ARM DIV SUP: 1020 - SAUID UNITS
STA: RESERVE POS: STATIC ECH: 2 STR: 90%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 116 116
1200 "BLUE APC " 64 64
1300 "BLUE HELO " 16 16
1400 "BLUE HEAVY ARTY " 9 9
1500 "BLUE LIGHT ARTY " 16 16
1600 "BLUE INFANTRY " 480 480
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 910
DRY.BULK 910 640
POL 610 340
WATER 300 30
ORDERS
END.ORDERS
1302 - 1/1CAV KUWAIT SUP: 1010 - 1 CAV
STA: ON.LINE POS: STATIC ECH: 1 STR: 96%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 116 116
1200 "BLUE APC " 64 53
1300 "BLUE HELO " 16 12
1400 "BLUE HEAVY ARTY " 9 18
1500 "BLUE LIGHT ARTY " 16 18
1600 "BLUE INFANTRY " 480 436
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1307
DRY.BULK 910 1099
POL 610 1099
WATER 300 1099
ORDERS
END.ORDERS
1303 - 2/1CAV QUATAR SUP: 1010 - 1 CAV
STA: ON.LINE POS: STATIC ECH: 1 STR: 126%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 116 143
1200 "BLUE APC " 64 85
1300 "BLUE HELO " 16 13
1400 "BLUE HEAVY ARTY " 9 51
1500 "BLUE LIGHT ARTY " 16 24
1600 "BLUE INFANTRY " 480 432
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1297
DRY.BULK 910 1063
POL 610 1063
WATER 300 1063
ORDERS
END.ORDERS
1304 - 3/1CAV AWR3 SUP: 1010 - 1 CAV
STA: ON.LINE POS: STATIC ECH: 1 STR: 138%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 116 111
1200 "BLUE APC " 64 214
1300 "BLUE HELO " 16 13
1400 "BLUE HEAVY ARTY " 9 48
1500 "BLUE LIGHT ARTY " 16 36
1600 "BLUE INFANTRY " 480 1782
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1300
DRY.BULK 910 516
POL 610 516
WATER 300 516
ORDERS
END.ORDERS
1306 - 1CAV AVN BGE 1/2 SUP: 1010 - 1 CAV
STA: SUPPORT POS: STATIC ECH: 1 STR: 34%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 1
EQUIPMENT........................AUTH......CURR
1300 "BLUE HELO " 42 14
1700 "BLUE AD " 4 4
SUPPLIES(METRIC TONS)
AMMO 2040 1361
DRY.BULK 1360 978
POL 1360 1089
WATER 1130 711
ORDERS
END.ORDERS
1307 - 1CAV AVN BGE 2/2 SUP: 1010 - 1 CAV
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 1%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 1
EQUIPMENT........................AUTH......CURR
1300 "BLUE HELO " 42 0
1700 "BLUE AD " 4 4
SUPPLIES(METRIC TONS)
AMMO 2040 1361
DRY.BULK 1360 1304
POL 1360 1332
WATER 1130 1219
ORDERS
END.ORDERS
1308 - 1CAV AD BN SUP: 1010 - 1 CAV
STA: SUPPORT POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1002 "HAWK" 3
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 1360 946
POL 1360 1144
WATER 1130 104
ORDERS
END.ORDERS
1401 - 1st Brigade 3ID FSS SUP: 1021 - XVIII AIRBORNE CORPS
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 13%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 116 0
1200 "BLUE APC " 64 0
1300 "BLUE HELO " 16 16
1400 "BLUE HEAVY ARTY " 9 0
1500 "BLUE LIGHT ARTY " 16 0
1600 "BLUE INFANTRY " 480 0
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 910 1361
DRY.BULK 910 1329
POL 610 1329
WATER 300 1329
ORDERS
END.ORDERS
1403 - 3RD ACR SUP: 1021 - XVIII AIRBORNE CORPS
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 0%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1100 "BLUE TANK " 174 0
1200 "BLUE APC " 342 0
1300 "BLUE HELO " 30 0
1400 "BLUE HEAVY ARTY " 72 0
1500 "BLUE LIGHT ARTY " 54 0
1600 "BLUE INFANTRY " 33 33
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 1361
DRY.BULK 2720 1264
POL 1810 1264
WATER 910 1264
ORDERS
END.ORDERS
1404 - 101ST US AIRBORNE DIV SUP: 1021 - XVIII AIRBORNE CORPS
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 63%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 2
AD.SITES
1001 "ROLAND" 3
EQUIPMENT........................AUTH......CURR
1200 "BLUE APC " 270 270
1300 "BLUE HELO " 42 0
1500 "BLUE LIGHT ARTY " 54 54
1600 "BLUE INFANTRY " 50 0
1700 "BLUE AD " 12 12
SUPPLIES(METRIC TONS)
AMMO 2720 1361
DRY.BULK 2720 703
POL 1810 703
WATER 910 703
ORDERS
END.ORDERS
1407 - XVIII CORPS ARTY SUP: 1021 - XVIII AIRBORNE CORPS
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 3%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1001 "ROLAND" 1
EQUIPMENT........................AUTH......CURR
1400 "BLUE HEAVY ARTY " 36 0
1500 "BLUE LIGHT ARTY " 36 0
1700 "BLUE AD " 4 4
SUPPLIES(METRIC TONS)
AMMO 910 454
DRY.BULK 910 422
POL 610 422
WATER 300 422
ORDERS
END.ORDERS
1408 - XVIII CORPS AD BN SUP: 1021 - XVIII AIRBORNE CORPS
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
1 "BLUE UNIT C3 FAC" 4
AD.SITES
1002 "HAWK" 3
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 454
DRY.BULK 1360 40
POL 1360 238
WATER 1130 0
ORDERS
END.ORDERS
1031 - PG SUP: 1013 - PERSIAN GULF SOUTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1032 - PG SUP: 1013 - PERSIAN GULF SOUTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1033 - PG SUP: 1008 - PERSIAN GULF NORTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1034 - PG SUP: 1008 - PERSIAN GULF NORTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1043 - DESERT FORCE SUP: 1012 - DESERT FORCE E
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1044 - DESERT FORCE SUP: 1014 - DESERT FORCE C
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
1045 - DESERT FORCE SUP: 1015 - DESERT FORCE W
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2101 - 1 1 AD SUP: 2011 - 1 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 69%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2002 "SA-6/8" 2
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 325 231
2200 "RED APC " 250 155
2300 "RED HELO " 12 2
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 33 26
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
2720 "RED MOBILE SAM " 8 8
SUPPLIES(METRIC TONS)
AMMO 8160 7652
DRY.BULK 5440 2840
POL 5440 3301
WATER 4540 1217
ORDERS
END.ORDERS
2103 - 1 3 AD SUP: 2011 - 1 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 67%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2002 "SA-6/8" 2
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 325 224
2200 "RED APC " 250 143
2300 "RED HELO " 12 1
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 124
2600 "RED INFANTRY " 33 27
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 11
2720 "RED MOBILE SAM " 8 8
SUPPLIES(METRIC TONS)
AMMO 8160 7695
DRY.BULK 5440 2919
POL 5440 3401
WATER 4540 1235
ORDERS
END.ORDERS
2104 - 1 4 MD SUP: 2011 - 1 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 77%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2002 "SA-6/8" 2
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 225 194
2200 "RED APC " 650 403
2300 "RED HELO " 12 1
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 123
2600 "RED INFANTRY " 40 31
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
2720 "RED MOBILE SAM " 8 8
SUPPLIES(METRIC TONS)
AMMO 8160 7907
DRY.BULK 5440 3187
POL 5440 3841
WATER 4540 1035
ORDERS
END.ORDERS
2105 - 1 5 ID SUP: 2011 - 1 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 91%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 84
2200 "RED APC " 150 96
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 100 86
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8050
DRY.BULK 5440 3167
POL 5440 3928
WATER 4540 748
ORDERS
END.ORDERS
2106 - 1 6 ID SUP: 2011 - 1 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 91%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 83
2200 "RED APC " 150 112
2400 "RED HEAVY ARTY " 25 24
2500 "RED LIGHT ARTY " 125 123
2600 "RED INFANTRY " 100 92
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8109
DRY.BULK 5440 3222
POL 5440 3641
WATER 4540 610
ORDERS
END.ORDERS
2201 - 2 1 AD SUP: 2012 - 2 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 73%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2002 "SA-6/8" 2
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 325 252
2200 "RED APC " 250 127
2300 "RED HELO " 12 2
2400 "RED HEAVY ARTY " 25 24
2500 "RED LIGHT ARTY " 125 118
2600 "RED INFANTRY " 33 29
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
2720 "RED MOBILE SAM " 8 7
SUPPLIES(METRIC TONS)
AMMO 8160 8009
DRY.BULK 5440 3231
POL 5440 3972
WATER 4540 854
ORDERS
END.ORDERS
2202 - 2 2 ID SUP: 2012 - 2 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 82%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 72
2200 "RED APC " 150 92
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 124
2600 "RED INFANTRY " 100 97
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8155
DRY.BULK 5440 3113
POL 5440 3893
WATER 4540 657
ORDERS
END.ORDERS
2203 - 2 3 ID SUP: 2012 - 2 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 75%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 64
2200 "RED APC " 150 76
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 100 97
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 3147
POL 5440 3912
WATER 4540 712
ORDERS
END.ORDERS
2204 - 2 4 ID SUP: 2012 - 2 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 74%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 63
2200 "RED APC " 150 69
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 123
2600 "RED INFANTRY " 100 96
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 3135
POL 5440 3905
WATER 4540 691
ORDERS
END.ORDERS
2301 - 3 1 ID SUP: 2013 - 3 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 94%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 84
2200 "RED APC " 150 131
2400 "RED HEAVY ARTY " 25 24
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 100 98
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 3058
POL 5440 3850
WATER 4540 568
ORDERS
END.ORDERS
2302 - 3 2 ID SUP: 2013 - 3 IRAQI ARMY
STA: ON.LINE POS: STATIC ECH: 1 STR: 94%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 85
2200 "RED APC " 150 137
2400 "RED HEAVY ARTY " 25 23
2500 "RED LIGHT ARTY " 125 121
2600 "RED INFANTRY " 100 99
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 4148
POL 5440 4596
WATER 4540 2310
ORDERS
END.ORDERS
2401 - 4 1 ID SUP: 2016 - BAGHDAD FORCE
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 99%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 89
2200 "RED APC " 150 150
2400 "RED HEAVY ARTY " 25 24
2500 "RED LIGHT ARTY " 125 124
2600 "RED INFANTRY " 100 100
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 4176
POL 5440 4806
WATER 4540 1824
ORDERS
END.ORDERS
2402 - 4 2 ID SUP: 2016 - BAGHDAD FORCE
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 98%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 87
2200 "RED APC " 150 148
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 100 100
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 3809
POL 5440 4619
WATER 4540 461
ORDERS
END.ORDERS
2403 - 4 3 ID SUP: 2016 - BAGHDAD FORCE
STA: HOLDING.AREA POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
10001 "RED UNIT C3 FAC" 4
AD.SITES
2003 "SA-7" 3
2004 "ZSU-23/S-60" 4
EQUIPMENT........................AUTH......CURR
2100 "RED TANK " 90 90
2200 "RED APC " 150 149
2400 "RED HEAVY ARTY " 25 25
2500 "RED LIGHT ARTY " 125 125
2600 "RED INFANTRY " 100 100
2700 "RED AD GUN " 16 16
2710 "RED SHOULDER-FIRED" 12 12
SUPPLIES(METRIC TONS)
AMMO 8160 8160
DRY.BULK 5440 3774
POL 5440 4493
WATER 4540 454
ORDERS
END.ORDERS
2034 - DESERT FORCE SUP: 2014 - DESERT FORCE EAST
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2035 - DESERT FORCE SUP: 2014 - DESERT FORCE EAST
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2036 - DESERT FORCE SUP: 2015 - DESERT FORCE CENTER
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2037 - DESERT FORCE SUP: 2017 - DESERT FORCE WEST
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2039 - DESERT FORCE SUP: 2016 - BAGHDAD FORCE
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2040 - DESERT FORCE SUP: 2016 - BAGHDAD FORCE
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2044 - PG FORCE SUP: 2010 - PERSIAN GULF NORTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2045 - PG FORCE SUP: 2010 - PERSIAN GULF NORTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2046 - PG FORCE SUP: 2009 - PERSIAN GULF SOUTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
2047 - PG FORCE SUP: 2009 - PERSIAN GULF SOUTH
STA: ON.LINE POS: STATIC ECH: 1 STR: 100%
C3.FACILITIES
AD.SITES
EQUIPMENT........................AUTH......CURR
SUPPLIES(METRIC TONS)
AMMO 0 0
DRY.BULK 0 0
POL 0 0
WATER 0 0
ORDERS
END.ORDERS
END.UNIT.DATA
--------------------- callunits.cpp -------------------------------------
#include <iostream.h>
#include <EXTERN.h>
#include <perl.h>
int main(int argc, char** argv, char** env)
{
char *args[3] = { "callperl", "-d", "units.pl" };
PerlInterpreter* perl_int = perl_alloc();
perl_construct(perl_int);
perl_parse(perl_int, NULL, 3, args, NULL);
HV* table = newHV();
if(table == NULL) {
cerr << "Error: couldn't allocate new hash table\n" << endl;
return 1;
}
// hv_store(table, "water", 5, newSViv(50), 0 );
SV* tableref = newRV( (SV*) table);
dSP;
ENTER;
SAVETMPS;
PUSHMARK(sp);
XPUSHs(tableref);
PUTBACK;
perl_call_pv("get_unit_info", G_DISCARD);
SPAGAIN;
hv_iterinit(table);
HE* entry = hv_iternext(table);
for(; entry != NULL; entry = hv_iternext(table) ) {
I32 len;
char* key = hv_iterkey(entry, &len);
cout << "key = " << key << endl;
SV* val = hv_iterval(table, entry);
if(SvTYPE(SvRV(val)) == SVt_PVAV)
cout << "ref is array" << endl;
cout << "address: " << SvPV(val, SvCUR(val)) << endl;
cout << "num elements = " << av_len( (AV*) (SvRV(val)))+1 << endl;
SV** ele = av_fetch( (AV*) SvRV(val), 0, 0);
cout << "val = " << SvPV(*ele, SvCUR(*ele) ) << endl;
SV** ele1 = av_fetch( (AV*) SvRV(val), 1, 0);
// cout << "val = " << SvPV(*ele, SvCUR(*ele) ) << endl;
SV** ele2= av_fetch( (AV*) SvRV(*ele1), 0, 0);
if(SvROK(*ele2) ) {
SV** ele3 = av_fetch( (AV*) SvRV(*ele2), 0, 0);
cout << "first ele = " << SvPV(*ele3, SvCUR(*ele3) ) << endl;
} else
cout << "bad reference\n" << endl;
SV** ele4 = av_fetch( (AV*) SvRV(val), 2, 0);
cout << "val = " << SvPV(*ele4, SvCUR(*ele4) ) << endl;
/*
SV* ele = av_pop( (AV*) SvRV(val));
cout << "val = " << SvPV(ele, SvCUR(ele) ) << endl;
ele = av_pop( (AV*) SvRV(val));
if(ele)
cout << "val = " << SvPV(ele, SvCUR(ele) ) << endl;
else
cout << "val = undefined" << endl;
ele = av_pop( (AV*) SvRV(val));
if(ele)
cout << "val = " << SvPV(ele, SvCUR(ele) ) << endl;
else
cout << "val = undefined" << endl;
*/
}
PUTBACK;
FREETMPS;
LEAVE;
perl_destruct(perl_int);
perl_free(perl_int);
return 0;
}
-------------------- units.pl ------------------------------------
#!/opt/bin/perl
# fills hash table units with units and their equipment arrays; takes a
# reference to a hash table with unit ids as keys, references to equipment
# arrays as values as its argument
use strict 'refs';
sub get_unit_info
{
my $units = $_[0];
open(UNITS, "units.gam") or die "Can't find units.gam!\n";
my ($line, $id, $foo, $str, @info);
until( ($line = <UNITS>) =~ /CURRENT\.TIME/o) {
;
}
while($line = <UNITS>) {
# look for this line to find line with unit number
if($line =~ /SUP:/o) {
my (@equip, @supp);
($id, $foo) = split /-/, $line;
$id = int $id;
$line = <UNITS>;
until($line =~ /END\.ORDERS/o) {
if($line =~ /STR:/o) {
($str) = ($line =~ /([0-9]{1,3}(?=%))/x);
$line = <UNITS>;
} elsif($line =~ /EQUIPMENT/o) {
# create test array since this isn't working
push @equip, ["empty"];
# read equipment
until( ($line = <UNITS>) =~ /SUPPLIES/o) {
# my ($foo, $eq_id, $eq_name, $eq_auth, $eq_cur);
# ($eq_id, $eq_name, $foo) = split /(\".+\")/, $line;
# $eq_id = int $eq_id;
# ($foo, $eq_auth, $eq_cur) = split /\s+/, $foo;
# push @equip, [$eq_id, $eq_name, $eq_auth, $eq_cur];
}
# read supplies
until( ($line = <UNITS>) =~ /ORDERS/o) {
my ($foo, $s_name, $s_auth, $s_cur)
= split /\s+/, $line;
push @supp, [$s_name, $s_auth, $s_cur];
}
} else {
$line = <UNITS>;
}
}
if (scalar(@equip) == 0) {
push @equip, ["empty", "empty", "empty", "empty"];
# push @equip, ["empty", "empty", "empty", "empty"];
}
@info = ($str, [@equip], [@supp]);
# print "info = @info\n";
# print "equip = @equip\n";
# print "id = $id\n";
$units->{$id} = [@info];
# print "units = $units->{$id}\n";
}
}
my ($k, $v, $e, $s);
while ( ($k, $v) = each (%{$units}) ) {
print "$k - $v\n";
print "contents = @{$v}\n";
print "strength = ${$v}[0]\n";
foreach $e (@{${$v}[1]}) {
print "address = $e\n";
print "${$e}[0] ${$e}[1] ${$e}[2] ${$e}[3]\n";
}
foreach $s (@{${$v}[2]}) {
print "address = $s\n";
print "${$s}[0] ${$s}[1] ${$s}[2]\n";
}
}
}
------------------------------
Date: Mon, 4 Jan 1999 13:34:35 -0500
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: How can I identify MS Office files?
Message-Id: <1dkwsj4.pyekex1rids1vN@slip166-72-108-140.ny.us.ibm.net>
Ed Finch <efinch@cais.com> wrote:
> Greetings!
>
> We have about 50 Macs left in our building and are
> migrating the users to Windows. The biggest issue
> is that their files weren't saved with extensions
> and it's painful to use MS Office. I'd like to
> write a Perl script to read all of their files,
> identify Word, Excel and PowerPoint files, and
> add the appropriate extension automatically. I've
> searched the modules and the FAQ to no avail.
>
> How can I identify the file types?
Here's how to identify a Word file:
if (MacPerl::GetFileInfo($path) eq 'WDBN') {
# is Word file
}
I don't know the types for Excel or PowerPoint files.
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: Mon, 04 Jan 1999 19:42:35 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How can I identify MS Office files?
Message-Id: <3691185c.250787@news.skynet.be>
Ed Finch wrote:
>We have about 50 Macs left in our building and are
>migrating the users to Windows. The biggest issue
>is that their files weren't saved with extensions
>and it's painful to use MS Office. I'd like to
>write a Perl script to read all of their files,
>identify Word, Excel and PowerPoint files, and
>add the appropriate extension automatically. I've
>searched the modules and the FAQ to no avail.
>
>How can I identify the file types?
First option: on a Mac, for example in MacPerl, use
MacPerl::GetFileInfo() to retrieve a file's filetype. That is the Mac
equivalent (4 characters) of a PC's file extension (3 characters). Some
simple experimentation should allow you to build a hash for converting
Mac filetype to PC extension.
If for some reason that isn't possible, look up the LAOLA project (Perl
scripts).This can at least identy Word and Excel, and probably other OLE
based files as well.
HTH,
Bart.
------------------------------
Date: 4 Jan 1999 21:03:15 GMT
From: lars@ecst.csuchico.edu (Eric Nelson)
Subject: Re: Improve speed of a perl-script ... and efficiency info.
Message-Id: <76raaj$at2$1@hubble.csuchico.edu>
This thread popped a question into my head. Are there any pages that have
a listing of the most efficient perl routines. ie. foreach loops are quicker
than while loops, xxx has more overhead than yyy? This just popped into my
head so don't flame me for not doing the research first.
Eric
--
GCS d H s++ !g p? au--- a- w+ v? C++ UI++ P+ L+ 3 E--- N+ K- W-- M-- !V -po+ Y+
t 5- j++ R- G? tv b D++ B- e+ u--- h- f r+ !n y*
------------------------------
Date: Mon, 04 Jan 1999 19:10:40 -0500
From: Eugene Sotirescu <eugene@verticalnet.com>
To: Eric Nelson <lars@ecst.csuchico.edu>
Subject: Re: Improve speed of a perl-script ... and efficiency info.
Message-Id: <36915880.66F9FA47@verticalnet.com>
Try to find out what the bottlenecks are: does it use a lot of CPU? (if
not, but still takes a long time, you might have an I/O problem); do you
have greedy pattern matching with wildcards, or other regex stuff that
causes a lot of backtracking? Just a couple of examples, there are many,
too many things that can slow you down to mention them here.
Cutting up the file into pieces probably won't do anything for you, but
trying to time how much sections of the script take and narrow down the
problem that way might be a good idea.
> Marcel Beekmans writes:
>
> MB> I'm building an application for the web. It is a very big
> MB> appliction, it is about 10,000 code-lines. The speed of the
> MB> appliction is really bad. What can I do? (It is not impossible
> MB> to cut the file into 2 or more separate files).
>
>
>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4545
**************************************
