00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
000003A8
000003C0
000003D8
000003F0
00000408
00000420
00000438
00000450
00000468
00000480
00000498
000004B0
000004C8
000004E0
000004F8
00000510
00000528
00000540
00000558
00000570
00000588
000005A0
000005B8
000005D0
000005E8
00000600
00000618
00000630
00000648
00000660
00000678
00000690
000006A8
000006C0
000006D8
000006F0
00000708
00000720
00000738
00000750
00000768
00000780
00000798
000007B0
000007C8
000007E0
000007F8
00000810
00000828
00000840
00000858
00000870
00000888
000008A0
000008B8
000008D0
000008E8
00000900
00000918
00000930
00000948
00000960
00000978
00000990
000009A8
000009C0
000009D8
000009F0
00000A08
00000A20
00000A38
00000A50
00000A68
00000A80
00000A98
00000AB0
00000AC8
00000AE0
00000AF8
00000B10
00000B28
00000B40
00000B58
00000B70
00000B88
00000BA0
00000BB8
00000BD0
00000BE8
00000C00
00000C18
00000C30
00000C48
00000C60
00000C78
00000C90
00000CA8
00000CC0
00000CD8
00000CF0
00000D08
00000D20
00000D38
00000D50
00000D68
00000D80
00000D98
00000DB0
00000DC8
00000DE0
00000DF8
00000E10
00000E28
00000E40
00000E58
00000E70
00000E88
00000EA0
00000EB8
00000ED0
00000EE8
00000F00
00000F18
00000F30
00000F48
00000F60
00000F78
00000F90
00000FA8
00000FC0
00000FD8
00000FF0
00001008
00001020
00001038
00001050
00001068
00001080
00001098
000010B0
000010C8
000010E0
000010F8
00001110
00001128
00001140
00001158
00001170
00001188
000011A0
000011B8
000011D0
000011E8
00001200
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 0A 65 76 61 6C 20 27 65
78 65 63 20 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 20 20 2D 53 20 24 30
20 24 7B 31 2B 22 24 40 22 7D 27 0A 20 20 20 20 69 66 20 30 3B 20 23 20
6E 6F 74 20 72 75 6E 6E 69 6E 67 20 75 6E 64 65 72 20 73 6F 6D 65 20 73
68 65 6C 6C 0A 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 0A 6D 79 20 24 56
45 52 53 49 4F 4E 20 3D 20 22 31 2E 30 22 3B 0A 0A 75 73 65 20 44 42 49
3A 3A 50 72 6F 66 69 6C 65 44 61 74 61 3B 0A 75 73 65 20 47 65 74 6F 70
74 3A 3A 4C 6F 6E 67 3B 0A 0A 23 20 64 65 66 61 75 6C 74 20 6F 70 74 69
6F 6E 73 0A 6D 79 20 24 6E 75 6D 62 65 72 20 20 20 20 20 20 20 20 20 3D
20 31 30 3B 0A 6D 79 20 24 73 6F 72 74 20 20 20 20 20 20 20 20 20 20 20
3D 20 27 74 6F 74 61 6C 27 3B 0A 6D 79 20 24 66 69 6C 65 6E 61 6D 65 20
20 20 20 20 20 20 3D 20 27 64 62 69 2E 70 72 6F 66 27 3B 0A 6D 79 20 24
72 65 76 65 72 73 65 20 20 20 20 20 20 20 20 3D 20 30 3B 0A 6D 79 20 24
63 61 73 65 5F 73 65 6E 73 69 74 69 76 65 20 3D 20 30 3B 0A 6D 79 20 28
25 6D 61 74 63 68 2C 20 25 65 78 63 6C 75 64 65 29 3B 0A 0A 23 20 67 65
74 20 6F 70 74 69 6F 6E 73 20 66 72 6F 6D 20 63 6F 6D 6D 61 6E 64 20 6C
69 6E 65 0A 47 65 74 4F 70 74 69 6F 6E 73 28 0A 20 20 20 20 20 20 20 20
20 20 20 27 76 65 72 73 69 6F 6E 27 20 20 20 20 20 20 20 20 3D 3E 20 73
75 62 20 7B 20 64 69 65 20 22 64 62 69 70 72 6F 66 20 24 56 45 52 53 49
4F 4E 5C 6E 22 3B 20 7D 2C 0A 20 20 20 20 20 20 20 20 20 20 20 27 6E 75
6D 62 65 72 3D 69 27 20 20 20 20 20 20 20 3D 3E 20 5C 24 6E 75 6D 62 65
72 2C 0A 20 20 20 20 20 20 20 20 20 20 20 27 73 6F 72 74 3D 73 27 20 20
20 20 20 20 20 20 20 3D 3E 20 5C 24 73 6F 72 74 2C 0A 20 20 20 20 20 20
20 20 20 20 20 27 72 65 76 65 72 73 65 27 20 20 20 20 20 20 20 20 3D 3E
20 5C 24 72 65 76 65 72 73 65 2C 0A 20 20 20 20 20 20 20 20 20 20 20 27
6D 61 74 63 68 3D 73 27 20 20 20 20 20 20 20 20 3D 3E 20 5C 25 6D 61 74
63 68 2C 0A 20 20 20 20 20 20 20 20 20 20 20 27 65 78 63 6C 75 64 65 3D
73 27 20 20 20 20 20 20 3D 3E 20 5C 25 65 78 63 6C 75 64 65 2C 0A 20 20
20 20 20 20 20 20 20 20 20 27 63 61 73 65 2D 73 65 6E 73 69 74 69 76 65
27 20 3D 3E 20 5C 24 63 61 73 65 5F 73 65 6E 73 69 74 69 76 65 2C 0A 20
20 20 20 20 20 20 20 20 20 29 3B 0A 0A 23 20 6C 69 73 74 20 6F 66 20 66
69 6C 65 73 20 64 65 66 61 75 6C 74 73 20 74 6F 20 64 62 69 2E 70 72 6F
66 0A 6D 79 20 40 66 69 6C 65 73 20 3D 20 40 41 52 47 56 20 3F 20 40 41
52 47 56 20 3A 20 28 27 64 62 69 2E 70 72 6F 66 27 29 3B 0A 0A 0A 23 20
69 6E 73 74 61 6E 74 69 61 74 65 20 50 72 6F 66 69 6C 65 44 61 74 61 20
6F 62 6A 65 63 74 0A 6D 79 20 24 70 72 6F 66 3B 0A 65 76 61 6C 20 7B 20
24 70 72 6F 66 20 3D 20 44 42 49 3A 3A 50 72 6F 66 69 6C 65 44 61 74 61
2D 3E 6E 65 77 28 46 69 6C 65 73 20 3D 3E 20 5C 40 66 69 6C 65 73 29 20
7D 3B 0A 64 69 65 20 22 55 6E 61 62 6C 65 20 74 6F 20 6C 6F 61 64 20 70
72 6F 66 69 6C 65 20 64 61 74 61 3A 20 24 40 5C 6E 22 20 69 66 20 24 40
3B 0A 0A 23 20 68 61 6E 64 6C 65 20 6D 61 74 63 68 65 73 0A 77 68 69 6C
65 20 28 6D 79 20 28 24 6B 65 79 2C 20 24 76 61 6C 29 20 3D 20 65 61 63
68 20 25 6D 61 74 63 68 29 20 7B 0A 20 20 20 20 69 66 20 28 24 76 61 6C
20 3D 7E 20 6D 21 5E 2F 28 2E 2B 29 2F 24 21 29 20 7B 0A 20 20 20 20 20
20 20 20 24 76 61 6C 20 3D 20 24 63 61 73 65 5F 73 65 6E 73 69 74 69 76
65 20 3F 20 71 72 2F 24 31 2F 20 3A 20 71 72 2F 24 31 2F 69 3B 0A 20 20
20 20 7D 20 0A 20 20 20 20 24 70 72 6F 66 2D 3E 6D 61 74 63 68 28 24 6B
65 79 2C 20 24 76 61 6C 2C 20 63 61 73 65 5F 73 65 6E 73 69 74 69 76 65
20 3D 3E 20 24 63 61 73 65 5F 73 65 6E 73 69 74 69 76 65 29 3B 0A 7D 0A
0A 23 20 68 61 6E 64 6C 65 20 65 78 63 6C 75 64 65 73 0A 77 68 69 6C 65
20 28 6D 79 20 28 24 6B 65 79 2C 20 24 76 61 6C 29 20 3D 20 65 61 63 68
20 25 65 78 63 6C 75 64 65 29 20 7B 0A 20 20 20 20 69 66 20 28 24 76 61
6C 20 3D 7E 20 6D 21 5E 2F 28 2E 2B 29 2F 24 21 29 20 7B 0A 20 20 20 20
20 20 20 20 24 76 61 6C 20 3D 20 24 63 61 73 65 5F 73 65 6E 73 69 74 69
76 65 20 3F 20 71 72 2F 24 31 2F 20 3A 20 71 72 2F 24 31 2F 69 3B 0A 20
20 20 20 7D 20 0A 20 20 20 20 24 70 72 6F 66 2D 3E 65 78 63 6C 75 64 65
28 24 6B 65 79 2C 20 24 76 61 6C 2C 20 63 61 73 65 5F 73 65 6E 73 69 74
69 76 65 20 3D 3E 20 24 63 61 73 65 5F 73 65 6E 73 69 74 69 76 65 29 3B
0A 7D 0A 0A 23 20 73 6F 72 74 20 74 68 65 20 64 61 74 61 0A 24 70 72 6F
66 2D 3E 73 6F 72 74 28 66 69 65 6C 64 20 3D 3E 20 24 73 6F 72 74 2C 20
72 65 76 65 72 73 65 20 3D 3E 20 24 72 65 76 65 72 73 65 29 3B 0A 0A 23
20 61 6C 6C 20 64 6F 6E 65 2C 20 70 72 69 6E 74 20 69 74 20 6F 75 74 0A
70 72 69 6E 74 20 24 70 72 6F 66 2D 3E 72 65 70 6F 72 74 28 6E 75 6D 62
65 72 20 3D 3E 20 24 6E 75 6D 62 65 72 29 3B 0A 65 78 69 74 20 30 3B 0A
0A 5F 5F 45 4E 44 5F 5F 0A 0A 3D 68 65 61 64 31 20 4E 41 4D 45 0A 0A 64
62 69 70 72 6F 66 20 2D 20 63 6F 6D 6D 61 6E 64 2D 6C 69 6E 65 20 63 6C
69 65 6E 74 20 66 6F 72 20 44 42 49 3A 3A 50 72 6F 66 69 6C 65 44 61 74
61 0A 0A 3D 68 65 61 64 31 20 53 59 4E 4F 50 53 49 53 0A 0A 53 65 65 20
61 20 72 65 70 6F 72 74 20 6F 66 20 74 68 65 20 74 65 6E 20 71 75 65 72
69 65 73 20 77 69 74 68 20 74 68 65 20 6C 6F 6E 67 65 73 74 20 74 6F 74
61 6C 20 72 75 6E 74 69 6D 65 20 69 6E 20 74 68 65 0A 70 72 6F 66 69 6C
65 20 64 75 6D 70 20 66 69 6C 65 20 46 3C 70 72 6F 66 31 2E 6F 75 74 3E
3A 0A 0A 20 64 62 69 70 72 6F 66 20 70 72 6F 66 31 2E 6F 75 74 0A 0A 53
65 65 20 74 68 65 20 74 6F 70 20 31 30 20 6D 6F 73 74 20 66 72 65 71 75
65 6E 74 6C 79 20 72 75 6E 20 71 75 65 72 69 65 73 20 69 6E 20 74 68 65
20 70 72 6F 66 69 6C 65 20 66 69 6C 65 0A 46 3C 64 62 69 2E 70 72 6F 66
3E 20 28 74 68 65 20 64 65 66 61 75 6C 74 29 3A 0A 0A 20 20 64 62 69 70
72 6F 66 20 2D 2D 73 6F 72 74 20 63 6F 75 6E 74 0A 0A 53 65 65 20 74 68
65 20 73 61 6D 65 20 72 65 70 6F 72 74 20 77 69 74 68 20 31 35 20 65 6E
74 72 69 65 73 3A 0A 0A 20 20 64 62 69 70 72 6F 66 20 2D 2D 73 6F 72 74
20 63 6F 75 6E 74 20 2D 2D 6E 75 6D 62 65 72 20 31 35 0A 0A 3D 68 65 61
64 31 20 44 45 53 43 52 49 50 54 49 4F 4E 0A 0A 54 68 69 73 20 74 6F 6F
6C 20 69 73 20 61 20 63 6F 6D 6D 61 6E 64 2D 6C 69 6E 65 20 63 6C 69 65
6E 74 20 66 6F 72 20 74 68 65 20 44 42 49 3A 3A 50 72 6F 66 69 6C 65 44
61 74 61 2E 20 20 49 74 0A 61 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 61
6E 61 6C 79 7A 65 20 74 68 65 20 70 72 6F 66 69 6C 65 20 64 61 74 61 20
66 69 6C 65 20 70 72 6F 64 75 63 65 64 20 62 79 0A 44 42 49 3A 3A 50 72
6F 66 69 6C 65 44 75 6D 70 65 72 20 61 6E 64 20 70 72 6F 64 75 63 65 20
76 61 72 69 6F 75 73 20 75 73 65 66 75 6C 20 72 65 70 6F 72 74 73 2E 0A
0A 3D 68 65 61 64 31 20 4F 50 54 49 4F 4E 53 0A 0A 54 68 69 73 20 70 72
6F 67 72 61 6D 20 61 63 63 65 70 74 73 20 74 68 65 20 66 6F 6C 6C 6F 77
69 6E 67 20 6F 70 74 69 6F 6E 73 3A 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D
69 74 65 6D 20 2D 2D 6E 75 6D 62 65 72 20 4E 0A 0A 50 72 6F 64 75 63 65
20 74 68 69 73 20 6D 61 6E 79 20 69 74 65 6D 73 20 69 6E 20 74 68 65 20
72 65 70 6F 72 74 2E 20 20 44 65 66 61 75 6C 74 73 20 74 6F 20 31 30 2E
20 20 49 66 20 73 65 74 20 74 6F 0A 22 61 6C 6C 22 20 74 68 65 6E 20 61
6C 6C 20 72 65 73 75 6C 74 73 20 61 72 65 20 73 68 6F 77 6E 2E 0A 0A 3D
69 74 65 6D 20 2D 2D 73 6F 72 74 20 66 69 65 6C 64 0A 0A 53 6F 72 74 20
72 65 73 75 6C 74 73 20 62 79 20 74 68 65 20 67 69 76 65 6E 20 66 69 65
6C 64 2E 20 20 54 68 65 20 61 76 61 69 6C 61 62 6C 65 20 73 6F 72 74 20
66 69 65 6C 64 73 20 61 72 65 3A 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69
74 65 6D 20 74 6F 74 61 6C 0A 0A 53 6F 72 74 73 20 62 79 20 74 6F 74 61
6C 20 74 69 6D 65 20 72 75 6E 20 74 69 6D 65 20 61 63 72 6F 73 73 20 61
6C 6C 20 72 75 6E 73 2E 20 20 54 68 69 73 20 69 73 20 74 68 65 20 64 65
66 61 75 6C 74 0A 73 6F 72 74 2E 0A 0A 3D 69 74 65 6D 20 6C 6F 6E 67 65
73 74 0A 0A 53 6F 72 74 73 20 62 79 20 74 68 65 20 6C 6F 6E 67 65 73 74
20 73 69 6E 67 6C 65 20 72 75 6E 2E 0A 0A 3D 69 74 65 6D 20 63 6F 75 6E
74 0A 0A 53 6F 72 74 73 20 62 79 20 74 6F 74 61 6C 20 6E 75 6D 62 65 72
20 6F 66 20 72 75 6E 73 2E 0A 0A 3D 69 74 65 6D 20 66 69 72 73 74 0A 0A
53 6F 72 74 73 20 62 79 20 74 68 65 20 74 69 6D 65 20 74 61 6B 65 6E 20
69 6E 20 74 68 65 20 66 69 72 73 74 20 72 75 6E 2E 0A 0A 3D 69 74 65 6D
20 73 68 6F 72 74 65 73 74 0A 0A 53 6F 72 74 73 20 62 79 20 74 68 65 20
73 68 6F 72 74 65 73 74 20 73 69 6E 67 6C 65 20 72 75 6E 2E 0A 0A 3D 62
61 63 6B 0A 0A 3D 69 74 65 6D 20 2D 2D 72 65 76 65 72 73 65 0A 0A 52 65
76 65 72 73 65 73 20 74 68 65 20 73 65 6C 65 63 74 65 64 20 73 6F 72 74
2E 20 20 46 6F 72 20 65 78 61 6D 70 6C 65 2C 20 74 6F 20 73 65 65 20 61
20 72 65 70 6F 72 74 20 6F 66 20 74 68 65 0A 73 68 6F 72 74 65 73 74 20
6F 76 65 72 61 6C 6C 20 74 69 6D 65 3A 0A 0A 20 20 64 62 69 70 72 6F 66
20 2D 2D 73 6F 72 74 20 74 6F 74 61 6C 20 2D 2D 72 65 76 65 72 73 65 0A
0A 3D 69 74 65 6D 20 2D 2D 6D 61 74 63 68 20 6B 65 79 4E 3D 76 61 6C 75
65 0A 0A 43 6F 6E 73 69 64 65 72 20 6F 6E 6C 79 20 69 74 65 6D 73 20 77
68 65 72 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6B 65 79 20 6D
61 74 63 68 65 73 20 74 68 65 20 67 69 76 65 6E 20 76 61 6C 75 65 2E 0A
4B 65 79 73 20 61 72 65 20 6E 75 6D 62 65 72 65 64 20 66 72 6F 6D 20 31
2E 20 20 46 6F 72 20 65 78 61 6D 70 6C 65 2C 20 6C 65 74 27 73 20 73 61
79 20 79 6F 75 20 75 73 65 64 20 61 0A 44 42 49 3A 3A 50 72 6F 66 69 6C
65 20 50 61 74 68 20 6F 66 3A 0A 0A 20 20 5B 20 44 42 49 70 72 6F 66 69
6C 65 5F 53 74 61 74 65 6D 65 6E 74 2C 20 44 42 49 70 72 6F 66 69 6C 65
5F 4D 65 74 68 6F 64 6E 61 6D 65 20 5D 0A 0A 41 6E 64 20 63 61 6C 6C 65
64 20 64 62 69 70 72 6F 66 20 61 73 20 69 6E 3A 0A 0A 20 20 64 62 69 70
72 6F 66 20 2D 2D 6D 61 74 63 68 20 6B 65 79 32 3D 65 78 65 63 75 74 65
0A 0A 59 6F 75 72 20 72 65 70 6F 72 74 20 77 6F 75 6C 64 20 6F 6E 6C 79
20 73 68 6F 77 20 65 78 65 63 75 74 65 20 71 75 65 72 69 65 73 2C 20 6C
65 61 76 69 6E 67 20 6F 75 74 20 70 72 65 70 61 72 65 73 2C 0A 66 65 74
63 68 65 73 2C 20 65 74 63 2E 0A 0A 49 66 20 74 68 65 20 76 61 6C 75 65
20 67 69 76 65 6E 20 73 74 61 72 74 73 20 61 6E 64 20 65 6E 64 73 20 77
69 74 68 20 73 6C 61 73 68 65 73 20 28 43 3C 2F 3E 29 20 74 68 65 6E 20
69 74 20 77 69 6C 6C 20 62 65 0A 74 72 65 61 74 65 64 20 61 73 20 61 20
72 65 67 75 6C 61 72 20 65 78 70 72 65 73 73 69 6F 6E 2E 20 20 46 6F 72
20 65 78 61 6D 70 6C 65 2C 20 74 6F 20 6F 6E 6C 79 20 69 6E 63 6C 75 64
65 20 53 45 4C 45 43 54 0A 71 75 65 72 69 65 73 20 77 68 65 72 65 20 6B
65 79 31 20 69 73 20 74 68 65 20 73 74 61 74 65 6D 65 6E 74 3A 0A 0A 20
20 64 62 69 70 72 6F 66 20 2D 2D 6D 61 74 63 68 20 6B 65 79 31 3D 2F 5E
53 45 4C 45 43 54 2F 0A 0A 42 79 20 64 65 66 61 75 6C 74 20 74 68 65 20
6D 61 74 63 68 20 65 78 70 72 65 73 73 69 6F 6E 20 69 73 20 6D 61 74 63
68 65 64 20 63 61 73 65 2D 69 6E 73 65 6E 73 69 74 69 76 65 6C 79 2C 20
62 75 74 0A 74 68 69 73 20 63 61 6E 20 62 65 20 63 68 61 6E 67 65 64 20
77 69 74 68 20 74 68 65 20 2D 2D 63 61 73 65 2D 73 65 6E 73 69 74 69 76
65 20 6F 70 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2D 2D 65 78 63 6C 75
64 65 20 6B 65 79 4E 3D 76 61 6C 75 65 0A 0A 52 65 6D 6F 76 65 20 69 74
65 6D 73 20 66 6F 72 20 77 68 65 72 65 20 74 68 65 20 73 70 65 63 69 66
69 65 64 20 6B 65 79 20 6D 61 74 63 68 65 73 20 74 68 65 20 67 69 76 65
6E 20 76 61 6C 75 65 2E 20 20 46 6F 72 0A 65 78 61 6D 70 6C 65 2C 20 74
6F 20 65 78 63 6C 75 64 65 20 61 6C 6C 20 70 72 65 70 61 72 65 20 65 6E
74 72 69 65 73 20 77 68 65 72 65 20 6B 65 79 32 20 69 73 20 74 68 65 20
6D 65 74 68 6F 64 20 6E 61 6D 65 3A 0A 0A 20 20 64 62 69 70 72 6F 66 20
2D 2D 65 78 63 6C 75 64 65 20 6B 65 79 32 3D 70 72 65 70 61 72 65 0A 0A
4C 69 6B 65 20 43 3C 2D 2D 6D 61 74 63 68 3E 2C 20 49 66 20 74 68 65 20
76 61 6C 75 65 20 67 69 76 65 6E 20 73 74 61 72 74 73 20 61 6E 64 20 65
6E 64 73 20 77 69 74 68 20 73 6C 61 73 68 65 73 0A 28 43 3C 2F 3E 29 20
74 68 65 6E 20 69 74 20 77 69 6C 6C 20 62 65 20 74 72 65 61 74 65 64 20
61 73 20 61 20 72 65 67 75 6C 61 72 20 65 78 70 72 65 73 73 69 6F 6E 2E
20 20 46 6F 72 20 65 78 61 6D 70 6C 65 2C 0A 74 6F 20 65 78 63 6C 75 64
65 20 55 50 44 41 54 45 20 71 75 65 72 69 65 73 20 77 68 65 72 65 20 6B
65 79 31 20 69 73 20 74 68 65 20 73 74 61 74 65 6D 65 6E 74 3A 0A 0A 20
20 64 62 69 70 72 6F 66 20 2D 2D 6D 61 74 63 68 20 6B 65 79 31 3D 2F 5E
55 50 44 41 54 45 2F 0A 0A 42 79 20 64 65 66 61 75 6C 74 20 74 68 65 20
65 78 63 6C 75 64 65 20 65 78 70 72 65 73 73 69 6F 6E 20 69 73 20 6D 61
74 63 68 65 64 20 63 61 73 65 2D 69 6E 73 65 6E 73 69 74 69 76 65 6C 79
2C 20 62 75 74 0A 74 68 69 73 20 63 61 6E 20 62 65 20 63 68 61 6E 67 65
64 20 77 69 74 68 20 74 68 65 20 2D 2D 63 61 73 65 2D 73 65 6E 73 69 74
69 76 65 20 6F 70 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2D 2D 63 61 73
65 2D 73 65 6E 73 69 74 69 76 65 0A 0A 55 73 69 6E 67 20 74 68 69 73 20
6F 70 74 69 6F 6E 20 63 61 75 73 65 73 20 2D 2D 6D 61 74 63 68 20 61 6E
64 20 2D 2D 65 78 63 6C 75 64 65 20 74 6F 20 77 6F 72 6B 0A 63 61 73 65
2D 73 65 6E 73 69 74 69 76 65 6C 79 2E 20 20 44 65 66 61 75 6C 74 73 20
74 6F 20 6F 66 66 2E 0A 0A 3D 69 74 65 6D 20 2D 2D 76 65 72 73 69 6F 6E
0A 0A 50 72 69 6E 74 20 74 68 65 20 64 62 69 70 72 6F 66 20 76 65 72 73
69 6F 6E 20 6E 75 6D 62 65 72 20 61 6E 64 20 65 78 69 74 2E 0A 0A 3D 62
61 63 6B 0A 0A 3D 68 65 61 64 31 20 41 55 54 48 4F 52 0A 0A 53 61 6D 20
54 72 65 67 61 72 20 3C 73 61 6D 40 74 72 65 67 61 72 2E 63 6F 6D 3E 0A
0A 3D 68 65 61 64 31 20 43 4F 50 59 52 49 47 48 54 20 41 4E 44 20 4C 49
43 45 4E 53 45 0A 0A 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30
32 20 53 61 6D 20 54 72 65 67 61 72 0A 0A 54 68 69 73 20 70 72 6F 67 72
61 6D 20 69 73 20 66 72 65 65 20 73 6F 66 74 77 61 72 65 3B 20 79 6F 75
20 63 61 6E 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6E 64
2F 6F 72 20 6D 6F 64 69 66 79 0A 69 74 20 75 6E 64 65 72 20 74 68 65 20
73 61 6D 65 20 74 65 72 6D 73 20 61 73 20 50 65 72 6C 20 35 20 69 74 73
65 6C 66 2E 0A 0A 3D 68 65 61 64 31 20 53 45 45 20 41 4C 53 4F 0A 0A 4C
3C 44 42 49 3A 3A 50 72 6F 66 69 6C 65 44 75 6D 70 65 72 7C 44 42 49 3A
3A 50 72 6F 66 69 6C 65 44 75 6D 70 65 72 3E 2C 0A 4C 3C 44 42 49 3A 3A
50 72 6F 66 69 6C 65 7C 44 42 49 3A 3A 50 72 6F 66 69 6C 65 3E 2C 20 4C
3C 44 42 49 7C 44 42 49 3E 2E 0A 0A 3D 63 75 74 0A 0A | #!/usr/bin/perl eval 'e
xec /usr/bin/perl -S $0
${1+"$@"}' if 0; #
not running under some s
hell use strict; my $V
ERSION = "1.0"; use DBI
::ProfileData; use Getop
t::Long; # default opti
ons my $number =
10; my $sort
= 'total'; my $filename
= 'dbi.prof'; my $
reverse = 0; my $
case_sensitive = 0; my (
%match, %exclude); # ge
t options from command l
ine GetOptions(
'version' => s
ub { die "dbiprof $VERSI
ON\n"; }, 'nu
mber=i' => \$numbe
r, 'sort=s'
=> \$sort,
'reverse' =>
\$reverse, '
match=s' => \%mat
ch, 'exclude=
s' => \%exclude,
'case-sensitive
' => \$case_sensitive,
); # list of f
iles defaults to dbi.pro
f my @files = @ARGV ? @A
RGV : ('dbi.prof'); #
instantiate ProfileData
object my $prof; eval {
$prof = DBI::ProfileData
->new(Files => \@files)
}; die "Unable to load p
rofile data: $@\n" if $@
; # handle matches whil
e (my ($key, $val) = eac
h %match) { if ($val
=~ m!^/(.+)/$!) {
$val = $case_sensitiv
e ? qr/$1/ : qr/$1/i;
} $prof->match($k
ey, $val, case_sensitive
=> $case_sensitive); }
# handle excludes while
(my ($key, $val) = each
%exclude) { if ($va
l =~ m!^/(.+)/$!) {
$val = $case_sensiti
ve ? qr/$1/ : qr/$1/i;
} $prof->exclude
($key, $val, case_sensit
ive => $case_sensitive);
} # sort the data $pro
f->sort(field => $sort,
reverse => $reverse); #
all done, print it out
print $prof->report(numb
er => $number); exit 0;
__END__ =head1 NAME d
biprof - command-line cl
ient for DBI::ProfileDat
a =head1 SYNOPSIS See
a report of the ten quer
ies with the longest tot
al runtime in the profil
e dump file F<prof1.out>
: dbiprof prof1.out S
ee the top 10 most frequ
ently run queries in the
profile file F<dbi.prof
> (the default): dbip
rof --sort count See th
e same report with 15 en
tries: dbiprof --sort
count --number 15 =hea
d1 DESCRIPTION This too
l is a command-line clie
nt for the DBI::ProfileD
ata. It allows you to a
nalyze the profile data
file produced by DBI::Pr
ofileDumper and produce
various useful reports.
=head1 OPTIONS This pr
ogram accepts the follow
ing options: =over 4 =
item --number N Produce
this many items in the
report. Defaults to 10.
If set to "all" then a
ll results are shown. =
item --sort field Sort
results by the given fie
ld. The available sort
fields are: =over 4 =i
tem total Sorts by tota
l time run time across a
ll runs. This is the de
fault sort. =item longe
st Sorts by the longest
single run. =item coun
t Sorts by total number
of runs. =item first
Sorts by the time taken
in the first run. =item
shortest Sorts by the
shortest single run. =b
ack =item --reverse Re
verses the selected sort
. For example, to see a
report of the shortest
overall time: dbiprof
--sort total --reverse
=item --match keyN=valu
e Consider only items w
here the specified key m
atches the given value.
Keys are numbered from 1
. For example, let's sa
y you used a DBI::Profil
e Path of: [ DBIprofi
le_Statement, DBIprofile
_Methodname ] And calle
d dbiprof as in: dbip
rof --match key2=execute
Your report would only
show execute queries, l
eaving out prepares, fet
ches, etc. If the value
given starts and ends w
ith slashes (C</>) then
it will be treated as a
regular expression. For
example, to only includ
e SELECT queries where k
ey1 is the statement:
dbiprof --match key1=/^
SELECT/ By default the
match expression is matc
hed case-insensitively,
but this can be changed
with the --case-sensitiv
e option. =item --exclu
de keyN=value Remove it
ems for where the specif
ied key matches the give
n value. For example, t
o exclude all prepare en
tries where key2 is the
method name: dbiprof
--exclude key2=prepare
Like C<--match>, If the
value given starts and e
nds with slashes (C</>)
then it will be treated
as a regular expression.
For example, to exclud
e UPDATE queries where k
ey1 is the statement:
dbiprof --match key1=/^
UPDATE/ By default the
exclude expression is ma
tched case-insensitively
, but this can be change
d with the --case-sensit
ive option. =item --cas
e-sensitive Using this
option causes --match an
d --exclude to work case
-sensitively. Defaults
to off. =item --version
Print the dbiprof vers
ion number and exit. =b
ack =head1 AUTHOR Sam
Tregar <sam@tregar.com>
=head1 COPYRIGHT AND LI
CENSE Copyright (C) 200
2 Sam Tregar This progr
am is free software; you
can redistribute it and
/or modify it under the
same terms as Perl 5 its
elf. =head1 SEE ALSO L
<DBI::ProfileDumper|DBI:
:ProfileDumper>, L<DBI::
Profile|DBI::Profile>, L
<DBI|DBI>. =cut |