1.3.6.1.4.1.9.9.23.1.2.1.1.3.1.2 1 1.3.6.1.4.1.9.9.23.1.2.1.1.4.1.2 0xc0a801fc 1.3.6.1.4.1.9.9.23.1.2.1.1.9.1.2 ) 1.3.6.1.4.1.9.9.23.1.2.1.1.12.1.2 3 今回は cdpCacheCapabilities OCTET STRING cdpCacheDuplex INTEGER, についてCISCO-CDP-MIBフ…

先日のつづき Net::SNMPをつかって取得した値で人間が直接読めない形式で返答してきたoidがある。 例えば、 1.3.6.1.4.1.9.9.23.1.2.1.1.3.1.2 1 1.3.6.1.4.1.9.9.23.1.2.1.1.4.1.2 0xc0a801fc 1.3.6.1.4.1.9.9.23.1.2.1.1.9.1.2 ) 1.3.6.1.4.1.9.9.23.1.2.1…

前日からのつづき。 今日はPerlからはちょっと離れてMIBファイルについてoid 1.3.6.1.4.1.9.9.23.1.2.1(cdpCacheTable)のMIBファイル cdpCacheTable OBJECT-TYPE SYNTAX SEQUENCE OF CdpCacheEntry MAX-ACCESS not-accessible STATUS current DESCRIPTION "T…

Net::SNMP のサンプルスクリプトを参考に実行してみた。 CDP情報はoid 1.3.6.1.4.1.9.9.23.1.2.1(cdpCacheTable)にて取得できる。 oid検索にはCisco社のWebサイトSNMP Object Navigator内の「SEARCH」とかで検索。 ついてにCISCO-CDP-MIBファイルもダウンロ…

Win32::GUI::GetOpenFileNameをつかわない例 CLIアプリにも関わらずファイル選択はGUIで行いたい時に使用した。 当時はutf-8フラグなど意識せずshifjisにてファイル保存している。 Win32::OLEを使用したパターン use strict; use warnings; use Win32; use W…

ファイル名を取得するダイアログ表示のためにWin32::GUI::GetOpenFileNameを使用する参考にした情報 初歩の初歩〜プログミング〜@ ウィキ Win32::GUIのdemoフォルダー内BitmapScroll.pl Win32::GUI::Reference::MethodsのGetOpenFileName ファイルダイアログ…

ThreadUtilsを使っていない例。 The Win32::GUI F.A.Q.には以下記載がある。 Why does my window seem to freeze when my program is in a loop? Put a call to DoEvents() inside the loop. This will ensure that all queued messages are processed befor…

別スレッド処理終了後に、親スレッドへ通知するパターン use strict; use warnings; use utf8; use threads; use Encode; use Win32::GUI(); use Win32::GUI::ThreadUtils; my $DOS = Win32::GUI::GetPerlWindow(); Win32::GUI::Hide($DOS); my $con = 1; my…

別スレッド処理中にも、親スレッドへ結果を通知するパターン use strict; use warnings; use utf8; use Encode; use threads; use Win32::GUI(); use Win32::GUI::ThreadUtils; my $DOS = Win32::GUI::GetPerlWindow(); Win32::GUI::Hide($DOS); my $con = 1…