Cisco Perl Telnet Script:
A single process Perl program fetches Cisco routers/switches config or other info may take 2 seconds per equipment. If you have 1,000 Cisco routers/switches, it will take 2,000 seconds which will be 33+ minutes. This Perl multi-processes program will save tons of your time to gather info like around 10 seconds. Please enjoy!
1. Successful messages( scalar type ) are stored in hash of hash : $hostinfo{ “$hostname” }->{ “$cmd” }
2. Failed messages( scalar type ) are stored in hash of hash : $hosterrinfo{ “$hostname” }->{ “$cmd” }
#!/usr/bin/perl -w
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
Cisco Perl Telnet Script:
A single thread Perl program fetches Cisco routers/switches config or other info may take 2 seconds per equipment. If you have 1,000 Cisco routers/switches, it’ll take 2,000 seconds which will be 33+ mins. This Perl threads program will save tons of your time to gather info like within 10 seconds. Please enjoy!
1. Successful messages( scalar type ) are stored in hash of hash : $hostinfo{ “$hostname” }->{ “$cmd” }
2. Failed messages( scalar type ) are stored in hash of hash : $hosterrinfo{ “$hostname” }->{ “$cmd” }
#!/usr/bin/perl -w
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
Cisco Perl Telnet Script:
利用telnet取得每個Cisco路由器或交換器的組態或訊息所需時間約2秒鐘,如果貴公司有1,000台Cisco設備,一般單執行緒程式恐耗時 2,000秒相當於33+分鐘,本Perl程式使用平行多程序同時對所有的Cisco設備進行存取,所需時間可能不到10秒鐘;請各位試試看。
1. 執行成功訊息輸出(scalar type)儲存於$hostinfo{ 主機名稱 }->{ 執行指令 }
2. 執行失敗訊息輸出(scalar type)儲存於$hosterrinfo{ 主機名稱 }->{ 執行指令 }
#!/usr/bin/perl -w
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
Cisco Perl Telnet Script:
利用telnet取得每個Cisco路由器或交換器的組態或訊息所需時間約2秒鐘,如果貴公司有1,000台Cisco設備,一般單執行緒程式恐耗時 2,000秒相當於33+分鐘,本多執行緒Perl程式可同時對所有的Cisco設備進行存取,所需時間可能不到10秒鐘;請各位試試看。
1. 執行成功訊息輸出(scalar type)儲存於hash of hash : $hostinfo{ 主機名稱 }->{ 執行指令 }
2. 執行失敗訊息輸出(scalar type)儲存於hash of hash: $hosterrinfo{ 主機名稱 }->{ 執行指令 }
#!/usr/bin/perl -w
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
這一陣子在研究NTP Server的架設,不過一直對NTP_Server的Stratum階層架構弄不清礎,配合指令ntpstate和ntpq -p,裡頭顯示有關stratum的資訊更是弄的亂七八糟。好不容易設計幾個實驗,終於有點弄懂了,所以作個筆記,也順便與有興趣的朋友分享。
說明如下:
在安裝了ntp的套件之後,我們到NTP_Server的設定檔「/etc/ntp.conf』下作些編輯

A.這三行是原來設定檔的內容,我們將它先註解掉,再開始指定我們架設的本機NTP_Server的設定。自己用本機架設NTP_Server,理論上是要自己指定要與網路上的哪一個遠端NTP_Server作網路校時,如果這台遠端的NTP_Server的Stratum是5的話,那與它連線的其本機NTP_Server的Stratum應為6。所以這台遠端的NTP_Server,也被稱之為本機NTP_Server的上一層NTP_Server。
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
在manifest檔案內 標籤設定「android:windowSoftInputMode="stateHidden|adjustResize」。
例如:
<activity android:windowSoftInputMode="stateHidden|adjustResize" android:name="Route" android:label="@string/route_name">
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
ScrollView適用垂直捲動
HorizontalScrollView適用水平捲動
<?xml version="1.0" encoding="utf-8"?>
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
<更多Perl相關資訊請參考以下聯結>
http://www.geego.com.tw/edm/progm_perl_programming_fundamental/index.php?v=pixnet&c=blog&k=perl&p=progm&t=programming_fundamental
當看到錯誤訊息Wide character in subroutine entry at /usr/share/perl5/Mail/Sendmail.pm line 237.
原因可能為使用perl的Mail::Sendmail模組寄送中文時會出現的問題,請使用 use Encode把內容編碼後,
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
為了方便企業在不同地理區域也能共同分享各分部的資源,企業總部與分部之間可以建立VPN通道達成資源分享的目的,本篇介紹以Cisco GRE(Generic Routing Encapsulation) 的方式來建立VPN通道
文件RFC2784(http://tools.ietf.org/html/rfc2784) 定義了GRE(Generic Routing Encapsulation)的規範,是一個簡單的IP封包封裝協定,GRE通道可以讓路由器連接兩個不同的區域網路達成一種VPN的效果
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
What is a Stack
Stack 是一個抽象性的資料類型,普遍的用於電腦科學的領域中;放置於 Stack 中的物件有一個特性,最後一個被放進去的物件就是第一個要移開的物件,像是我們在一個桶子裡面放東西,最先放進去的將是最後被拿出來的;這種特性通常被稱為 Last In, First Out - LIFO。
Stack 定義了好幾種的操作模式;兩個最重要的手續為:PUSH 及 POP,PUSH 把物件放進 Stack 中,POP 則把最上面的物件移開。
Why do we use a stack
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
#!/usr/bin/perl -w
my @in;
while(chomp($_ = )) {
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
#!/usr/bin/perl -w
print $_ = ($ARGV[0] && $ARGV[0] =~ /\d+/) ? 2 * 3.141592654 * $ARGV[0] : 'please give me a number.', "\n";
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: Perl 程式 嵌入 HTML PHP網頁
因為 HTML 是純文字檔,一般都是用 PHP 或 Perl 來產生 HTML,把 PHP code 放到 Perl 裡面執行或是把 Perl code 放到PHP裡執行,只要在 PHP 裡面呼叫外部的 Perl 程式,或是用 iframe 來另外放 Perl 產生的頁面即可,因為 PHP 要產生網頁比起 Perl 相對上省力得多!
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 在Linux系統中,如何微調Intel 1Gb Ethernet 網路卡的效能
1.執行指令(lspci)確認網路卡的型號
2.修改/etc/modprobe.conf中有關e1000的項目設定
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: Perl模仿指令grep,找出搜尋字串的上五行及下五行?
#!/usr/bin/perl
open(FILE, "檔案名稱" ) or die "Can't open file\n";
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 如何利用 Linux 的主機擔任 IP 分享器?
常常有人會在家裡利用Linux的主機擔任IP分享器的工作,我們可以使用簡單的iptables功能達到目標。
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 如何利用 bash 的 shell script 自動取得 Cisco 交換器或是路由器的組態設定?
撰寫一個bash的shell script,自動取得Cisco交換器或是路由器的組態設定,如此,我們可以配合UNIX機器上的自動排程機制(CRON),定期備份組態設定。
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 如何用 bash 寫出密碼產生器?
很多MIS人員常常為了設定公司員工的密碼,而想不出一個簡單的方法;Ben老師在課堂上給學員的作業便是,請各位學員使用bash寫出一個密碼產生器。
#!/bin/bash
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 如何利用 Linux 的主機擔任 IP 分享器?
常常有人會在家裡利用Linux的主機擔任IP分享器的工作,我們可以使用簡單的iptables功能達到目標。
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()
技術小秘訣: 如何利用伺服器存取紀錄檔得知網站各頁面瀏覽次數?
為了很快的從Apache伺服器的存取記錄檔,瞭解哪些是前二十名被瀏覽的網頁,以 下是一段簡單的shell script供各位參考。
台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()