原创 perl發html+附件的郵件

sub sendHtmlMail { my ($to, $subject, $body, $attach, $from) = @_; my $CRLF = "/r/n"; my $Raw_Bond

原创 背景配色

<mce:style type="text/css"><!-- .style1{ width: 800px; height: 100px; margin: 0px auto; margin-bottom:20px; border:1px

原创 perl讀取配置文件

sub readConfig($) { my $file = shift; my %config = (); open (CF, "<", $file) or die "Error: open file: $file er

原创 perl正則表達式遞歸

    今天在chinaunix上看到有個貼,問     設最外層括號爲第 1 層,請問怎麼樣能夠除去 1 對第 2 層的括號,保留其他括號?     例如: (((1,2),3),4)   =>  ((1,2),3,4) ((1,

原创 Perl正則表達式處理換行

use strict; my $values ; open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ; while(defined($values= <OUTFIL

原创 關於正則表達式問題

在perl中執行`ls -l | awk '{print $3}'`時,報錯Use of uninitialized value in concatenation (.) or string at test.pl line 3.   這裏

原创 Hudson標準安全設置

2. 1.首先進入hudson 主頁-->Manage Hudson-->Configure System,並選擇"Enable security" 。 2.選擇"Hudson's own user databas

原创 配置管理之路

想學習配置管理的人,可以去這裏和大家交流下 http://bbs.scmroad.com/index.php

原创 [轉自msdn]正則表達式語法

正則表達式是一種文本模式,包括普通字符(例如,a 到 z 之間的字母)和特殊字符(稱爲“元字符 ”)。模式描述在搜索文本時要匹配的一個或多個字符串。 正則表達式示例 表達式

原创 刪除N天前的日誌文件

#!/usr/bin/perl my $Date=`date +%s`; $Date -= 17*86400; ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = loc

原创 我的Hudson插件

Compact Columns More compact columns for showing last success and failure. Easier to understand, and takes less room

原创 clearcase下的一些常用命令

最基本的操作 cleartool co -nc xxx.cpp cleartool ci -nc xxx.cpp 查看自己總共co了多少文件 cleartool lscheckout -cview -me -avobs 查看我的所有co

原创 在SED中使用變量

舉例說明:變量a和b,使用sed的替換命令將$a替換爲$b 本文包含四種方法,考驗大家對meta的理解程度。如果覺得不過關,請複習一下netman老哥的十三問吧。http://bbs.chinaunix.net/forum/viewtop

原创 替換字符串中間的某些字符

現有字符串:###123a###01#02#03###b321### 需要將a和b這兩個字符中間的#替換成!   方法一: #!/usr/bin/perl $str = "###123a###01#02#03###b321###";

原创 虛擬機共享目錄

VirtualBox: 1. 在VisualBox工程上的配置明細上選擇最後一項《數據空間》然後,指定一個windows目錄作爲共享目錄 2.安裝增強工具,等虛擬光盤自動掛載後進終端,cd /media/VBOXADDITION