Forging/Forging Perl Script: Difference between revisions

The official GemStone IV encyclopedia.
< Forging
Jump to navigation Jump to search
No edit summary
No edit summary
Line 87: Line 87:


</nowiki>
</nowiki>


Results look like this:
<code>.----------------------------------------------.
| Attempts Per Rank |
+------+--------+----------+--------+----------+
| Rank | ToNext | TotalAtt | ToNext | TotalAtt |
+------+--------+----------+--------+----------+
| 1 | 1 | 1 | 1 | 1 |
| 2 | 1 | 2 | 1 | 2 |
| 3 | 1 | 3 | 1 | 3 |
| 4 | 1 | 4 | 1 | 4 |
| 5 | 1 | 5 | 1 | 5 |
| 6 | 1 | 6 | 1 | 6 |
| 7 | 1 | 7 | 1 | 7 |
| 8 | 1 | 8 | 1 | 8 |
| 9 | 1 | 9 | 1 | 9 |
| 10 | 1 | 10 | 1 | 10 |
| 11 | 1 | 11 | 1 | 11 |
| 12 | 1 | 12 | 1 | 12 |
| 13 | 1 | 13 | 1 | 13 |
| 14 | 1 | 14 | 1 | 14 |
| 15 | 1 | 15 | 1 | 15 |
| 16 | 1 | 16 | 1 | 16 |
| 17 | 1 | 17 | 1 | 17 |
| 18 | 1 | 18 | 1 | 18 |
| 19 | 1 | 19 | 1 | 19 |
| 20 | 1 | 20 | 1 | 20 |
| 21 | 1 | 21 | 1 | 21 |
| 22 | 1 | 22 | 1 | 22 |
| 23 | 1 | 23 | 2 | 24 |
| 24 | 1 | 24 | 1 | 25 |
| 25 | 1 | 25 | 1 | 26 |
| 26 | 1 | 26 | 1 | 27 |
| 27 | 1 | 27 | 1 | 28 |
| 28 | 1 | 28 | 1 | 29 |
| 29 | 1 | 29 | 1 | 30 |
| 30 | 1 | 30 | 1 | 31 |
| 31 | 1 | 31 | 1 | 32 |
| 32 | 1 | 32 | 1 | 33 |
| 33 | 1 | 33 | 1 | 34 |
| 34 | 1 | 34 | 1 | 35 |
| 35 | 1 | 35 | 1 | 36 |
| 36 | 1 | 36 | 1 | 37 |
| 37 | 1 | 37 | 1 | 38 |
| 38 | 1 | 38 | 1 | 39 |
| 39 | 1 | 39 | 1 | 40 |
| 40 | 2 | 41 | 1 | 41 |
| 41 | 1 | 42 | 1 | 42 |
| 42 | 1 | 43 | 1 | 43 |
| 43 | 1 | 44 | 1 | 44 |
| 44 | 1 | 45 | 1 | 45 |
| 45 | 1 | 46 | 1 | 46 |
| 46 | 1 | 47 | 1 | 47 |
| 47 | 1 | 48 | 1 | 48 |
| 48 | 1 | 49 | 2 | 50 |
| 49 | 1 | 50 | 1 | 51 |
| 50 | 1 | 51 | 1 | 52 |
| 51 | 1 | 52 | 1 | 53 |
| 52 | 1 | 53 | 1 | 54 |
| 53 | 1 | 54 | 2 | 56 |
| 54 | 1 | 55 | 1 | 57 |
| 55 | 1 | 56 | 2 | 59 |
| 56 | 2 | 58 | 1 | 60 |
| 57 | 1 | 59 | 1 | 61 |
| 58 | 2 | 61 | 1 | 62 |
| 59 | 1 | 62 | 1 | 63 |
| 60 | 1 | 63 | 1 | 64 |
| 61 | 1 | 64 | 1 | 65 |
| 62 | 1 | 65 | 1 | 66 |
| 63 | 1 | 66 | 1 | 67 |
| 64 | 1 | 67 | 1 | 68 |
| 65 | 1 | 68 | 1 | 69 |
| 66 | 2 | 70 | 1 | 70 |
| 67 | 1 | 71 | 1 | 71 |
| 68 | 1 | 72 | 2 | 73 |
| 69 | 1 | 73 | 1 | 74 |
| 70 | 1 | 74 | 2 | 76 |
| 71 | 1 | 75 | 1 | 77 |
| 72 | 1 | 76 | 1 | 78 |
| 73 | 1 | 77 | 1 | 79 |
| 74 | 2 | 79 | 1 | 80 |
| 75 | 1 | 80 | 1 | 81 |
| 76 | 1 | 81 | 1 | 82 |
| 77 | 1 | 82 | 2 | 84 |
| 78 | 1 | 83 | 2 | 86 |
| 79 | 1 | 84 | 1 | 87 |
| 80 | 1 | 85 | 1 | 88 |
| 81 | 2 | 87 | 3 | 91 |
| 82 | 1 | 88 | 1 | 92 |
| 83 | 1 | 89 | 1 | 93 |
| 84 | 1 | 90 | 1 | 94 |
| 85 | 1 | 91 | 1 | 95 |
| 86 | 1 | 92 | 2 | 97 |
| 87 | 1 | 93 | 1 | 98 |
| 88 | 1 | 94 | 1 | 99 |
| 89 | 2 | 96 | 1 | 100 |
| 90 | 2 | 98 | 1 | 101 |
| 91 | 1 | 99 | 3 | 104 |
| 92 | 1 | 100 | 1 | 105 |
| 93 | 1 | 101 | 1 | 106 |
| 94 | 1 | 102 | 1 | 107 |
| 95 | 1 | 103 | 1 | 108 |
| 96 | 1 | 104 | 1 | 109 |
| 97 | 1 | 105 | 1 | 110 |
| 98 | 1 | 106 | 1 | 111 |
| 99 | 2 | 108 | 1 | 112 |
| 100 | 1 | 109 | 1 | 113 |
| 101 | 1 | 110 | 1 | 114 |
| 102 | 1 | 111 | 2 | 116 |
| 103 | 1 | 112 | 1 | 117 |
| 104 | 1 | 113 | 2 | 119 |
| 105 | 1 | 114 | 2 | 121 |
| 106 | 1 | 115 | 1 | 122 |
| 107 | 1 | 116 | 1 | 123 |
| 108 | 1 | 117 | 1 | 124 |
| 109 | 2 | 119 | 1 | 125 |
| 110 | 1 | 120 | 1 | 126 |
| 111 | 1 | 121 | 1 | 127 |
| 112 | 1 | 122 | 1 | 128 |
| 113 | 1 | 123 | 1 | 129 |
| 114 | 2 | 125 | 1 | 130 |
| 115 | 1 | 126 | 2 | 132 |
| 116 | 1 | 127 | 1 | 133 |
| 117 | 1 | 128 | 1 | 134 |
| 118 | 1 | 129 | 1 | 135 |
| 119 | 2 | 131 | 1 | 136 |
| 120 | 1 | 132 | 1 | 137 |
| 121 | 2 | 134 | 1 | 138 |
| 122 | 1 | 135 | 1 | 139 |
| 123 | 2 | 137 | 1 | 140 |
| 124 | 2 | 139 | 1 | 141 |
| 125 | 1 | 140 | 2 | 143 |
| 126 | 3 | 143 | 2 | 145 |
| 127 | 1 | 144 | 2 | 147 |
| 128 | 1 | 145 | 1 | 148 |
| 129 | 1 | 146 | 1 | 149 |
| 130 | 1 | 147 | 2 | 151 |
| 131 | 1 | 148 | 2 | 153 |
| 132 | 1 | 149 | 1 | 154 |
| 133 | 1 | 150 | 1 | 155 |
| 134 | 1 | 151 | | |
| 135 | 2 | 153 | | |
| 136 | 2 | 155 | | |
| 137 | 1 | 156 | | |
| 138 | 1 | 157 | | |
| 139 | 1 | 158 | | |
| 140 | 1 | 159 | | |
| 141 | 1 | 160 | | |
| 142 | 1 | 161 | | |
| 143 | 1 | 162 | | |
| 144 | 1 | 163 | | |
| 145 | 1 | 164 | | |
| 146 | 1 | 165 | | |
| 147 | 1 | 166 | | |
| 148 | 3 | 169 | | |
| 149 | 3 | 172 | | |
| 150 | 1 | 173 | | |
| 151 | 1 | 174 | | |
| 152 | 2 | 176 | | |
| 153 | 1 | 177 | | |
| 154 | 1 | 178 | | |
| 155 | 2 | 180 | | |
| 156 | 2 | 182 | | |
| 157 | 4 | 186 | | |
| 158 | 2 | 188 | | |
| 159 | 1 | 189 | | |
| 160 | 2 | 191 | | |
| 161 | 1 | 192 | | |
| 162 | 3 | 195 | | |
| 163 | 1 | 196 | | |
| 164 | 1 | 197 | | |
| 165 | 2 | 199 | | |
| 166 | 1 | 200 | | |
| 167 | 1 | 201 | | |
| 168 | 1 | 202 | | |
| 169 | 3 | 205 | | |
| 170 | 3 | 208 | | |
| 171 | 2 | 210 | | |
| 172 | 1 | 211 | | |
| 173 | 1 | 212 | | |
| 174 | 1 | 213 | | |
| 175 | 3 | 216 | | |
| 176 | 2 | 218 | | |
| 177 | 1 | 219 | | |
| 178 | 4 | 223 | | |
| 179 | 3 | 226 | | |
| 180 | 1 | 227 | | |
| 181 | 2 | 229 | | |
| 182 | 1 | 230 | | |
| 183 | 1 | 231 | | |
| 184 | 1 | 232 | | |
| 185 | 1 | 233 | | |
| 186 | 2 | 235 | | |
| 187 | 2 | 237 | | |
| 188 | 1 | 238 | | |
| 189 | 2 | 240 | | |
| 190 | 1 | 241 | | |
| 191 | 1 | 242 | | |
| 192 | 2 | 244 | | |
| 193 | 1 | 245 | | |
| 194 | 1 | 246 | | |
| 195 | 1 | 247 | | |
| 196 | 5 | 252 | | |
| 197 | 2 | 254 | | |
| 198 | 1 | 255 | | |
| 199 | 2 | 257 | | |
| 200 | 1 | 258 | | |
| 201 | 2 | 260 | | |
| 202 | 1 | 261 | | |
| 203 | 1 | 262 | | |
| 204 | 1 | 263 | | |
| 205 | 2 | 265 | | |
| 206 | 1 | 266 | | |
| 207 | 2 | 268 | | |
| 208 | 3 | 271 | | |
| 209 | 5 | 276 | | |
| 210 | 1 | 277 | | |
| 211 | 3 | 280 | | |
| 212 | 1 | 281 | | |
| 213 | 2 | 283 | | |
| 214 | 1 | 284 | | |
| 215 | 1 | 285 | | |
| 216 | 4 | 289 | | |
| 217 | 1 | 290 | | |
| 218 | 1 | 291 | | |
| 219 | 2 | 293 | | |
| 220 | 9 | 302 | | |
| 221 | 1 | 303 | | |
| 222 | 1 | 304 | | |
| 223 | 4 | 308 | | |
| 224 | 2 | 310 | | |
| 225 | 1 | 311 | | |
| 226 | 2 | 313 | | |
| 227 | 1 | 314 | | |
| 228 | 1 | 315 | | |
| 229 | 1 | 316 | | |
| 230 | 4 | 320 | | |
| 231 | 3 | 323 | | |
| 232 | 4 | 327 | | |
| 233 | 1 | 328 | | |
| 234 | 1 | 329 | | |
| 235 | 2 | 331 | | |
| 236 | 4 | 335 | | |
| 237 | 1 | 336 | | |
| 238 | 1 | 337 | | |
| 239 | 5 | 342 | | |
| 240 | 1 | 343 | | |
| 241 | 1 | 344 | | |
| 242 | 2 | 346 | | |
| 243 | 5 | 351 | | |
| 244 | 1 | 352 | | |
| 245 | 2 | 354 | | |
| 246 | 1 | 355 | | |
| 247 | 2 | 357 | | |
| 248 | 6 | 363 | | |
| 249 | 1 | 364 | | |
| 250 | 6 | 370 | | |
| 251 | 1 | 371 | | |
| 252 | 1 | 372 | | |
| 253 | 2 | 374 | | |
| 254 | 1 | 375 | | |
| 255 | 2 | 377 | | |
| 256 | 1 | 378 | | |
| 257 | 3 | 381 | | |
| 258 | 1 | 382 | | |
| 259 | 1 | 383 | | |
| 260 | 2 | 385 | | |
| 261 | 5 | 390 | | |
| 262 | 4 | 394 | | |
| 263 | 1 | 395 | | |
| 264 | 2 | 397 | | |
| 265 | 3 | 400 | | |
| 266 | 2 | 402 | | |
| 267 | 1 | 403 | | |
| 268 | 1 | 404 | | |
| 269 | 1 | 405 | | |
| 270 | 7 | 412 | | |
| 271 | 1 | 413 | | |
| 272 | 5 | 418 | | |
| 273 | 1 | 419 | | |
| 274 | 3 | 422 | | |
| 275 | 2 | 424 | | |
| 276 | 1 | 425 | | |
| 277 | 5 | 430 | | |
| 278 | 1 | 431 | | |
| 279 | 2 | 433 | | |
| 280 | 1 | 434 | | |
| 281 | 1 | 435 | | |
| 282 | 5 | 440 | | |
| 283 | 1 | 441 | | |
| 284 | 1 | 442 | | |
| 285 | 5 | 447 | | |
| 286 | 1 | 448 | | |
| 287 | 1 | 449 | | |
| 288 | 4 | 453 | | |
| 289 | 1 | 454 | | |
| 290 | 2 | 456 | | |
| 291 | 3 | 459 | | |
| 292 | 2 | 461 | | |
| 293 | 1 | 462 | | |
| 294 | 3 | 465 | | |
| 295 | 1 | 466 | | |
| 296 | 1 | 467 | | |
| 297 | 3 | 470 | | |
| 298 | 4 | 474 | | |
| 299 | 1 | 475 | | |
| 300 | 2 | 477 | | |
| 301 | 4 | 481 | | |
| 302 | 1 | 482 | | |
| 303 | 1 | 483 | | |
| 304 | 1 | 484 | | |
| 305 | 1 | 485 | | |
| 306 | 1 | 486 | | |
| 307 | 1 | 487 | | |
| 308 | 3 | 490 | | |
| 309 | 3 | 493 | | |
| 310 | 1 | 494 | | |
| 311 | 1 | 495 | | |
| 312 | 1 | 496 | | |
| 313 | 3 | 499 | | |
| 314 | 1 | 500 | | |
| 315 | 9 | 509 | | |
| 316 | 1 | 510 | | |
| 317 | 2 | 512 | | |
| 318 | 4 | 516 | | |
| 319 | 1 | 517 | | |
| 320 | 1 | 518 | | |
| 321 | 1 | 519 | | |
| 322 | 1 | 520 | | |
| 323 | 6 | 526 | | |
| 324 | 2 | 528 | | |
| 325 | 3 | 531 | | |
| 326 | 2 | 533 | | |
| 327 | 5 | 538 | | |
| 328 | 3 | 541 | | |
| 329 | 1 | 542 | | |
| 330 | 2 | 544 | | |
| 331 | 4 | 548 | | |
| 332 | 4 | 552 | | |
| 333 | 3 | 555 | | |
| 334 | 1 | 556 | | |
| 335 | 2 | 558 | | |
| 336 | 1 | 559 | | |
| 337 | 4 | 563 | | |
| 338 | 3 | 566 | | |
| 339 | 5 | 571 | | |
| 340 | 2 | 573 | | |
| 341 | 3 | 576 | | |
| 342 | 1 | 577 | | |
| 343 | 1 | 578 | | |
| 344 | 1 | 579 | | |
| 345 | 6 | 585 | | |
| 346 | 3 | 588 | | |
| 347 | 1 | 589 | | |
| 348 | 4 | 593 | | |
| 349 | 5 | 598 | | |
| 350 | 4 | 602 | | |
| 351 | 1 | 603 | | |
| 352 | 5 | 608 | | |
| 353 | 2 | 610 | | |
| 354 | 5 | 615 | | |
| 355 | 1 | 616 | | |
| 356 | 1 | 617 | | |
| 357 | 5 | 622 | | |
| 358 | 4 | 626 | | |
| 359 | 1 | 627 | | |
| 360 | 3 | 630 | | |
| 361 | 2 | 632 | | |
| 362 | 4 | 636 | | |
| 363 | 1 | 637 | | |
| 364 | 2 | 639 | | |
| 365 | 1 | 640 | | |
| 366 | 1 | 641 | | |
| 367 | 1 | 642 | | |
| 368 | 10 | 652 | | |
| 369 | 5 | 657 | | |
| 370 | 2 | 659 | | |
| 371 | 2 | 661 | | |
| 372 | 4 | 665 | | |
| 373 | 1 | 666 | | |
| 374 | 8 | 674 | | |
| 375 | 7 | 681 | | |
| 376 | 5 | 686 | | |
| 377 | 7 | 693 | | |
| 378 | 3 | 696 | | |
| 379 | 1 | 697 | | |
| 380 | 2 | 699 | | |
| 381 | 1 | 700 | | |
| 382 | 1 | 701 | | |
| 383 | 6 | 707 | | |
| 384 | 8 | 715 | | |
| 385 | 3 | 718 | | |
| 386 | 11 | 729 | | |
| 387 | 6 | 735 | | |
| 388 | 4 | 739 | | |
| 389 | 7 | 746 | | |
| 390 | 3 | 749 | | |
| 391 | 3 | 752 | | |
| 392 | 5 | 757 | | |
| 393 | 6 | 763 | | |
| 394 | 4 | 767 | | |
| 395 | 2 | 769 | | |
| 396 | 17 | 786 | | |
| 397 | 3 | 789 | | |
| 398 | 3 | 792 | | |
| 399 | 8 | 800 | | |
| 400 | 13 | 813 | | |
| 401 | 14 | 827 | | |
| 402 | 2 | 829 | | |
| 403 | 8 | 837 | | |
| 404 | 3 | 840 | | |
| 405 | 4 | 844 | | |
| 406 | 10 | 854 | | |
| 407 | 3 | 857 | | |
| 408 | 2 | 859 | | |
| 409 | 7 | 866 | | |
| 410 | 1 | 867 | | |
| 411 | 1 | 868 | | |
| 412 | 2 | 870 | | |
| 413 | 2 | 872 | | |
| 414 | 9 | 881 | | |
| 415 | 6 | 887 | | |
| 416 | 2 | 889 | | |
| 417 | 2 | 891 | | |
| 418 | 11 | 902 | | |
| 419 | 2 | 904 | | |
| 420 | 7 | 911 | | |
| 421 | 2 | 913 | | |
| 422 | 3 | 916 | | |
| 423 | 2 | 918 | | |
| 424 | 1 | 919 | | |
| 425 | 2 | 921 | | |
| 426 | 11 | 932 | | |
| 427 | 2 | 934 | | |
| 428 | 3 | 937 | | |
| 429 | 1 | 938 | | |
| 430 | 14 | 952 | | |
| 431 | 4 | 956 | | |
| 432 | 4 | 960 | | |
| 433 | 16 | 976 | | |
| 434 | 3 | 979 | | |
| 435 | 13 | 992 | | |
| 436 | 10 | 1002 | | |
| 437 | 12 | 1014 | | |
| 438 | 3 | 1017 | | |
| 439 | 17 | 1034 | | |
| 440 | 3 | 1037 | | |
| 441 | 18 | 1055 | | |
| 442 | 19 | 1074 | | |
| 443 | 4 | 1078 | | |
| 444 | 3 | 1081 | | |
| 445 | 4 | 1085 | | |
| 446 | 7 | 1092 | | |
| 447 | 8 | 1100 | | |
| 448 | 19 | 1119 | | |
| 449 | 4 | 1123 | | |
| 450 | 5 | 1128 | | |
| 451 | 3 | 1131 | | |
| 452 | 2 | 1133 | | |
| 453 | 3 | 1136 | | |
| 454 | 43 | 1179 | | |
| 455 | 12 | 1191 | | |
| 456 | 7 | 1198 | | |
| 457 | 3 | 1201 | | |
| 458 | 8 | 1209 | | |
| 459 | 2 | 1211 | | |
| 460 | 8 | 1219 | | |
| 461 | 45 | 1264 | | |
| 462 | 3 | 1267 | | |
| 463 | 5 | 1272 | | |
| 464 | 26 | 1298 | | |
| 465 | 1 | 1299 | | |
| 466 | 11 | 1310 | | |
| 467 | 16 | 1326 | | |
| 468 | 1 | 1327 | | |
| 469 | 7 | 1334 | | |
| 470 | 49 | 1383 | | |
| 471 | 14 | 1397 | | |
| 472 | 1 | 1398 | | |
| 473 | 45 | 1443 | | |
| 474 | 4 | 1447 | | |
| 475 | 3 | 1450 | | |
| 476 | 30 | 1480 | | |
| 477 | 29 | 1509 | | |
| 478 | 11 | 1520 | | |
| 479 | 55 | 1575 | | |
| 480 | 36 | 1611 | | |
| 481 | 13 | 1624 | | |
| 482 | 66 | 1690 | | |
| 483 | 12 | 1702 | | |
| 484 | 79 | 1781 | | |
| 485 | 2 | 1783 | | |
| 486 | 19 | 1802 | | |
| 487 | 34 | 1836 | | |
| 488 | 2 | 1838 | | |
| 489 | 59 | 1897 | | |
| 490 | 22 | 1919 | | |
| 491 | 3 | 1922 | | |
| 492 | 13 | 1935 | | |
| 493 | 11 | 1946 | | |
| 494 | 86 | 2032 | | |
| 495 | 193 | 2225 | | |
| 496 | 67 | 2292 | | |
| 497 | 16 | 2308 | | |
| 498 | 51 | 2359 | | |
| 499 | 188 | 2547 | | |
'------+--------+----------+--------+----------'</code>

Revision as of 10:56, 6 July 2015

Title:Forging Perl Script
Author:XYGON
Compatibility:#UNDEFINED#

Used with scriptname.pl <CharacterName> Returns how many attempts were made to forge for each rank.

use strict;
use warnings;
use DBI;

my(%previous_inventory);
my(%current_inventory);

parse_logs();

sub get_sorted_files {
   my $path = shift;
   opendir my($dir), $path or die "can't opendir $path: $!";
   my %hash = map {$_ => (stat($_))[9] || undef} # avoid empty list
           map  { "$path$_" }
           readdir $dir;
   closedir $dir;
   return %hash;
}

sub parse_logs {
  my($charname) = $ARGV[0];
  # FOR NOW - delete all data prior to starting

  print "Parsing logs\n";
  my @arRank;
  my $curRank = 1;
  
  my %files = get_sorted_files("./");
  STDOUT->autoflush( 1 );
  foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {

    next if ($filename !~ /$charname*/);

    open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";

    while (my $line = <$logfile>) {
      chomp $line;

      if ($line =~ /180 sec/) { 
        # print "\nInventory update - $filename\t", scalar localtime($files{$filename}), "\n";
        $arRank[$curRank] += 1;

      } elsif ($line =~ /Aha, you learned something that time./) {
        $curRank += 1;
      }
    }
  }

  use Text::ASCIITable;
  my($t) = Text::ASCIITable->new({ headingText => 'Attempts Per Rank' });
  if ($curRank > 1000) {
    $t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt','ToNext','TotalAtt');
  } elsif ($curRank > 500) {
    $t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt');
  } elsif ($curRank <= 500) {
    $t->setCols('Rank','ToNext','TotalAtt');
  }

  my(@arSum) = ();
  for (my $i=1; $i <= $curRank; $i++) {
    if ($i + 1000 <= $curRank) {      
      $arSum[2] += $arRank[$i+1000];
      $arSum[1] += $arRank[$i+500];
      $arSum[0] += $arRank[$i];
      $t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1],$arRank[$i+1000],$arSum[2]);
    } elsif ($i + 500 <= $curRank) {
      $arSum[1] += $arRank[$i+500];
      $arSum[0] += $arRank[$i];
      $t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1]);
    } else {
      $arSum[0] += $arRank[$i];
      $t->addRow($i,$arRank[$i],$arSum[0]);
    }
    if ($i == 499) { $curRank = 0; }
  }
  print $t;
}