原创 Perl模塊的安裝

安裝PERL模塊過程如下:   1、進入Perl模塊安裝目錄(推薦使用root賬戶)。   2、perl Makefile.PL   #生成 Makefile 文件   3、make install       #安裝perl模塊 一個最

原创 使用NFS在服務器間共享文件

今天手上負責的一個管理平臺發佈,測試的時候發現處理詳情無法直接在頁面展示。 這裏的處理詳情是通過WEB後臺的JAVA程序直接讀取磁盤文件獲取,但現在後臺和WEB分佈在兩臺機器上,當然無法顯示。 考慮到兩臺機器分別申請了不同的網絡策略,互相

原创 使用find刪除包含特殊字符文件

文件名如下: 8_140_3g:~ #ll -rw-r--r-- 1 admin root 0 2011-11-29 23:18:41 --header=Host: 172.16.8.166 直接用rm,刪除失敗 8_140_3g:~ #

原创 一次由腳本升級引發的故障

在日常開發及運維工作中,可能會遇到各種各樣的程序故障。 大部分故障都是由代碼bug或操作不當引起,下面就9月2日發生的一次腳本升級故障說起。 最近對進程監控相關腳本進行優化,週五在幾臺機器上測試OK。考慮到這次修改並不涉及主要邏輯變更,還

原创 Perl中數組的delete操作

PERL中使用delete 操作符刪除數組元素時,數組下標並不會減小,而僅僅是對應下標的值變爲 undef。如  @array = ( 1, 2, 3

原创 Perl中數組的delete操作

PERL中使用delete 操作符刪除數組元素時,數組下標並不會減小,而僅僅是對應下標的值變爲 undef。 如  @array = ( 1, 2,

原创 Linux下killall命令的使用

我們知道,Linux下提供了一個killall命令,用於通過進程名稱殺掉所有同名的進程。 下午在檢查一個角本Bug的時候,發現killall命令與kill命令的一個不同之處: 假設有腳本 test.pl ,假設內容如下: #!/usr/b

原创 關於SecureCRT及Vim的使用

聽說大部分的搞網絡或者被網絡搞的同學,每天都會使用SecureCRT在Linux下進行開發、測試等工作。 正所謂“工欲善其事,必先利其器”,一個趁手的開發環境對工作效率的提升是不言而喻的。 我在這裏簡單介紹一下個人在日常使用中積累下來

原创 lsof命令導致CPU負載異常的問題總結

出於安全及統計需要,運營系統需要採集所有生產服務器的對外端口開放情況。 4月27日凌晨,在近萬臺生產服務上批量推送了端口自檢及掃描腳本,初期觀察無異常。下午收到反饋有部分機器因爲losf命令導致CPU負載很高,登錄到機器上發現是自檢腳本調

原创 Linux服務器無法解析域名

公司很多內部服務爲了負載均衡以及便於遷移,都配置了域名訪問,而不是直接通過IP。 今天在測試代碼時,發現一臺服務器報錯404 Not Found,經確認該服務之前一直通常IP訪問,最近剛好遷移了服務器位置,從而導致服務不可用。 39_37

原创 Perl函數的聲明與調用

關於Perl中函數的聲明以及調用,舉例如下: 1、第一種使用方式: # declare but not defined sub fun; # call function, the () is not necessary fun $arg

原创 一次Ajax的503錯誤的處理

【故障描述】 近期有同學在使用一個內部應用系統時,偶爾會出現頁面報錯的情況,Ajax報503錯誤。 【錯誤現象】 在頁面上操作並提交之後,過一段時間(通常不超過1分鐘)之後Ajax會返回503錯誤碼,無法正常使用。在其它同學機器上反

原创 數字與undef進行比較

看下面一個例子:#!/usr/bin/perl -w use strict; my $var = undef; if($var > 0){ print "> 0\n"; } elsif($var

原创 Perl中的each方法

    each函數用以一次一個鍵字/數值對的方式遍歷一個散列。     在散列內部,它以一種看上去是隨機的順序維護它自己的記錄。each 可以遍歷這個序列是因爲每個散列都記得上一次返回的是哪條記錄。這個序列的實際的順序可能在將來的 Pe

原创 爲什麼進程無法Kill掉

前段時間,同事碰到一個很奇怪的問題。 公司一臺Linux服務器突然負載告警,經檢查該機器拉起了非常多的Perl腳進程,而且一直未退出,導致處理器和內存負載均很高。 爲儘快恢復服務,我決定先kill掉該進程,然後再排查原因。 但我使用kil