perlebcdic.1

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

\&    \e                            92       224      224      188      92       224      ### 
\&    ]                            93       187      189      189      93       189      ***
\&    ^                            94       176      95       106      94       95       *** ###
\&    _                            95       109      109      109      95       109
\&    \`                            96       121      121      74       96       121      ###
\&    a                            97       129      129      129      97       129
\&    b                            98       130      130      130      98       130
\&    c                            99       131      131      131      99       131
\&    d                            100      132      132      132      100      132
\&    e                            101      133      133      133      101      133
\&    f                            102      134      134      134      102      134
\&    g                            103      135      135      135      103      135
\&    h                            104      136      136      136      104      136
\&    i                            105      137      137      137      105      137
\&    j                            106      145      145      145      106      145
\&    k                            107      146      146      146      107      146
\&    l                            108      147      147      147      108      147
\&    m                            109      148      148      148      109      148
\&    n                            110      149      149      149      110      149
\&    o                            111      150      150      150      111      150
\&    p                            112      151      151      151      112      151
\&    q                            113      152      152      152      113      152
\&    r                            114      153      153      153      114      153
\&    s                            115      162      162      162      115      162
\&    t                            116      163      163      163      116      163
\&    u                            117      164      164      164      117      164
\&    v                            118      165      165      165      118      165
\&    w                            119      166      166      166      119      166
\&    x                            120      167      167      167      120      167
\&    y                            121      168      168      168      121      168
\&    z                            122      169      169      169      122      169
\&    {                            123      192      192      251      123      192      ###
\&    |                            124      79       79       79       124      79
\&    }                            125      208      208      253      125      208      ###
\&    ~                            126      161      161      255      126      161      ###
\&    <DELETE>                     127      7        7        7        127      7
\&    <C1 0>                       128      32       32       32       194.128  32
\&    <C1 1>                       129      33       33       33       194.129  33
\&    <C1 2>                       130      34       34       34       194.130  34
\&    <C1 3>                       131      35       35       35       194.131  35
\&    <C1 4>                       132      36       36       36       194.132  36
\&    <C1 5>                       133      21       37       37       194.133  37       ***
\&    <C1 6>                       134      6        6        6        194.134  6
\&    <C1 7>                       135      23       23       23       194.135  23
\&    <C1 8>                       136      40       40       40       194.136  40
\&    <C1 9>                       137      41       41       41       194.137  41
\&    <C1 10>                      138      42       42       42       194.138  42
\&    <C1 11>                      139      43       43       43       194.139  43
\&    <C1 12>                      140      44       44       44       194.140  44
\&    <C1 13>                      141      9        9        9        194.141  9
\&    <C1 14>                      142      10       10       10       194.142  10
\&    <C1 15>                      143      27       27       27       194.143  27
\&    <C1 16>                      144      48       48       48       194.144  48
\&    <C1 17>                      145      49       49       49       194.145  49
\&    <C1 18>                      146      26       26       26       194.146  26
\&    <C1 19>                      147      51       51       51       194.147  51
\&    <C1 20>                      148      52       52       52       194.148  52
\&    <C1 21>                      149      53       53       53       194.149  53
\&    <C1 22>                      150      54       54       54       194.150  54
\&    <C1 23>                      151      8        8        8        194.151  8
\&    <C1 24>                      152      56       56       56       194.152  56
\&    <C1 25>                      153      57       57       57       194.153  57
\&    <C1 26>                      154      58       58       58       194.154  58
\&    <C1 27>                      155      59       59       59       194.155  59
\&    <C1 28>                      156      4        4        4        194.156  4
\&    <C1 29>                      157      20       20       20       194.157  20
\&    <C1 30>                      158      62       62       62       194.158  62
\&    <C1 31>                      159      255      255      95       194.159  255      ###
\&    <NON\-BREAKING SPACE>         160      65       65       65       194.160  128.65
\&    <INVERTED EXCLAMATION MARK>  161      170      170      170      194.161  128.66
\&    <CENT SIGN>                  162      74       74       176      194.162  128.67   ###
\&    <POUND SIGN>                 163      177      177      177      194.163  128.68
\&    <CURRENCY SIGN>              164      159      159      159      194.164  128.69
\&    <YEN SIGN>                   165      178      178      178      194.165  128.70
\&    <BROKEN BAR>                 166      106      106      208      194.166  128.71   ###
\&    <SECTION SIGN>               167      181      181      181      194.167  128.72
\&    <DIAERESIS>                  168      189      187      121      194.168  128.73   *** ###
\&    <COPYRIGHT SIGN>             169      180      180      180      194.169  128.74
\&    <FEMININE ORDINAL INDICATOR> 170      154      154      154      194.170  128.81
\&    <LEFT POINTING GUILLEMET>    171      138      138      138      194.171  128.82
\&    <NOT SIGN>                   172      95       176      186      194.172  128.83   *** ###
\&    <SOFT HYPHEN>                173      202      202      202      194.173  128.84
\&    <REGISTERED TRADE MARK SIGN> 174      175      175      175      194.174  128.85
\&    <MACRON>                     175      188      188      161      194.175  128.86   ###
\&    <DEGREE SIGN>                176      144      144      144      194.176  128.87
\&    <PLUS\-OR\-MINUS SIGN>         177      143      143      143      194.177  128.88
\&    <SUPERSCRIPT TWO>            178      234      234      234      194.178  128.89
\&    <SUPERSCRIPT THREE>          179      250      250      250      194.179  128.98
\&    <ACUTE ACCENT>               180      190      190      190      194.180  128.99
\&    <MICRO SIGN>                 181      160      160      160      194.181  128.100
\&    <PARAGRAPH SIGN>             182      182      182      182      194.182  128.101
\&    <MIDDLE DOT>                 183      179      179      179      194.183  128.102
\&    <CEDILLA>                    184      157      157      157      194.184  128.103
\&    <SUPERSCRIPT ONE>            185      218      218      218      194.185  128.104
\&    <MASC. ORDINAL INDICATOR>    186      155      155      155      194.186  128.105
\&    <RIGHT POINTING GUILLEMET>   187      139      139      139      194.187  128.106
\&    <FRACTION ONE QUARTER>       188      183      183      183      194.188  128.112
\&    <FRACTION ONE HALF>          189      184      184      184      194.189  128.113
\&    <FRACTION THREE QUARTERS>    190      185      185      185      194.190  128.114
\&    <INVERTED QUESTION MARK>     191      171      171      171      194.191  128.115
\&    <A WITH GRAVE>               192      100      100      100      195.128  138.65
\&    <A WITH ACUTE>               193      101      101      101      195.129  138.66
\&    <A WITH CIRCUMFLEX>          194      98       98       98       195.130  138.67
\&    <A WITH TILDE>               195      102      102      102      195.131  138.68
\&    <A WITH DIAERESIS>           196      99       99       99       195.132  138.69
\&    <A WITH RING ABOVE>          197      103      103      103      195.133  138.70
\&    <CAPITAL LIGATURE AE>        198      158      158      158      195.134  138.71
\&    <C WITH CEDILLA>             199      104      104      104      195.135  138.72
\&    <E WITH GRAVE>               200      116      116      116      195.136  138.73
\&    <E WITH ACUTE>               201      113      113      113      195.137  138.74
\&    <E WITH CIRCUMFLEX>          202      114      114      114      195.138  138.81
\&    <E WITH DIAERESIS>           203      115      115      115      195.139  138.82
\&    <I WITH GRAVE>               204      120      120      120      195.140  138.83
\&    <I WITH ACUTE>               205      117      117      117      195.141  138.84
\&    <I WITH CIRCUMFLEX>          206      118      118      118      195.142  138.85
\&    <I WITH DIAERESIS>           207      119      119      119      195.143  138.86
\&    <CAPITAL LETTER ETH>         208      172      172      172      195.144  138.87
\&    <N WITH TILDE>               209      105      105      105      195.145  138.88
\&    <O WITH GRAVE>               210      237      237      237      195.146  138.89
\&    <O WITH ACUTE>               211      238      238      238      195.147  138.98
\&    <O WITH CIRCUMFLEX>          212      235      235      235      195.148  138.99
\&    <O WITH TILDE>               213      239      239      239      195.149  138.100
\&    <O WITH DIAERESIS>           214      236      236      236      195.150  138.101
\&    <MULTIPLICATION SIGN>        215      191      191      191      195.151  138.102
\&    <O WITH STROKE>              216      128      128      128      195.152  138.103
\&    <U WITH GRAVE>               217      253      253      224      195.153  138.104  ###
\&    <U WITH ACUTE>               218      254      254      254      195.154  138.105
\&    <U WITH CIRCUMFLEX>          219      251      251      221      195.155  138.106  ###
\&    <U WITH DIAERESIS>           220      252      252      252      195.156  138.112
\&    <Y WITH ACUTE>               221      173      186      173      195.157  138.113  *** ###
\&    <CAPITAL LETTER THORN>       222      174      174      174      195.158  138.114
\&    <SMALL LETTER SHARP S>       223      89       89       89       195.159  138.115
\&    <a WITH GRAVE>               224      68       68       68       195.160  139.65
\&    <a WITH ACUTE>               225      69       69       69       195.161  139.66
\&    <a WITH CIRCUMFLEX>          226      66       66       66       195.162  139.67
\&    <a WITH TILDE>               227      70       70       70       195.163  139.68
\&    <a WITH DIAERESIS>           228      67       67       67       195.164  139.69
\&    <a WITH RING ABOVE>          229      71       71       71       195.165  139.70
\&    <SMALL LIGATURE ae>          230      156      156      156      195.166  139.71
\&    <c WITH CEDILLA>             231      72       72       72       195.167  139.72
\&    <e WITH GRAVE>               232      84       84       84       195.168  139.73
\&    <e WITH ACUTE>               233      81       81       81       195.169  139.74
\&    <e WITH CIRCUMFLEX>          234      82       82       82       195.170  139.81
\&    <e WITH DIAERESIS>           235      83       83       83       195.171  139.82
\&    <i WITH GRAVE>               236      88       88       88       195.172  139.83
\&    <i WITH ACUTE>               237      85       85       85       195.173  139.84
\&    <i WITH CIRCUMFLEX>          238      86       86       86       195.174  139.85
\&    <i WITH DIAERESIS>           239      87       87       87       195.175  139.86
\&    <SMALL LETTER eth>           240      140      140      140      195.176  139.87
\&    <n WITH TILDE>               241      73       73       73       195.177  139.88
\&    <o WITH GRAVE>               242      205      205      205      195.178  139.89
\&    <o WITH ACUTE>               243      206      206      206      195.179  139.98
\&    <o WITH CIRCUMFLEX>          244      203      203      203      195.180  139.99
\&    <o WITH TILDE>               245      207      207      207      195.181  139.100
\&    <o WITH DIAERESIS>           246      204      204      204      195.182  139.101
\&    <DIVISION SIGN>              247      225      225      225      195.183  139.102
\&    <o WITH STROKE>              248      112      112      112      195.184  139.103
\&    <u WITH GRAVE>               249      221      221      192      195.185  139.104  ###
\&    <u WITH ACUTE>               250      222      222      222      195.186  139.105
\&    <u WITH CIRCUMFLEX>          251      219      219      219      195.187  139.106
\&    <u WITH DIAERESIS>           252      220      220      220      195.188  139.112
\&    <y WITH ACUTE>               253      141      141      141      195.189  139.113
\&    <SMALL LETTER thorn>         254      142      142      142      195.190  139.114
\&    <y WITH DIAERESIS>           255      223      223      223      195.191  139.115
.Ve
.PP
If you would rather see the above table in \s-1CCSID\s0 0037 order rather than
\&\s-1ASCII\s0 + Latin\-1 order then run the table through:
.IP "recipe 4" 4
.IX Item "recipe 4"
.PP
.Vb 5
\&    perl \-ne \*(Aqif(/.{33}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}/)\*(Aq\e
\&     \-e \*(Aq{push(@l,$_)}\*(Aq \e
\&     \-e \*(AqEND{print map{$_\->[0]}\*(Aq \e
\&     \-e \*(Aq          sort{$a\->[1] <=> $b\->[1]}\*(Aq \e
\&     \-e \*(Aq          map{[$_,substr($_,42,3)]}@l;}\*(Aq perlebcdic.pod
.Ve
.PP
If you would rather see it in \s-1CCSID\s0 1047 order then change the digit
42 in the last line to 51, like this:
.IP "recipe 5" 4
.IX Item "recipe 5"
.PP
.Vb 5
\&    perl \-ne \*(Aqif(/.{33}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}/)\*(Aq\e
\&     \-e \*(Aq{push(@l,$_)}\*(Aq \e
\&     \-e \*(AqEND{print map{$_\->[0]}\*(Aq \e
\&     \-e \*(Aq          sort{$a\->[1] <=> $b\->[1]}\*(Aq \e
\&     \-e \*(Aq          map{[$_,substr($_,51,3)]}@l;}\*(Aq perlebcdic.pod
.Ve
.PP
If you would rather see it in POSIX-BC order then change the digit
51 in the last line to 60, like this:
.IP "recipe 6" 4
.IX Item "recipe 6"
.PP
.Vb 5
\&    perl \-ne \*(Aqif(/.{33}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}\es{6,8}\ed{1,3}/)\*(Aq\e
\&     \-e \*(Aq{push(@l,$_)}\*(Aq \e
\&     \-e \*(AqEND{print map{$_\->[0]}\*(Aq \e
\&     \-e \*(Aq          sort{$a\->[1] <=> $b\->[1]}\*(Aq \e
\&     \-e \*(Aq          map{[$_,substr($_,60,3)]}@l;}\*(Aq perlebcdic.pod
.Ve
.SH "IDENTIFYING CHARACTER CODE SETS"
.IX Header "IDENTIFYING CHARACTER CODE SETS"
To determine the character set you are running under from perl one 
could use the return value of \fIord()\fR or \fIchr()\fR to test one or more 
character values.  For example:
.PP
.Vb 2
\&    $is_ascii  = "A" eq chr(65);
\&    $is_ebcdic = "A" eq chr(193);
.Ve
.PP
Also, \*(L"\et\*(R" is a \f(CW\*(C`HORIZONTAL TABULATION\*(C'\fR character so that:
.PP
.Vb 2
\&    $is_ascii  = ord("\et") == 9;
\&    $is_ebcdic = ord("\et") == 5;
.Ve
.PP
To distinguish \s-1EBCDIC\s0 code pages try looking at one or more of
the characters that differ between them.  For example:
.PP
.Vb 2
\&    $is_ebcdic_37   = "\en" eq chr(37);
\&    $is_ebcdic_1047 = "\en" eq chr(21);
.Ve
.PP
Or better still choose a character that is uniquely encoded in any
of the code sets, e.g.:
.PP
.Vb 4
\&    $is_ascii           = ord(\*(Aq[\*(Aq) == 91;
\&    $is_ebcdic_37       = ord(\*(Aq[\*(Aq) == 186;
\&    $is_ebcdic_1047     = ord(\*(Aq[\*(Aq) == 173;
\&    $is_ebcdic_POSIX_BC = ord(\*(Aq[\*(Aq) == 187;
.Ve
.PP
However, it would be unwise to write tests such as:
.PP
.Vb 2
\&    $is_ascii = "\er" ne chr(13);  #  WRONG
\&    $is_ascii = "\en" ne chr(10);  #  ILL ADVISED
.Ve
.PP