TCLおよび少数システムでのIPv4アドレスのリストの生成

少し前までは、デバイスの構成を大量に更新する問題を解決する必要がありました。 サービスで同じ機能を実行するデバイスが複数ある場合の標準システム管理タスク。 たとえば、利用可能なredmine.nocproject.orgからのソリューション用のユニバーサル製品や、テーマフォーラムやポータルで広く表現されている多くのスクリプトがあります。 この場合のために、あなた自身の書かれたスクリプトが手元にあるはずでしたが、それは判明しませんでした。

記述には、 expect-expect.sourceforge.netを使用しました。これは、さまざまな対話型コンソールユーティリティ、特にtelnetの応答を処理して応答できるTCLのアドオンです。 TCLを以前に作成する必要がなかったため、コードを再考する必要がありました。 スクリプトの重要な瞬間は、処理のためのIPv4アドレスのリストのジェネレーターであり、慎重に評価した結果、このプログラムは、私の意見では、大幅に最適化でき、少なくとも3分の1の行数を削減し、新しい機能を簡単に追加できました。 さらに、これらすべての削減はTCLの詳細とはほとんど関係がありませんでしたが、アルゴリズム全体の構築に対する基本的なアプローチに関係していました。

このコードを別のユーティリティとして割り当てました。テキストの後半で詳細に分析します。「前」と「後」になった理由、および「後」としてすぐに記述できなかった理由です。 私はまだそれについてすべてが好きではありません：アルゴリズムの問​​題とTCLの問題の両方が混同します。たとえば、配列の代わりにリストを使用すると（高速、安全、イデオロギー的に正確ですか？）

ユーティリティ（cipl.tl）のロジックは次のとおりです。コマンドラインで2つのパラメーターを設定します。リストの作成を開始するIPv4アドレスと、リストの終了に使用するIPv4アドレス、またはリストに含める要素の数を示す数値です。 構築の順序は、低いアドレス（最初のパラメーター）から大きいアドレスまでです。 2番目のパラメーターを省略すると、開始IPv4アドレスのみで構成されるリストが表示されます。

 > cipl.tl 192.0.2.1 1
 192.0.2.1
 192.0.2.2
 > cipl.tl 192.0.2.1 192.0.2.2
 192.0.2.1
 192.0.2.2
 > cipl.tl 192.0.2.1
 192.0.2.1

Windowsの場合、スクリプトはtclshインタープリターとともに起動されます。実際には、* nixでも実行できます。

 > tclsh cipl.tl 192.0.2.1
 192.0.2.1

さらに、コードを引用して、行番号とバージョンを提供し、コメントします。 結果のバージョンは、トピックの最後にあるリンクを選択できます。



Ver。1、No。1-12

#!/usr/bin/tclsh8.5 set exip {^(2(5[0-5]|[0-4]\d)|1\d{2}|[1-9]\d{0,1})(\.(2(5[0-5]|[0-4]\d)|1\d{2}|[1-9]\d|\d)){3}$} set exdg {^(0?|([1-9]\d{0,5}))$} if {$argc == 0 || $argc > 2} then { puts "cipl.tl -   IP    " puts ": cipl.tl <start IP> \[<count>|<finish IP>\]" puts ": <start IP> - IPv4     <finish IP>" puts "\t <finish IP> - IPv4 " puts "\t <count> -   0  999999" } else {
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最初の行は、使用する必要があるインタープリターを示しています。これはLinux用の行です。 一般に、tclshへのフルパスを指定する必要があります。たとえば、FreeBSDの場合、この行は次のようになります。

 #!/usr/local/bin/tclsh8.5
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

次に、プログラムでさらに使用する正規表現であるexipおよびexdg変数を設定します 。 IPv4アドレスが正しく入力されたことを確認するには、最初の変数が必要です。 1.0.0.0から255.255.255.255までの10進形式で記述された正しいアドレスは、この正規表現に該当します。つまり、192.0.02.010の形式のアドレスを設定しても機能しません。 2番目の変数は、先行ゼロなしで番号を決定します-リストの有効な境界は0〜999999で、空の文字列もtrueです。 私の意見では、999999を超える制限は合理的であり、さらに、次数32の数値2に対応する正規表現を探すのに時間を無駄にしませんでした。これらの正規表現はすぐには表示されませんでしたが、ソリューションのニーズに基づいて追加されました。そのような、しかしそれはもう少し見られます。

次に、 if条件がチェックされます-コマンドラインから渡されたパラメーターの数、0がある場合、または2を超える場合、小さなヘルプが表示されます。 この時点では、何も出力する必要はありませんが、最初の2つのパラメーターを目的のパラメーターとして使用するだけで、エラーが発生しても出力が乱れることなくユーティリティのバッチ操作に集中できます。

最後の行は、メイン処理が行われるelseブロックを開きます。



Ver。1、No。12-17

 } else { set startip [lindex $argv 0] set countip [lindex $argv 1] set getcountip $countip if {[regexp $exip $startip]} then { set octsip [split $startip {.}]
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

このパートでは、最初に入力で受け取ったパラメーターをstartip変数（最初のパラメーターcountip -2番目のパラメーター）に保存します。2番目のパラメーターがない場合、 lindexは空の文字列を返します。 また、2番目のパラメーターを追加変数getcountipに保存します。

次に、最初に指定した正規表現でregexpおよびexip変数を使用して、最初のパラメーターが正しいIPアドレスと一致することを確認します。 この条件では、IPv4アドレスが予想と完全に一致していることが重要です。これは、 splitを使用してoctsipリストを作成する次の行で、ドット文字がセパレーターとして機能するためです。 結果のリストには、追加のチェックなしでそれらを操作するために、先行ゼロなしで正しい場所に0から255までの10進数のみが含まれている必要があります。 ここでは、たとえば、数値011が置換されると、8進数として認識される限り（つまり、10進法では9に等しい）、先行ゼロが役割を果たします。

検索エンジンでのクエリは、これらのすべての条件をチェックしない正規表現につながることが非常に多いため、多くの場合、グループ内の3桁の4つのグループをチェックするだけです。 たとえば、 habrahabr.ru / blogs / webdev / 123845の式は、もちろんIPアドレスである000.100.1.010の構築を許可しますが、8進数または10進数を明確に決定するわけではないため、不確実性が生じ、さらなる検証が必要です。



Ver。1、No。18-35

 if {[regexp $exip $countip]} then { set octfip [split $countip {.}] set octsub {0} set countip {0} for {set i 3} {$i>=0} {incr i -1} { if {[set octsub [expr [lindex $octfip $i] - [lindex $octsip $i]]] < 0} then { if {$i > 0} then { set si [expr $i - 1] set octfip [lreplace $octfip $si $si [expr [lindex $octfip $si] - 1]] set octsub [expr 256 + $octsub] } else { break } } set ni [expr 3 - $i] set countip [expr $countip + ($octsub * (1 << ($ni * 8)))] } }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ここで、2番目のパラメーターが有効なIPv4アドレスであるかどうかを確認し、そうである場合は、このアドレスと最初のパラメーターで指定されたアドレスとの差を計算しようとします。つまり、このブロックの出力では、 countip変数にリスト長の正しい値が含まれている必要があります。 アップストリームチェックにif条件が組み込まれているため（16行目）、前のチェックが失敗した（最初のパラメーターがIPv4アドレスではない）場合、プログラムはこのセクションに到達しません。

このサブタスク（IPv4アドレスの減算）の解決策は、列内の2つの数値を減算したかのように行われます。

  192.168.3。  1
 -192.168.2。  10
 = 0. 0.0.247

もちろん、これらの数値は10進数ではありませんが、256に基づいています。つまり、前の数字の値を使用する場合、オクテットの16進表記で10ではなく256（0x100）を追加する必要があります。

  0xC0.0xA8.0x03.0x01
 -0xC0.0xA8.0x02.0x0A
 ----------------------（ローンを実行し、上級レベルからユニットを削除します）
 = 0xC0.0xA8.0x03.0x01
          -.0x01
 ----------------------（ローンを継続し、結果を数値システムのベースの値で調整します）
 -0xC0.0xA8.0x02.0x00A
               + .0x100
 ----------------------（結果はそのような操作です）
 = 0xC0.0xA8.0x02.0x101
 -0xC0.0xA8.0x02.0x00A
 = 0x00.0x00.0x00.0x0F7

これを実装するには、最初のパラメーターと同様に、 otcfipリストを作成してから、オクテットとゼロの違いを含むoctsub変数を作成します。countipは、入力したIPv4アドレスではなく、アドレスリストのサイズを格納しますこのコードブロック。

3〜0の逆順で変数iを使用してforループを編成します。このループでは、IPv4アドレスのすべてのオクテットを最下位から開始する必要があります 。 つまり 、 octsipおよびoctfipリストのすべての要素を最後の要素から開始します 。

現在のオクテットoctfip-octcipの差を計算し、 octsubに保存します 。 ここで配列を使用したかったのは、 lindexを使用した構築が非常に面倒であるためですが、リストから配列（TCLでは結合のみ）を形成する簡単な方法が見当たらず、リストのみがどこにでもあります。 計算された差は、0未満の条件ですぐにチェックされます。つまり、高オクテットからローンを作成する必要があるかどうか。

融資を行う必要があり、これが最も古いオクテットではない場合（ iは 0より大きい）、256を差octsubに追加し、デクリメントされた（ octfip ）の次のオクテットから1を引きます。

これが最も古いオクテットである場合、減少するoctfipは減算されたoctsipより小さい 、つまり、差は負であることが判明します。これは問題の条件によるものではなく、この場合はループを終了します-break

あなたが融資をする必要がない場合、結果は私たちを満足させます。 ただし、結果はいずれの場合も256を基数とする数値システムで表示されます。これは、インタープリターが理解するシステムでさらに計算を行う必要があるため、便利ではありません。 したがって、結果の結果を位置番号システムの標準的な方法で変換します。

... + A _i * B ⁱ ... + A ₃ * B ³ + A ₂ * B ² + A ₁ * B ¹ + A ₀ * B ⁰ = N _B 、ここでBは番号体系の基数です。

私たちの場合： countip = octsub _ni * 256 ⁿⁱ 、ここでniは0から3まで、またはni = 3- i 、ここでiは3から0に変わります。これにより、既存のサイクルに変換を含めることができます。 数値システムの基数は2の倍数であるため、次数を計算するために、8の倍数のシフトを使用します。これは、256がバイナリ表現で100000000であるためです。つまり、ユニットは左に8ビットシフトされます。 したがって、最初に0、次に8（コードのこのセクションの最後の有効な行）、次に16および24ずつシフトして、1（256 ⁰ ）、256、256 ²および256 ³を乗算します。

このサイトに2度目に戻ったとき、それは実装中に単純で理解しやすいように思われた当惑を引き起こしましたが、今では不必要に混乱し複雑になっています。 これは、このコードを説明するテキストの量によっても判断できます。

何が悪いの？ なぜ、再び！、減算を行う必要があったのですか？基数が256の数値システムではあるが、これらの値をプログラミング言語が理解できる数値形式に変換し、特に翻訳を行うために標準的な手段を使用して減算する代わりに、 結局、私にとっては、人間の主観的な認識が再び残酷な冗談を演じたという結論に達しました。 最初のクラスで行われる列のアクションを実行するよりも簡単なことは何ですか？ 何もない、これは実際の数字の後に誰もが最初に教えられるからだ。 翻訳、シフトは、最初のクラスの最も単純な操作と比較して、複雑に見えます。 これが10進数システムではないことを理解するのは少し後になりますが、記述されたコードをもう一度見なければならなかったときにのみ何が起こっているのかを理解することです。 その結果、同じサイトの2番目のバージョン。



Ver.2、No.18-25

 if {[regexp $exip $countip]} then { set octfip [split $countip {.}] set nfip [expr ([lindex $octfip 0] * 0x1000000) + ([lindex $octfip 1] * 0x10000)\ + ([lindex $octfip 2] * 0x100) + ([lindex $octfip 3])] set nsip [expr ([lindex $octsip 0] * 0x1000000) + ([lindex $octsip 1] * 0x10000)\ + ([lindex $octsip 2] * 0x100) + ([lindex $octsip 3])] if {$nfip >= $nsip} then {set countip [expr $nfip - $nsip]} }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

（最初のバージョンのように） octfipリストを作成した後、2番目の引数のアドレスのnfip変数と1番目の引数のアドレスのnsip変数に、IPv4アドレス値に対応する番号を作成します。 サイクルなしで変換を行い、値を1行に置き換えます： nfip = listitem ₀ * 256 ³ + listitem ₁ * 256 ² + listitem ₂ * 256 + listitem ₃ 、ここでlistitem _nは対応するリスト要素ですlindexを使用して式で直接。 コードの256は、わかりやすくするために、16進数値0x100xxxxの形式である程度表現されています。 次に、2番目の引数が最初の引数よりも大きいことを確認し、最初の引数を2番目の引数から減算して、結果の値をcountipに保存します。

その結果、以前よりも少し簡単になり、さらに簡単になりました。 このオプションに悩まされるのは、 expr計算でnfip変数とnsip変数がオーバーフローする可能性があることだけです。 現在のCコンパイラの場合、これは恐ろしいことではありません。 計算およびオーバーフローに関するドキュメントhttp://www.tcl.tk/man/tcl8.5/TclCmd/expr.htm#M23から 。 バージョン8.4 www.tcl.tk/man/tcl8.4/TclCmd/expr.htm#M5の場合 、数値定数は32ビットの符号付き数値であることが明示的に述べられており、この記述のバージョン8.5では、必要に応じて64ビットの符号付き数値として解釈されますいや 前のバージョンでは、オーバーフローの仮想的な可能性も存在していましたが、すでに取得した差を処理しましたが、実際の場合は16ビット数よりもはるかに小さくなります。

次に、ユーティリティの2番目の部分が開始され、IPv4アドレスの出力リストが形成されます。



Ver.2、No.26-27

 if {[regexp $exdg $countip]} then { puts $startip
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

countip変数が0〜999999の数値に準拠しているかどうかを確認します。この変数の値は、2番目の引数で渡すことができます。つまり、IPv4アドレスに属しているかどうかの以前の確認に失敗しました。 または、引数で指定されたアドレス間ですでに計算された差。 この変数の値が大きすぎる場合、または数値にまったく対応していない場合（たとえば、IPv4アドレスの差が負の場合、これは計算後の可能性があります）、それ以降の処理は実行されません。 すべてが正常な場合、リストの最初の要素（最初の引数で指定されたIPv4アドレス）を表示します。 さらに、IPv4アドレスの結果リストをシーケンスと呼び、TCLの内部概念であるリストと混同しないようにします。



Ver.2、No.28-29

 for {set i 0} {$i<$countip} {incr i 1} { set octsip [lreplace $octsip {3} {3} [expr [lindex $octsip {3}] + 1]]
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

目的のシーケンスの残りの要素を形成しますが、やはり配列を使用したいのですが、リストから配列への変換は、この形式のリストを使用するよりも悪いようです（これを正しく簡単に行うにはどうすればよいですか？）。 0からcountipシーケンスの計算された（または指定された）最大要素までの値を実行する変数iの forループを次に示します。 ループ内では、以前に形成されたoctsipリストの最後の要素（アドレスの最下位のオクテット）が1増加します...



Ver.2、No.30-36

 for {set j 3} {$j>=0} {incr j -1} { if {[lindex $octsip $j] > 255 && $j > 0} then { set sj [expr $j - 1] set octsip [lreplace $octsip $j $j {0}] set octsip [lreplace $octsip $sj $sj [expr [lindex $octsip $sj] + 1]] } }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

...そして、他のカテゴリを調整する必要があるかどうかを確認します。 このため 、変数jの実行値が3から0のforループも編成します。次に、if条件で、現在のオクテットが255を超えている（オーバーフローが発生している）ことを確認します。これは0を超えないが0ではない最高オクテットjです。 、現在のオクテットはゼロになり、高オクテット（先頭に近いオクシットリスト項目に対応）で1を追加します。高オクテットでオーバーフローが発生した場合、IPv4アドレスが間違っているように調整しません。



Ver.2、No。37-44

  set oip [join $octsip {.}] if {[regexp $exip $oip]} then { puts $oip } else { puts ":    " exit 3 } }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

アドレスのオクテットを含む結果リストをマージし、セパレータがピリオドであるoip変数に結合します。 次に、最初に指定した正規表現を使用して、IPv4アドレスに属する結果を確認します。 すべてが正しい場合-正しくない場合、オーバーフローが発生したか、別のエラーがすでにシーケンスの形成プロセスにあると推測し、exit exit emergencyを終了します 。 また、この時点は完全に美しいわけではありません。複数の終了ポイントがあるため、たとえば、最後に同じアクションを実行したい場合に不便になる可能性があります。

最後の閉じ括弧はforループの終わりです。これは出力シーケンスを形成し、28行目で開きます。



Ver。2、No。45-51

  } else { puts "    \"$getcountip\"" } } else { puts "   IP  \"$startip\"" } }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

26行と16行の条件でelseブランチにエラーメッセージを表示する最後の行では、プログラムの起動時に指定された引数が期待どおりかどうかを確認します。 これはgetcountip変数が使用される唯一の場所であり、プログラムの2番目に受け取った引数を変更されていない形式で格納します。これは奇妙でやり過ぎと思われますが、この場合、明白な（単純な）他のオプションを実装することは不可能でした。

プログラムのこの部分をもう一度見て（出力のシーケンスが形成される）、最初に、ベースナンバーシステム256に4桁の数字の全加算器と、同じ数字の追加コードにトランスレーターを実装するとよいと思いました同じ加算器での減算。 最初の部分はまだ変更しておらず、列の計算の単純さについてのアイデアに支配されていました。 この（野生の）ベンチャーを実装したいという願望は、それ自体は興味深いものでしたが、多分TCLでは実現しなかったため、成功しませんでした。 2番目の部分を最初の部分と同じように、つまり通常の表現から必要なものに変換するために変更する必要があることは既に明らかでした（これは既に256桁の数値システムへの変換です）。

forループで言語手段を使用してIPv4アドレスを反復処理できる場合は、列挙の概念も変更されています。このシーケンスのサイズを事前に計算しないのであれば、単純に行のアドレスから別のアドレスに移動します。 また、このアプローチでは、小さい方から大きい方へだけでなく反対方向にも移動するのは非常に簡単であることが判明しました-これは追加の努力を必要とせず、その形成中にループ変数の増分を正しく設定する必要があります（ここで追加の機能が可能です任意の方向のシーケンスを形成します）。



Ver.3、No.31-32

 if {$nfip > $minip && $nfip < $maxip} then { if {[set d [expr $nfip >= $nsip]]} then {set di {1}} else {set di {-1}}
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

nfipの所有権を確認します。nfipには、2番目の引数IPv4アドレスが範囲に指定された番号として含まれています（ minipとmaxipはプログラムの開始時に決定されます）。 範囲内に収まる場合、2番目のIPv4アドレスnfipが最初のnsipよりも大きい場合（アドレスはすでに数字の形式になっている）、繰り返しの方向を設定し、直接順序の繰り返しは変数di = 1、それより小さい場合、逆の順序の繰り返し、 di = -1。 比較の結果もdに記憶されます。



Ver.3、No。33-37

 for {set i $nsip} {($i<=$nfip && $d) || ($i>=$nfip && !$d)} {incr i $di} { set octip [list [expr ($i & 0xFF000000) >> 24] [expr ($i & 0xFF0000) >> 16]\ [expr ($i & 0xFF00) >> 8] [expr ($i & 0xFF)]] puts [join $octip {.}] }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

初期値がnsipに設定されている変数iでforループを整理し、終了条件を条件nfip> = nsipで調整します。結果はd ： i <= nfipで 、下からnfipに近づく場合、またはi> = nfipに格納します。 増分iはすでに計算され、 diに格納されています。

ループの本体では、IPv4アドレスのオクテットのオクテップリストを作成します。 つまり、アドレスをその数値表現から10進表記で形成する必要があります-256 10進数システムに変換します。 一般的な場合、理論に従って、別の番号システムに基づいて、1つの番号システムに番号を分割する必要があります。また、残基から新しい番号システムに番号を形成します（これに基づいて分割します）。

   3 221 225 985 |  256
  -3 221 225 984 |  -----------
  -------------- |  12,582,914 |  256
               1 |  -12,582,912 |  ------- 
                    ---------- |  49 152 |  256
                             2 |  -49 152 |  ---
                                       0 |  192                                                     

結果192から開始して、0、2、1の逆順のすべての残基に対して192.0.2.1が得られます。 除算は複雑な操作であり、最適化は行われませんが、非常に特殊なケースでは、IPv4アドレスと256による除算-すべてが非常に単純になります。 8でシフトし（256の累乗で除算）、不要なビットをマスクします（2項演算「AND」）。 16進形式で想像してください。

    0xC0000201 |  0xC0000201 |  0xC0000201 |  0xC0000201
   ＆0xFF000000 |  ＆0x00FF0000 |  ＆0x0000FF00 |  ＆0x000000FF
  -------------------------------------------------- -------------------
    0xC0000000 >> 24 |  0x00000000 >> 16 |  0x00000200 >> 8 |  0x00000001
  -------------------------------------------------- -------------------
  = 0xC0（192）|  = 0x00（0）|  = 0x02（2）|  = 0x01（1）

これはすべて1行で行われ、各ビットは独自のリスト要素listに配置されます 。 ループの本文の2番目のステートメントは、結合されたリストを表示します。



Ver.3、No。38-45

  } else { puts " IP      " exit 3 } } else { puts "   IP  \"$startip\"" } }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最後の行はほとんど変わりません。さらに、2番目の引数を設定する際のエラーに関する結論は、プログラム内でわずかに高くシフトします。 プログラムの最初の部分は、2番目のオプションと比較して少し変更されています。



Ver.3、No。1-7

 #!/usr/bin/tclsh8.5 set exip {^(2(5[0-5]|[0-4]\d)|1\d{2}|[1-9]\d{0,1})(\.(2(5[0-5]|[0-4]\d)|1\d{2}|[1-9]\d|\d)){3}$} set exdg {^-?(0?|([1-9]\d*))$} set maxip {0xFFFFFFFF} set minip {0xFFFFFF}
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

数値パラメーターをチェックするための正規表現は、任意の長さの数値に対して正の答えを返すようになりました。先頭に0はありませんが、負符号「-」が前に付いています。 ここでは、次の変数maxipおよびminipを使用して、結果のシーケンスの長さが数値形式でチェックされるため、チェックを簡略化し、境界を拡張しました 。これらの値は、exip正規表現を複製しません。これは、計算結果ではなく、ユーザー入力の正確性のみをチェックするようになったためです。



Ver.3、No.15-20

 set startip [lindex $argv 0] if {![string length [set finiship [lindex $argv 1]]]} then {set finiship {0}} if {[regexp $exip $startip]} then { set octsip [split $startip {.}] set nsip [expr ([lindex $octsip 0] * 0x1000000) + ([lindex $octsip 1] * 0x10000)\ + ([lindex $octsip 2] * 0x100) + ([lindex $octsip 3])]
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

行8〜14は、最初のオプションの行6〜12をほぼ完全に繰り返しますが、新しい機能に応じてメッセージをわずかに修正しました。次に、2番目のオプションとほぼ同じアクションを実行します。2番目の引数が指定されていない場合、変数が常に定義されるように、finiship値を強制的に0に設定する唯一のものです。finishipは2番目のオプションのcountipと同じ意味を持ち、新しい概念に合わせて名前が変更されました。最終的に、この変数にはIPv4アドレスのシーケンスのサイズは含まれませんが、このシーケンスの最後のアドレスが含まれます。最初の引数を構成要素に分解した直後にnsipを計算します。



Ver.3、No.21-30

 if {[regexp $exip $finiship]} then { set octfip [split $finiship {.}] set nfip [expr ([lindex $octfip 0] * 0x1000000) + ([lindex $octfip 1] * 0x10000)\ + ([lindex $octfip 2] * 0x100) + ([lindex $octfip 3])] } elseif {[regexp $exdg $finiship] && [expr abs($finiship)] < $maxip} then { set nfip [expr $nsip + $finiship] } else { puts "    \"$finiship\"" exit 5 }
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最初の条件は、2番目のオプションと同じです。前述の変更-最初の引数の計算がコード内で少し高くなりました。

2番目のelseif条件は、2番目の引数が数値に準拠しているかどうかをチェックすることです。このチェックは、最初の場合のようにいずれの場合も実行されません。ただし、2番目の引数がIPv4アドレスでない場合のみです。数値の場合、nfipは、この数値とnsipを合計して計算されます。受信したIPv4アドレスの正当性の検証は、コードのさらに下で数値的に行われます（上記のとおり）。

2番目の引数が番号にもIPv4アドレスにも一致しない場合、exitを中止します。繰り返しますが、多数の出口点を取得しますが、このバージョンでは3つの出口点があります。これを使用すると、無限ループにプログラム全体を包むことで克服し、必要であれば、彼の中断できる休憩をプログラムの最後になって、しかし絶対的に必要はありませんでしたがあります。前述のように、すべてのエラーチェックは、デフォルトアクションに置き換えることで除外できます。これは、コマンドモードにより適しています。このオプションでは、getcountip変数はありません。エラーメッセージには直接受信した2番目のfiniship引数が含まれます。これは変更されないため、作業中にのみ使用されるためです。

ユーティリティ（cipl.tl）のロジックが拡張され、開始するIPv4アドレスは終了するIPv4アドレスよりも小さくする必要がなくなり、リストは最初から2番目まで作成されます。2番目のパラメーターを負の数に設定することもできます。その場合、リストは逆の順序になります。

> cipl.tl 192.0.2.1 -1
192.0.2.1
192.0.2.0
> cipl.tl 192.0.2.1 192.0.2.0
192.0.2.1
192.0.2.0

それはすべての不運であり、説明はコード自体を大きく上回り、元のVarantの状況全体はトピックhabrahabr.ru/blogs/complete_code/135340の確認ですが、最終的には「7回測定して1回カット」というように、それほど悪くはありませんでした。プラス実用ユーティリティ。



完全なプログラムでのオプション：cipl.zip

基数については、ウィキブックスで読むことができます- ru.wikibooks.org/wiki/Sistemy_schisleniya

あなたはTCLについて知る必要があるすべては上でwww.tcl.tk/docとwiki.tcl.tk