1. 浠ｇ爜鍖歸厤鏌ヨ錛岃姹?br /> ip->浠涔堢殑錛?font face="Arial">浣嗘槸涓嶆槸ip->GetMAXHWnd()
\b(ip->)((?!GetMAXHWnd\(\))\w)+\b
]]>
鍔熻兘錛?nbsp;
-r
-O
渚嬪錛?br /> 1.灝嗗綋鍓嶇洰褰曚笅鎵鏈?txt鏂囦歡鎵撳寘騫跺帇緙╁綊妗ｅ埌鏂囦歡this.tar.gz錛屾垜浠彲浠ヤ嬌鐢?br /> tar czvf this.tar.gz ./*.txt
2.灝嗗綋鍓嶇洰褰曚笅鐨則his.tar.gz涓殑鏂囦歡瑙ｅ帇鍒板綋鍓嶇洰褰曟垜浠彲浠ヤ嬌鐢?br /> tar xzvf this.tar.gz ./
3.鍙墦鍖呮寚瀹氱被鍨嬬殑鏂囦歡錛?br /> tar cvf t.tar */src/*.c */h/*.h */script/*.bld
涓嬮潰涓ょ鎵撳寘鏂瑰紡鏈夊緢澶х殑涓嶅悓
Scenario錛氭墦鍖呯洰褰?53237涓嬬殑c錛宧錛宐ld鏂囦歡鍒皌.tar
浠ヤ笅鐨勮繖涓湪鐢熸垚鐨則ar鏂囦歡鐨勭洰褰曚笅榪涜鎿嶄綔錛岀粨鏋滄槸鍖呭惈浜?53237鐨勬墍鏈変笂涓綰х殑鐩綍緇撴瀯銆?br /> tar cvf t.tar /u/sbjyiz/553237/*/src/*.c /u/sbjyiz/553237/*/h/*.h /u/sbjyiz/553237/*/script/*.bld
榪欎釜鍦?53237鐩綍涓嬫搷浣滐紝鎵撳寘鏂囦歡涓笉浼氬寘鍚?53237鐨勪笂綰х洰褰曘?/span>
tar cvf /users/scnlil/t.tar ./*/src/*.c ./*/h/*.h ./*/script/*.bld ./*/grm/*.grm
]]>
灝辨槸鍒犻櫎2浠ュ悗鐨勬墍鏈夊厓绱?br />
Example:
$size = scalar(@ARGV);
print "$size";
splice(@ARGV,2);
$size = scalar(@ARGV);
print "$size";
]]>
鐗㈣鍝堬級#traverse ruleIndics
$pointer = \%ruleIndics;
foreach $keyword (keys %ruleIndics ) {
$list = $$pointer{$keyword };
$size = @$list;
print "keyword=$keyword , [$size ] ";
for($index=1 ; $index<$size; ++$index) {
$value = $ruleIndics{$keyword}[$index];
print "regexp=$value \n";
}
}
]]>