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 00001218 00001230 00001248 00001260 00001278 00001290 000012A8 000012C0 000012D8 000012F0 00001308 00001320 00001338 00001350 00001368 00001380 00001398 000013B0 000013C8 000013E0 000013F8 00001410 00001428 00001440 00001458 00001470 00001488 000014A0 000014B8 000014D0 000014E8 00001500 00001518 00001530 00001548 00001560 00001578 00001590 000015A8 000015C0 000015D8 000015F0 00001608 00001620 00001638 00001650 00001668 00001680 00001698 000016B0 000016C8
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 20 20 20 20 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 2D 53 20 24 30 20 24 7B 31 2B 22 24 40 22 7D 27 0A 09 69 66 20 24 72 75 6E 6E 69 6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65 6C 6C 3B 0A 23 21 2E 2F 70 65 72 6C 0A 23 20 24 49 64 3A 20 70 69 63 6F 6E 76 2C 76 20 32 2E 31 20 32 30 30 34 2F 31 30 2F 30 36 20 30 35 3A 30 37 3A 32 30 20 64 61 6E 6B 6F 67 61 69 20 45 78 70 20 24 0A 23 0A 75 73 65 20 35 2E 38 2E 30 3B 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 75 73 65 20 45 6E 63 6F 64 65 20 3B 0A 75 73 65 20 45 6E 63 6F 64 65 3A 3A 41 6C 69 61 73 3B 0A 6D 79 20 25 53 63 68 65 6D 65 20 3D 20 20 6D 61 70 20 7B 24 5F 20 3D 3E 20 31 7D 20 71 77 28 66 72 6F 6D 5F 74 6F 20 64 65 63 6F 64 65 5F 65 6E 63 6F 64 65 20 70 65 72 6C 69 6F 29 3B 0A 0A 75 73 65 20 46 69 6C 65 3A 3A 42 61 73 65 6E 61 6D 65 3B 0A 6D 79 20 24 6E 61 6D 65 20 3D 20 62 61 73 65 6E 61 6D 65 28 24 30 29 3B 0A 0A 75 73 65 20 47 65 74 6F 70 74 3A 3A 4C 6F 6E 67 20 71 77 28 3A 63 6F 6E 66 69 67 20 6E 6F 5F 69 67 6E 6F 72 65 5F 63 61 73 65 29 3B 0A 0A 6D 79 20 25 4F 70 74 3B 0A 0A 68 65 6C 70 28 29 0A 20 20 20 20 75 6E 6C 65 73 73 0A 20 20 20 20 20 20 47 65 74 4F 70 74 69 6F 6E 73 28 5C 25 4F 70 74 2C 0A 09 09 20 27 66 72 6F 6D 7C 66 3D 73 27 2C 0A 09 09 20 27 74 6F 7C 74 3D 73 27 2C 0A 09 09 20 27 6C 69 73 74 7C 6C 27 2C 0A 09 09 20 27 73 74 72 69 6E 67 7C 73 3D 73 27 2C 0A 09 09 20 27 63 68 65 63 6B 7C 43 3D 69 27 2C 0A 09 09 20 27 63 27 2C 0A 09 09 20 27 70 65 72 6C 71 71 7C 70 27 2C 0A 09 09 20 27 64 65 62 75 67 7C 44 27 2C 0A 09 09 20 27 73 63 68 65 6D 65 7C 53 3D 73 27 2C 0A 09 09 20 27 72 65 73 6F 6C 76 65 7C 72 3D 73 27 2C 0A 09 09 20 27 68 65 6C 70 27 2C 0A 09 09 20 29 3B 0A 0A 24 4F 70 74 7B 68 65 6C 70 7D 20 61 6E 64 20 68 65 6C 70 28 29 3B 0A 24 4F 70 74 7B 6C 69 73 74 7D 20 61 6E 64 20 6C 69 73 74 5F 65 6E 63 6F 64 69 6E 67 73 28 29 3B 0A 6D 79 20 24 6C 6F 63 61 6C 65 20 3D 20 24 45 4E 56 7B 4C 43 5F 43 54 59 50 45 7D 20 7C 7C 20 24 45 4E 56 7B 4C 43 5F 41 4C 4C 7D 20 7C 7C 20 24 45 4E 56 7B 4C 41 4E 47 7D 3B 0A 64 65 66 69 6E 65 64 20 24 4F 70 74 7B 72 65 73 6F 6C 76 65 7D 20 61 6E 64 20 72 65 73 6F 6C 76 65 5F 65 6E 63 6F 64 69 6E 67 28 24 4F 70 74 7B 72 65 73 6F 6C 76 65 7D 29 3B 0A 24 4F 70 74 7B 66 72 6F 6D 7D 20 7C 7C 20 24 4F 70 74 7B 74 6F 7D 20 7C 7C 20 68 65 6C 70 28 29 3B 0A 6D 79 20 24 66 72 6F 6D 20 3D 20 24 4F 70 74 7B 66 72 6F 6D 7D 20 7C 7C 20 24 6C 6F 63 61 6C 65 20 6F 72 20 68 65 6C 70 28 22 66 72 6F 6D 5F 65 6E 63 6F 64 69 6E 67 20 75 6E 73 70 65 63 69 66 69 65 64 22 29 3B 0A 6D 79 20 24 74 6F 20 20 20 3D 20 24 4F 70 74 7B 74 6F 7D 20 20 20 7C 7C 20 24 6C 6F 63 61 6C 65 20 6F 72 20 68 65 6C 70 28 22 74 6F 5F 65 6E 63 6F 64 69 6E 67 20 75 6E 73 70 65 63 69 66 69 65 64 22 29 3B 0A 24 4F 70 74 7B 73 74 72 69 6E 67 7D 20 61 6E 64 20 45 6E 63 6F 64 65 3A 3A 66 72 6F 6D 5F 74 6F 28 24 4F 70 74 7B 73 74 72 69 6E 67 7D 2C 20 24 66 72 6F 6D 2C 20 24 74 6F 29 20 61 6E 64 20 70 72 69 6E 74 20 24 4F 70 74 7B 73 74 72 69 6E 67 7D 20 61 6E 64 20 65 78 69 74 3B 0A 6D 79 20 24 73 63 68 65 6D 65 20 3D 20 65 78 69 73 74 73 20 24 53 63 68 65 6D 65 7B 24 4F 70 74 7B 53 63 68 65 6D 65 7D 7D 20 3F 20 24 4F 70 74 7B 53 63 68 65 6D 65 7D 20 3A 20 20 27 66 72 6F 6D 5F 74 6F 27 3B 0A 24 4F 70 74 7B 63 68 65 63 6B 7D 20 7C 7C 3D 20 24 4F 70 74 7B 63 7D 3B 0A 24 4F 70 74 7B 70 65 72 6C 71 71 7D 20 61 6E 64 20 24 4F 70 74 7B 63 68 65 63 6B 7D 20 3D 20 45 6E 63 6F 64 65 3A 3A 46 42 5F 50 45 52 4C 51 51 3B 0A 0A 69 66 20 28 24 4F 70 74 7B 64 65 62 75 67 7D 29 7B 0A 20 20 20 20 6D 79 20 24 63 66 72 6F 6D 20 3D 20 45 6E 63 6F 64 65 2D 3E 67 65 74 45 6E 63 6F 64 69 6E 67 28 24 66 72 6F 6D 29 2D 3E 6E 61 6D 65 3B 0A 20 20 20 20 6D 79 20 24 63 74 6F 20 20 20 3D 20 45 6E 63 6F 64 65 2D 3E 67 65 74 45 6E 63 6F 64 69 6E 67 28 24 74 6F 29 2D 3E 6E 61 6D 65 3B 0A 20 20 20 20 70 72 69 6E 74 20 3C 3C 22 45 4F 54 22 3B 0A 53 63 68 65 6D 65 3A 20 24 73 63 68 65 6D 65 0A 46 72 6F 6D 3A 20 20 20 24 66 72 6F 6D 20 3D 3E 20 24 63 66 72 6F 6D 0A 54 6F 3A 20 20 20 20 20 24 74 6F 20 3D 3E 20 24 63 74 6F 0A 45 4F 54 0A 7D 0A 0A 23 20 77 65 20 64 6F 20 6E 6F 74 20 75 73 65 20 3C 3E 20 28 6F 72 20 41 52 47 56 29 20 66 6F 72 20 74 68 65 20 73 61 6B 65 20 6F 66 20 62 69 6E 6D 6F 64 65 28 29 0A 40 41 52 47 56 20 6F 72 20 70 75 73 68 20 40 41 52 47 56 2C 20 5C 2A 53 54 44 49 4E 3B 20 0A 0A 75 6E 6C 65 73 73 20 28 24 73 63 68 65 6D 65 20 65 71 20 27 70 65 72 6C 69 6F 27 29 7B 0A 20 20 20 20 62 69 6E 6D 6F 64 65 20 53 54 44 4F 55 54 3B 0A 20 20 20 20 66 6F 72 20 6D 79 20 24 61 72 67 76 20 28 40 41 52 47 56 29 7B 0A 09 6D 79 20 24 69 66 68 20 3D 20 72 65 66 20 24 61 72 67 76 20 3F 20 24 61 72 67 76 20 3A 20 75 6E 64 65 66 3B 0A 09 24 69 66 68 20 6F 72 20 6F 70 65 6E 20 24 69 66 68 2C 20 22 3C 22 2C 20 24 61 72 67 76 20 6F 72 20 6E 65 78 74 3B 0A 09 62 69 6E 6D 6F 64 65 20 24 69 66 68 3B 0A 09 69 66 20 28 24 73 63 68 65 6D 65 20 65 71 20 27 66 72 6F 6D 5F 74 6F 27 29 7B 20 09 20 20 20 20 23 20 64 65 66 61 75 6C 74 0A 09 20 20 20 20 77 68 69 6C 65 28 3C 24 69 66 68 3E 29 7B 0A 09 09 45 6E 63 6F 64 65 3A 3A 66 72 6F 6D 5F 74 6F 28 24 5F 2C 20 24 66 72 6F 6D 2C 20 24 74 6F 2C 20 24 4F 70 74 7B 63 68 65 63 6B 7D 29 3B 20 0A 09 09 70 72 69 6E 74 3B 0A 09 20 20 20 20 7D 0A 09 7D 65 6C 73 69 66 20 28 24 73 63 68 65 6D 65 20 65 71 20 27 64 65 63 6F 64 65 5F 65 6E 63 6F 64 65 27 29 7B 20 23 20 73 74 65 70 2D 62 79 2D 73 74 65 70 0A 09 20 20 20 20 77 68 69 6C 65 28 3C 24 69 66 68 3E 29 7B 0A 09 09 6D 79 20 24 64 65 63 6F 64 65 64 20 3D 20 64 65 63 6F 64 65 28 24 66 72 6F 6D 2C 20 24 5F 2C 20 24 4F 70 74 7B 63 68 65 63 6B 7D 29 3B 0A 09 09 6D 79 20 24 65 6E 63 6F 64 65 64 20 3D 20 65 6E 63 6F 64 65 28 24 74 6F 2C 20 24 64 65 63 6F 64 65 64 29 3B 0A 09 09 70 72 69 6E 74 20 24 65 6E 63 6F 64 65 64 3B 0A 09 20 20 20 20 7D 0A 09 7D 20 65 6C 73 65 20 7B 20 23 20 77 6F 6E 27 74 20 72 65 61 63 68 0A 09 20 20 20 20 64 69 65 20 22 24 6E 61 6D 65 3A 20 75 6E 6B 6E 6F 77 6E 20 73 63 68 65 6D 65 3A 20 24 73 63 68 65 6D 65 22 3B 0A 09 7D 0A 20 20 20 20 7D 0A 7D 65 6C 73 65 7B 0A 20 20 20 20 23 20 4E 49 2D 53 20 66 61 76 6F 72 69 74 65 0A 20 20 20 20 62 69 6E 6D 6F 64 65 20 53 54 44 4F 55 54 20 3D 3E 20 22 72 61 77 3A 65 6E 63 6F 64 69 6E 67 28 24 74 6F 29 22 3B 0A 20 20 20 20 66 6F 72 20 6D 79 20 24 61 72 67 76 20 28 40 41 52 47 56 29 7B 0A 09 6D 79 20 24 69 66 68 20 3D 20 72 65 66 20 24 61 72 67 76 20 3F 20 24 61 72 67 76 20 3A 20 75 6E 64 65 66 3B 0A 09 24 69 66 68 20 6F 72 20 6F 70 65 6E 20 24 69 66 68 2C 20 22 3C 22 2C 20 24 61 72 67 76 20 6F 72 20 6E 65 78 74 3B 0A 09 62 69 6E 6D 6F 64 65 20 24 69 66 68 20 3D 3E 20 22 72 61 77 3A 65 6E 63 6F 64 69 6E 67 28 24 66 72 6F 6D 29 22 3B 0A 09 70 72 69 6E 74 20 77 68 69 6C 65 28 3C 24 69 66 68 3E 29 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 73 75 62 20 6C 69 73 74 5F 65 6E 63 6F 64 69 6E 67 73 7B 0A 20 20 20 20 70 72 69 6E 74 20 6A 6F 69 6E 28 22 5C 6E 22 2C 20 45 6E 63 6F 64 65 2D 3E 65 6E 63 6F 64 69 6E 67 73 28 22 3A 61 6C 6C 22 29 29 2C 20 22 5C 6E 22 3B 0A 20 20 20 20 65 78 69 74 20 30 3B 0A 7D 0A 0A 73 75 62 20 72 65 73 6F 6C 76 65 5F 65 6E 63 6F 64 69 6E 67 20 7B 0A 20 20 20 20 69 66 20 28 6D 79 20 24 61 6C 69 61 73 20 3D 20 45 6E 63 6F 64 65 3A 3A 72 65 73 6F 6C 76 65 5F 61 6C 69 61 73 28 24 5F 5B 30 5D 29 29 20 7B 0A 09 70 72 69 6E 74 20 24 61 6C 69 61 73 2C 20 22 5C 6E 22 3B 0A 09 65 78 69 74 20 30 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 77 61 72 6E 20 22 24 6E 61 6D 65 3A 20 24 5F 5B 30 5D 20 69 73 20 6E 6F 74 20 6B 6E 6F 77 6E 20 74 6F 20 45 6E 63 6F 64 65 5C 6E 22 3B 0A 09 65 78 69 74 20 31 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 73 75 62 20 68 65 6C 70 7B 0A 20 20 20 20 6D 79 20 24 6D 65 73 73 61 67 65 20 3D 20 73 68 69 66 74 3B 0A 20 20 20 20 24 6D 65 73 73 61 67 65 20 61 6E 64 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 24 6E 61 6D 65 20 65 72 72 6F 72 3A 20 24 6D 65 73 73 61 67 65 5C 6E 22 3B 0A 20 20 20 20 70 72 69 6E 74 20 53 54 44 45 52 52 20 3C 3C 22 45 4F 54 22 3B 0A 24 6E 61 6D 65 20 5B 2D 66 20 66 72 6F 6D 5F 65 6E 63 6F 64 69 6E 67 5D 20 5B 2D 74 20 74 6F 5F 65 6E 63 6F 64 69 6E 67 5D 20 5B 2D 73 20 73 74 72 69 6E 67 5D 20 5B 66 69 6C 65 73 2E 2E 2E 5D 0A 24 6E 61 6D 65 20 2D 6C 0A 24 6E 61 6D 65 20 2D 72 20 65 6E 63 6F 64 69 6E 67 5F 61 6C 69 61 73 0A 20 20 2D 6C 2C 2D 2D 6C 69 73 74 0A 20 20 20 20 20 6C 69 73 74 73 20 61 6C 6C 20 61 76 61 69 6C 61 62 6C 65 20 65 6E 63 6F 64 69 6E 67 73 0A 20 20 2D 72 2C 2D 2D 72 65 73 6F 6C 76 65 20 65 6E 63 6F 64 69 6E 67 5F 61 6C 69 61 73 0A 20 20 20 20 72 65 73 6F 6C 76 65 20 65 6E 63 6F 64 69 6E 67 20 74 6F 20 69 74 73 20 28 45 6E 63 6F 64 65 29 20 63 61 6E 6F 6E 69 63 61 6C 20 6E 61 6D 65 0A 20 20 2D 66 2C 2D 2D 66 72 6F 6D 20 66 72 6F 6D 5F 65 6E 63 6F 64 69 6E 67 20 20 0A 20 20 20 20 20 77 68 65 6E 20 6F 6D 69 74 74 65 64 2C 20 74 68 65 20 63 75 72 72 65 6E 74 20 6C 6F 63 61 6C 65 20 77 69 6C 6C 20 62 65 20 75 73 65 64 0A 20 20 2D 74 2C 2D 2D 74 6F 20 74 6F 5F 65 6E 63 6F 64 69 6E 67 20 20 20 20 0A 20 20 20 20 20 77 68 65 6E 20 6F 6D 69 74 74 65 64 2C 20 74 68 65 20 63 75 72 72 65 6E 74 20 6C 6F 63 61 6C 65 20 77 69 6C 6C 20 62 65 20 75 73 65 64 0A 20 20 2D 73 2C 2D 2D 73 74 72 69 6E 67 20 73 74 72 69 6E 67 20 20 20 20 20 20 20 20 20 0A 20 20 20 20 20 22 73 74 72 69 6E 67 22 20 77 69 6C 6C 20 62 65 20 74 68 65 20 69 6E 70 75 74 20 69 6E 73 74 65 61 64 20 6F 66 20 53 54 44 49 4E 20 6F 72 20 66 69 6C 65 73 0A 54 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 61 72 65 20 6D 61 69 6E 6C 79 20 6F 66 20 69 6E 74 65 72 65 73 74 20 74 6F 20 45 6E 63 6F 64 65 20 68 61 63 6B 65 72 73 3A 0A 20 20 2D 44 2C 2D 2D 64 65 62 75 67 20 20 20 20 20 20 20 20 20 20 73 68 6F 77 20 64 65 62 75 67 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 0A 20 20 2D 43 20 4E 20 7C 20 2D 63 20 7C 20 2D 70 20 20 20 20 20 20 63 68 65 63 6B 20 74 68 65 20 76 61 6C 69 64 69 74 79 20 6F 66 20 74 68 65 20 69 6E 70 75 74 0A 20 20 2D 53 2C 2D 2D 73 63 68 65 6D 65 20 73 63 68 65 6D 65 20 20 75 73 65 20 74 68 65 20 73 63 68 65 6D 65 20 66 6F 72 20 63 6F 6E 76 65 72 73 69 6F 6E 0A 45 4F 54 0A 20 20 65 78 69 74 3B 0A 7D 0A 0A 5F 5F 45 4E 44 5F 5F 0A 0A 3D 68 65 61 64 31 20 4E 41 4D 45 0A 0A 70 69 63 6F 6E 76 20 2D 2D 20 69 63 6F 6E 76 28 31 29 2C 20 72 65 69 6E 76 65 6E 74 65 64 20 69 6E 20 70 65 72 6C 0A 0A 3D 68 65 61 64 31 20 53 59 4E 4F 50 53 49 53 0A 0A 20 20 70 69 63 6F 6E 76 20 5B 2D 66 20 66 72 6F 6D 5F 65 6E 63 6F 64 69 6E 67 5D 20 5B 2D 74 20 74 6F 5F 65 6E 63 6F 64 69 6E 67 5D 20 5B 2D 73 20 73 74 72 69 6E 67 5D 20 5B 66 69 6C 65 73 2E 2E 2E 5D 0A 20 20 70 69 63 6F 6E 76 20 2D 6C 0A 20 20 70 69 63 6F 6E 76 20 5B 2D 43 20 4E 7C 2D 63 7C 2D 70 5D 0A 20 20 70 69 63 6F 6E 76 20 2D 53 20 73 63 68 65 6D 65 20 2E 2E 2E 0A 20 20 70 69 63 6F 6E 76 20 2D 72 20 65 6E 63 6F 64 69 6E 67 0A 20 20 70 69 63 6F 6E 76 20 2D 44 20 2E 2E 2E 0A 20 20 70 69 63 6F 6E 76 20 2D 68 0A 0A 3D 68 65 61 64 31 20 44 45 53 43 52 49 50 54 49 4F 4E 0A 0A 42 3C 70 69 63 6F 6E 76 3E 20 69 73 20 70 65 72 6C 20 76 65 72 73 69 6F 6E 20 6F 66 20 42 3C 69 63 6F 6E 76 3E 2C 20 61 20 63 68 61 72 61 63 74 65 72 20 65 6E 63 6F 64 69 6E 67 20 63 6F 6E 76 65 72 74 65 72 0A 77 69 64 65 6C 79 20 61 76 61 69 6C 61 62 6C 65 20 66 6F 72 20 76 61 72 69 6F 75 73 20 55 6E 69 78 65 6E 20 74 6F 64 61 79 2E 20 20 54 68 69 73 20 73 63 72 69 70 74 20 77 61 73 20 70 72 69 6D 61 72 69 6C 79 0A 61 20 74 65 63 68 6E 6F 6C 6F 67 79 20 64 65 6D 6F 6E 73 74 72 61 74 6F 72 20 66 6F 72 20 50 65 72 6C 20 35 2E 38 2E 30 2C 20 62 75 74 20 79 6F 75 20 63 61 6E 20 75 73 65 20 70 69 63 6F 6E 76 20 69 6E 20 74 68 65 0A 70 6C 61 63 65 20 6F 66 20 69 63 6F 6E 76 20 66 6F 72 20 76 69 72 74 75 61 6C 6C 79 20 61 6E 79 20 63 61 73 65 2E 0A 0A 70 69 63 6F 6E 76 20 63 6F 6E 76 65 72 74 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 65 6E 63 6F 64 69 6E 67 20 6F 66 20 65 69 74 68 65 72 20 53 54 44 49 4E 20 6F 72 20 66 69 6C 65 73 0A 73 70 65 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 61 72 67 75 6D 65 6E 74 20 61 6E 64 20 70 72 69 6E 74 73 20 6F 75 74 20 74 6F 20 53 54 44 4F 55 54 2E 0A 0A 48 65 72 65 20 69 73 20 74 68 65 20 6C 69 73 74 20 6F 66 20 6F 70 74 69 6F 6E 73 2E 20 20 45 61 63 68 20 6F 70 74 69 6F 6E 20 63 61 6E 20 62 65 20 69 6E 20 73 68 6F 72 74 20 66 6F 72 6D 61 74 20 28 2D 66 29 0A 6F 72 20 6C 6F 6E 67 20 28 2D 2D 66 72 6F 6D 29 2E 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69 74 65 6D 20 2D 66 2C 2D 2D 66 72 6F 6D 20 66 72 6F 6D 5F 65 6E 63 6F 64 69 6E 67 0A 0A 53 70 65 63 69 66 69 65 73 20 74 68 65 20 65 6E 63 6F 64 69 6E 67 20 79 6F 75 20 61 72 65 20 63 6F 6E 76 65 72 74 69 6E 67 20 66 72 6F 6D 2E 20 20 55 6E 6C 69 6B 65 20 42 3C 69 63 6F 6E 76 3E 2C 0A 74 68 69 73 20 6F 70 74 69 6F 6E 20 63 61 6E 20 62 65 20 6F 6D 69 74 74 65 64 2E 20 20 49 6E 20 73 75 63 68 20 63 61 73 65 73 2C 20 74 68 65 20 63 75 72 72 65 6E 74 20 6C 6F 63 61 6C 65 20 69 73 20 75 73 65 64 2E 0A 0A 3D 69 74 65 6D 20 2D 74 2C 2D 2D 74 6F 20 74 6F 5F 65 6E 63 6F 64 69 6E 67 0A 0A 53 70 65 63 69 66 69 65 73 20 74 68 65 20 65 6E 63 6F 64 69 6E 67 20 79 6F 75 20 61 72 65 20 63 6F 6E 76 65 72 74 69 6E 67 20 74 6F 2E 20 20 55 6E 6C 69 6B 65 20 42 3C 69 63 6F 6E 76 3E 2C 0A 74 68 69 73 20 6F 70 74 69 6F 6E 20 63 61 6E 20 62 65 20 6F 6D 69 74 74 65 64 2E 20 20 49 6E 20 73 75 63 68 20 63 61 73 65 73 2C 20 74 68 65 20 63 75 72 72 65 6E 74 20 6C 6F 63 61 6C 65 20 69 73 20 75 73 65 64 2E 0A 0A 54 68 65 72 65 66 6F 72 65 2C 20 77 68 65 6E 20 62 6F 74 68 20 2D 66 20 61 6E 64 20 2D 74 20 61 72 65 20 6F 6D 69 74 74 65 64 2C 20 42 3C 70 69 63 6F 6E 76 3E 20 6A 75 73 74 20 61 63 74 73 0A 6C 69 6B 65 20 42 3C 63 61 74 3E 2E 0A 0A 3D 69 74 65 6D 20 2D 73 2C 2D 2D 73 74 72 69 6E 67 20 49 3C 73 74 72 69 6E 67 3E 0A 0A 75 73 65 73 20 49 3C 73 74 72 69 6E 67 3E 20 69 6E 73 74 65 61 64 20 6F 66 20 66 69 6C 65 20 66 6F 72 20 74 68 65 20 73 6F 75 72 63 65 20 6F 66 20 74 65 78 74 2E 0A 0A 3D 69 74 65 6D 20 2D 6C 2C 2D 2D 6C 69 73 74 0A 0A 4C 69 73 74 73 20 61 6C 6C 20 61 76 61 69 6C 61 62 6C 65 20 65 6E 63 6F 64 69 6E 67 73 2C 20 6F 6E 65 20 70 65 72 20 6C 69 6E 65 2C 20 69 6E 20 63 61 73 65 2D 69 6E 73 65 6E 73 69 74 69 76 65 0A 6F 72 64 65 72 2E 20 20 4E 6F 74 65 20 74 68 61 74 20 6F 6E 6C 79 20 74 68 65 20 63 61 6E 6F 6E 69 63 61 6C 20 6E 61 6D 65 73 20 61 72 65 20 6C 69 73 74 65 64 3B 20 6D 61 6E 79 20 61 6C 69 61 73 65 73 0A 65 78 69 73 74 2E 20 20 46 6F 72 20 65 78 61 6D 70 6C 65 2C 20 74 68 65 20 6E 61 6D 65 73 20 61 72 65 20 63 61 73 65 2D 69 6E 73 65 6E 73 69 74 69 76 65 2C 20 61 6E 64 20 6D 61 6E 79 20 73 74 61 6E 64 61 72 64 0A 61 6E 64 20 63 6F 6D 6D 6F 6E 20 61 6C 69 61 73 65 73 20 77 6F 72 6B 2C 20 73 75 63 68 20 61 73 20 22 6C 61 74 69 6E 31 22 20 66 6F 72 20 22 49 53 4F 2D 38 38 35 39 2D 31 22 2C 20 6F 72 20 22 69 62 6D 38 35 30 22 0A 69 6E 73 74 65 61 64 20 6F 66 20 22 63 70 38 35 30 22 2C 20 6F 72 20 22 77 69 6E 6C 61 74 69 6E 31 22 20 66 6F 72 20 22 63 70 31 32 35 32 22 2E 20 20 53 65 65 20 4C 3C 45 6E 63 6F 64 65 3A 3A 53 75 70 70 6F 72 74 65 64 3E 0A 66 6F 72 20 61 20 66 75 6C 6C 20 64 69 73 63 75 73 73 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 2D 43 2C 2D 2D 63 68 65 63 6B 20 49 3C 4E 3E 0A 0A 43 68 65 63 6B 20 74 68 65 20 76 61 6C 69 64 69 74 79 20 6F 66 20 74 68 65 20 73 74 72 65 61 6D 20 69 66 20 49 3C 4E 3E 20 3D 20 31 2E 20 20 57 68 65 6E 20 49 3C 4E 3E 20 3D 20 2D 31 2C 20 73 6F 6D 65 74 68 69 6E 67 0A 69 6E 74 65 72 65 73 74 69 6E 67 20 68 61 70 70 65 6E 73 20 77 68 65 6E 20 69 74 20 65 6E 63 6F 75 6E 74 65 72 73 20 61 6E 20 69 6E 76 61 6C 69 64 20 63 68 61 72 61 63 74 65 72 2E 0A 0A 3D 69 74 65 6D 20 2D 63 0A 0A 53 61 6D 65 20 61 73 20 43 3C 2D 43 20 31 3E 2E 0A 0A 3D 69 74 65 6D 20 2D 70 2C 2D 2D 70 65 72 6C 71 71 0A 0A 53 61 6D 65 20 61 73 20 43 3C 2D 43 20 2D 31 3E 2E 0A 0A 3D 69 74 65 6D 20 2D 68 2C 2D 2D 68 65 6C 70 0A 0A 53 68 6F 77 20 75 73 61 67 65 2E 0A 0A 3D 69 74 65 6D 20 2D 44 2C 2D 2D 64 65 62 75 67 0A 0A 49 6E 76 6F 6B 65 73 20 64 65 62 75 67 67 69 6E 67 20 6D 6F 64 65 2E 20 20 50 72 69 6D 61 72 69 6C 79 20 66 6F 72 20 45 6E 63 6F 64 65 20 68 61 63 6B 65 72 73 2E 0A 0A 3D 69 74 65 6D 20 2D 53 2C 2D 2D 73 63 68 65 6D 65 20 73 63 68 65 6D 65 0A 0A 53 65 6C 65 63 74 73 20 77 68 69 63 68 20 73 63 68 65 6D 65 20 69 73 20 74 6F 20 62 65 20 75 73 65 64 20 66 6F 72 20 63 6F 6E 76 65 72 73 69 6F 6E 2E 20 20 41 76 61 69 6C 61 62 6C 65 20 73 63 68 65 6D 65 73 0A 61 72 65 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69 74 65 6D 20 66 72 6F 6D 5F 74 6F 0A 0A 55 73 65 73 20 45 6E 63 6F 64 65 3A 3A 66 72 6F 6D 5F 74 6F 20 66 6F 72 20 63 6F 6E 76 65 72 73 69 6F 6E 2E 20 20 54 68 69 73 20 69 73 20 74 68 65 20 64 65 66 61 75 6C 74 2E 0A 0A 3D 69 74 65 6D 20 64 65 63 6F 64 65 5F 65 6E 63 6F 64 65 0A 0A 49 6E 70 75 74 20 73 74 72 69 6E 67 73 20 61 72 65 20 64 65 63 6F 64 65 28 29 64 20 74 68 65 6E 20 65 6E 63 6F 64 65 28 29 64 2E 20 20 41 20 73 74 72 61 69 67 68 74 20 74 77 6F 2D 73 74 65 70 0A 69 6D 70 6C 65 6D 65 6E 74 61 74 69 6F 6E 2E 0A 0A 3D 69 74 65 6D 20 70 65 72 6C 69 6F 0A 0A 54 68 65 20 6E 65 77 20 70 65 72 6C 49 4F 20 6C 61 79 65 72 20 69 73 20 75 73 65 64 2E 20 20 4E 49 2D 53 27 20 66 61 76 6F 72 69 74 65 2E 0A 0A 3D 62 61 63 6B 0A 0A 4C 69 6B 65 20 74 68 65 20 49 3C 2D 44 3E 20 6F 70 74 69 6F 6E 2C 20 74 68 69 73 20 69 73 20 61 6C 73 6F 20 66 6F 72 20 45 6E 63 6F 64 65 20 68 61 63 6B 65 72 73 2E 0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 31 20 53 45 45 20 41 4C 53 4F 0A 0A 4C 3C 69 63 6F 6E 76 2F 31 3E 0A 4C 3C 6C 6F 63 61 6C 65 2F 33 3E 0A 4C 3C 45 6E 63 6F 64 65 3E 0A 4C 3C 45 6E 63 6F 64 65 3A 3A 53 75 70 70 6F 72 74 65 64 3E 0A 4C 3C 45 6E 63 6F 64 65 3A 3A 41 6C 69 61 73 3E 0A 4C 3C 50 65 72 6C 49 4F 3E 0A 0A 3D 63 75 74 0A | #!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $runni ng_under_some_shell; #!. /perl # $Id: piconv,v 2. 1 2004/10/06 05:07:20 da nkogai Exp $ # use 5.8.0 ; use strict; use Encode ; use Encode::Alias; my %Scheme = map {$_ => 1 } qw(from_to decode_enco de perlio); use File::B asename; my $name = base name($0); use Getopt::L ong qw(:config no_ignore _case); my %Opt; help( ) unless GetOp tions(\%Opt, 'from|f= s', 'to|t=s', 'lis t|l', 'string|s=s', 'check|C=i', 'c', 'perlqq|p', 'debug| D', 'scheme|S=s', 'resolve|r=s', 'help' , ); $Opt{help} and help(); $Opt{list} and l ist_encodings(); my $loc ale = $ENV{LC_CTYPE} || $ENV{LC_ALL} || $ENV{LAN G}; defined $Opt{resolve } and resolve_encoding($ Opt{resolve}); $Opt{from } || $Opt{to} || help(); my $from = $Opt{from} | | $locale or help("from_ encoding unspecified"); my $to = $Opt{to} || $locale or help("to_enc oding unspecified"); $Op t{string} and Encode::fr om_to($Opt{string}, $fro m, $to) and print $Opt{s tring} and exit; my $sch eme = exists $Scheme{$Op t{Scheme}} ? $Opt{Scheme } : 'from_to'; $Opt{che ck} ||= $Opt{c}; $Opt{pe rlqq} and $Opt{check} = Encode::FB_PERLQQ; if ( $Opt{debug}){ my $cf rom = Encode->getEncodin g($from)->name; my $ cto = Encode->getEncod ing($to)->name; prin t <<"EOT"; Scheme: $sche me From: $from => $cfr om To: $to => $cto E OT } # we do not use <> (or ARGV) for the sake of binmode() @ARGV or pu sh @ARGV, \*STDIN; unl ess ($scheme eq 'perlio' ){ binmode STDOUT; for my $argv (@ARGV){ my $ifh = ref $argv ? $argv : undef; $ifh or open $ifh, "<", $argv or next; binmode $ifh; i f ($scheme eq 'from_to') { # default wh ile(<$ifh>){ Encode::f rom_to($_, $from, $to, $ Opt{check}); print; } }elsif ($scheme e q 'decode_encode'){ # st ep-by-step while(<$ ifh>){ my $decoded = d ecode($from, $_, $Opt{ch eck}); my $encoded = e ncode($to, $decoded); print $encoded; } } else { # won't reach die "$name: unknown scheme: $scheme"; } } }else{ # NI-S fav orite binmode STDOUT => "raw:encoding($to)"; for my $argv (@ARGV ){ my $ifh = ref $argv ? $argv : undef; $ifh o r open $ifh, "<", $argv or next; binmode $ifh = > "raw:encoding($from)"; print while(<$ifh>); } } sub list_encodin gs{ print join("\n", Encode->encodings(":all ")), "\n"; exit 0; } sub resolve_encoding { if (my $alias = Enc ode::resolve_alias($_[0] )) { print $alias, "\n" ; exit 0; } else { warn "$name: $_[0] is n ot known to Encode\n"; exit 1; } } sub hel p{ my $message = shi ft; $message and pri nt STDERR "$name error: $message\n"; print S TDERR <<"EOT"; $name [-f from_encoding] [-t to_e ncoding] [-s string] [fi les...] $name -l $name - r encoding_alias -l,-- list lists all avai lable encodings -r,--r esolve encoding_alias resolve encoding to it s (Encode) canonical nam e -f,--from from_encod ing when omitted, the current locale will be used -t,--to to_en coding when omi tted, the current locale will be used -s,--str ing string "string" will be the in put instead of STDIN or files The following are mainly of interest to En code hackers: -D,--deb ug show debug i nformation -C N | -c | -p check the valid ity of the input -S,-- scheme scheme use the s cheme for conversion EOT exit; } __END__ =he ad1 NAME piconv -- icon v(1), reinvented in perl =head1 SYNOPSIS pic onv [-f from_encoding] [ -t to_encoding] [-s stri ng] [files...] piconv -l piconv [-C N|-c|-p] piconv -S scheme ... piconv -r encoding p iconv -D ... piconv -h =head1 DESCRIPTION B< piconv> is perl version of B<iconv>, a character encoding converter wide ly available for various Unixen today. This scr ipt was primarily a tech nology demonstrator for Perl 5.8.0, but you can use piconv in the place of iconv for virtually a ny case. piconv convert s the character encoding of either STDIN or file s specified in the argum ent and prints out to ST DOUT. Here is the list of options. Each option can be in short format (-f) or long (--from). =over 4 =item -f,--from from_encoding Specifie s the encoding you are c onverting from. Unlike B<iconv>, this option ca n be omitted. In such c ases, the current locale is used. =item -t,--to to_encoding Specifies the encoding you are con verting to. Unlike B<ic onv>, this option can be omitted. In such cases , the current locale is used. Therefore, when b oth -f and -t are omitte d, B<piconv> just acts l ike B<cat>. =item -s,-- string I<string> uses I <string> instead of file for the source of text. =item -l,--list Lists all available encodings , one per line, in case- insensitive order. Note that only the canonical names are listed; many aliases exist. For exam ple, the names are case- insensitive, and many st andard and common aliase s work, such as "latin1" for "ISO-8859-1", or "i bm850" instead of "cp850 ", or "winlatin1" for "c p1252". See L<Encode::S upported> for a full dis cussion. =item -C,--che ck I<N> Check the valid ity of the stream if I<N > = 1. When I<N> = -1, something interesting ha ppens when it encounters an invalid character. =item -c Same as C<-C 1 >. =item -p,--perlqq S ame as C<-C -1>. =item -h,--help Show usage. =item -D,--debug Invoke s debugging mode. Prima rily for Encode hackers. =item -S,--scheme sche me Selects which scheme is to be used for conve rsion. Available scheme s are as follows: =over 4 =item from_to Uses Encode::from_to for conv ersion. This is the def ault. =item decode_enco de Input strings are de code()d then encode()d. A straight two-step imp lementation. =item perl io The new perlIO layer is used. NI-S' favorit e. =back Like the I<-D > option, this is also f or Encode hackers. =bac k =head1 SEE ALSO L<ic onv/1> L<locale/3> L<Enc ode> L<Encode::Supported > L<Encode::Alias> L<Per lIO> =cut |