原创 perl 利用Net::SSH::Expect模塊批量修改服務器密碼
如果以下腳本可以批量修改服務器的密碼，並且導出隨機生成的密碼 首先需要安裝Net::SSH::Expect 安裝方法： #cpan cpan>install Net::SSH::Expect 然後一路回車#!/usr/bin/perluse
2019-07-28 13:32:25
39
原创 ssh普通用戶進行無密碼登陸
我們做ssh證書認證往往是用root登陸的，但是有時候在生成環境中，root用戶往往是限制登陸的。做數據庫，或者是網站異地備份時常常需要無密碼證書拷貝。方法如下： 數據庫服務器：s1 備份服務器：s2 進入s1: 用普通用戶登陸，輸入： s
2019-07-19 13:40:08
原创 利用squidclient清理nginx多臺緩存服務器cgi程序
此cgi腳本用perl寫的，用於清理多臺nginx緩存服務器。使用方法：將此腳本放在能夠執行cgi程序的web服務器上。打開瀏覽器訪問此腳本，輸入需要清理緩存的CSS或者是圖片地址，如果要清理多個緩存，請一行輸入一個地址即可。code：#!
2019-07-19 13:39:58
原创 oracle stream 詳細配置
本文記錄了整個stream的配置過程,請根據環境的不同修改schema,以及相關路徑.–1)設定初始化參數–在線、備份數據庫分別執行如下的語句：sqlplus '/ as sysdba' alter system set aq_tm_pro
2019-02-22 22:22:48
6
原创 perl中tr的研究
perl中有三種模式 m// ,s///,tr///; 前兩種就不多說了，經常出現。這裏說下tr： 很多人用習慣了s///，發現和tr有很多相同的地方，都是將字符串替換成自己想要的內容。 tr的重要作用在於“轉換”. 例如： 大小
2019-02-22 22:22:46
1
原创 perl anyevent socket監控web日誌server
上篇已經講過client端的CODE這部分code主要用來接收client端發送來的日誌,從數據庫中讀取reglar然後去匹配.如果出現匹配則判斷爲XSS***.server端的SOCKET接收用了coro相關的模塊.配置文件仿照前一篇博客
2018-09-11 09:02:24
4
原创 perl selenium操控瀏覽器填寫表單完成自動化測試
很多時候在做測試的人員需要去測試開發人員的新項目，傳統的操作是打開瀏覽器點擊各個地方看操作是否流暢，是否會報BUG。每天都會重複的操作，我想不管是誰都不喜歡做這些重複的事情吧。這時候如果有一個軟件能夠自動化完成重複性的操作，節約了大量的人力
2018-09-11 09:02:23
2
原创 perl dancer + net::ssh2監控服務器性能
最近一直在看dancer,發現真心好用,之前在看mojo,搞了好久沒有搞懂.只能怪自己太挫了.作爲練手就寫了一套簡易的監控系統,主要是利用net::ssh2模塊監控AIX服務器的CPU,IO負載,還有磁盤空間.當然如果你是linux
2018-09-11 09:02:23
2
原创 利用perl rrdtool繪製網絡流量圖
一直很想了解nagios中的pnp是如何工作的，正好看到這幾天cu上有人問rrdtool如何圖像。這幾天特地的翻了翻rrd的資料，補習了下。結合perl的一些模塊，獲取所需要的數據，最後調用rrdtools繪製圖像。好了，廢話不多說
2018-09-11 09:02:23
1
原创 求兩個字符串最大公共字符串(聽說是微軟幾年前面試題)
兩個字符串的最大公共子串,是一個程序員們常常考到和想到的題目，聽講是當年微軟面試時要求做的一個程序,寫一個返回兩個任意字串中最大公共串的函數，即abcdef 和 qcfbcc 返回值爲bc 注：你要考慮到字符串中最大公共串相等的問題。
2018-09-11 09:02:23
原创 perl anyevent socket監控web日誌client
此腳本爲client端的code,主要實現讀取日誌中的一些關鍵詞進行過濾,以下介紹幾個模塊的用途:File::Tail 用於讀取日誌,功能類似於linux中tail ,只讀取最新的日誌AnyEvent 處理異步事件AnyEvent::S
2018-09-11 09:02:23
9
原创 匹配html input img標籤中的value name位置不固定
需要匹配文本如下: 要求alt標籤不爲hello,不能與src中後面的圖片名相同，不能爲漢字 <img src="en/images/main_page/cover.jpg" alt="hello" /> <img src="
2018-09-11 09:02:23
原创 利用perl計算考勤表並且輸出excel表格
需要處理的excel的格式如下 轉換器代碼如下（防止中文亂碼）(作者爲:flw)： package MyExcelFormatter; use strict; use warnings; use base qw(Spreadsh
2018-09-11 09:02:23
47
原创 一道關於停車計費的問題
程序允許30分鐘，期間要求用戶輸入來模擬車輛進入、出去的行爲 輸入的內容爲一串字符串，每個不同的字符串代表一輛車. 紀錄所有車每次進出的時間，計算時間、次數和價格. 價格依照價格表，階梯定價：頭10分鐘5元，超過10分鐘的每分鐘5元
2018-09-11 09:02:23