锘??xml version="1.0" encoding="utf-8" standalone="yes"?>亚洲精品宾馆在线精品酒店,亚洲精品亚洲人成人网,中文字幕在线观看亚洲视频http://www.tkk7.com/colorfire/category/47202.htmlzh-cnSat, 19 Mar 2011 09:39:35 GMTSat, 19 Mar 2011 09:39:35 GMT60py2exe浣跨敤璇存槑http://www.tkk7.com/colorfire/archive/2011/03/04/345730.htmlcolorfirecolorfireFri, 04 Mar 2011 08:39:00 GMThttp://www.tkk7.com/colorfire/archive/2011/03/04/345730.htmlhttp://www.tkk7.com/colorfire/comments/345730.htmlhttp://www.tkk7.com/colorfire/archive/2011/03/04/345730.html#Feedback0http://www.tkk7.com/colorfire/comments/commentRss/345730.htmlhttp://www.tkk7.com/colorfire/services/trackbacks/345730.htmlpy2exe

colorfire 2011-03-04 16:39 鍙戣〃璇勮
]]>
perl璇誨彇鏂囦歡http://www.tkk7.com/colorfire/archive/2010/12/01/339530.htmlcolorfirecolorfireWed, 01 Dec 2010 09:37:00 GMThttp://www.tkk7.com/colorfire/archive/2010/12/01/339530.htmlhttp://www.tkk7.com/colorfire/comments/339530.htmlhttp://www.tkk7.com/colorfire/archive/2010/12/01/339530.html#Feedback0http://www.tkk7.com/colorfire/comments/commentRss/339530.htmlhttp://www.tkk7.com/colorfire/services/trackbacks/339530.html 1#!/usr/bin/perl
 2print "This is aaa file handler.\n";
 3if(open(MYFILE,"Radius20101101-001.txt")){
 4    while($line=<MYFILE>){
 5        @array=split("Identifier=",$line);
 6        @array=split("\t",$array[1]);
 7        print $array[0];
 8        print ("\n");
 9    }
10    close(FD);
11}

colorfire 2010-12-01 17:37 鍙戣〃璇勮
]]>
perl涓濂囩殑splithttp://www.tkk7.com/colorfire/archive/2010/12/01/339529.htmlcolorfirecolorfireWed, 01 Dec 2010 09:36:00 GMThttp://www.tkk7.com/colorfire/archive/2010/12/01/339529.htmlhttp://www.tkk7.com/colorfire/comments/339529.htmlhttp://www.tkk7.com/colorfire/archive/2010/12/01/339529.html#Feedback0http://www.tkk7.com/colorfire/comments/commentRss/339529.htmlhttp://www.tkk7.com/colorfire/services/trackbacks/339529.html 涓轟粈涔堣perl鐨勭涓変釜鍙傛暟寰堢濂囧暒.涓昏鍦ㄤ簬split鐨勭涓変釜鍙傛暟.
鎴戜滑鐭ラ亾split鏄伐浣滃湪鍒楄〃鐨勭幆澧?浠栦細瑁呰緭鍏ョ殑鏁版嵁,澶氬垎鍓插嚑嬈?鍦ㄥ緩绔嬬粨鏋滃垪琛?鐒跺悗榪斿洖.鎺ョ潃,浼氳繑鍥炵涓変釜鍙傛暟鍐呯殑鏁版嵁,鍏跺畠鐨勯兘鎵斿純.
絎笁涓弬鏁頒竴瀹氳闈炲父灝忓績,涓轟粈涔?濡備笅鐨勭▼搴?鎴戜滑鍙渶瑕佸墠浜屼釜鍙傛暟.鎴戜滑娉ㄦ剰絎笁涓弬鏁?br />
#!/usr/bin/perl
while(<DATA>){
  
my ($aa, $dd= split(/\s+/, $_, 2);
    
print "$aa  || $dd ||\n";

}

__DATA__
1xxxxxxx  2xxxxxx 3xxxxxx 4xxxxx
1xxxxxxx  2xxxxxx 3xxxxxx 4xxxxx
1xxxxxxx  2xxxxxx 3xxxxxx 4xxxxx
1xxxxxxx  2xxxxxx 3xxxxxx 4xxxxx
1xxxxxxx  2xxxxxx 3xxxxxx 4xxxxx 

濡傛灉split絎笁涓弬鏁版槸鍐欑殑2鐨勮瘽,杈撳嚭濡備笅緇撴灉
11xxxxxxx  || 2xxxxxx 3xxxxxx 4xxxxx
2||
31xxxxxxx  || 2xxxxxx 3xxxxxx 4xxxxx
4|| 
5


濡傛灉split鏄啓鐨?鐨勮瘽,杈撳嚭濡備笅緇撴灉
11xxxxxxx  || 2xxxxxx ||
21xxxxxxx  || 2xxxxxx || 
3


榪欎富瑕佹槸鍥犱負,濡傛灉鎯沖彇寰楀墠2涓瓧孌?瀛楁璁版暟涓?.鍥犱負闇瑕佺粰鏂囦歡鍒囨垚3浠?鎷垮嚭鍓嶄簩浠?涓嶇劧閮界粰鏈鍚庨潰閮ㄥ垎鍋氫竴浠戒簡.
杞嚜榪滄湜鎶鏈鍧涖?br />
絎笁涓弬鏁板湪澶ф暟鎹噺鎯呭喌涓嬭繕鏄彲浠ユ彁楂樹笉灝戦熷害銆?

colorfire 2010-12-01 17:36 鍙戣〃璇勮
]]>
瀹夎perl鐨刢rc32妯″潡http://www.tkk7.com/colorfire/archive/2010/11/29/339333.htmlcolorfirecolorfireMon, 29 Nov 2010 08:41:00 GMThttp://www.tkk7.com/colorfire/archive/2010/11/29/339333.htmlhttp://www.tkk7.com/colorfire/comments/339333.htmlhttp://www.tkk7.com/colorfire/archive/2010/11/29/339333.html#Feedback0http://www.tkk7.com/colorfire/comments/commentRss/339333.htmlhttp://www.tkk7.com/colorfire/services/trackbacks/339333.html鍥犱負瑕佸啓涓涓浉鍏崇殑perl鑴氭湰錛岄渶瑕乧rc32鍑芥暟錛岄粯璁ょ殑perl鍙堜笉甯︼紝娌″姙娉曞彧濂藉畨瑁呬竴涓細

  1. 涓嬭澆錛?br /> wget -c http://search.cpan.org/CPAN/authors/id/S/SO/SOENKE/String-CRC32-1.4.tar.gz
  2. 瀹夎錛?br /> tar zxvfp String-CRC32-1.4.tar.gz
    cd String-CRC32-1.4
    perl Makefile.PL
    make
    make test #榪欓噷娌′粈涔堟彁紺洪敊璇氨鎭枩浜?)
    make install
  3. 浣跨敤(鏉ヨ嚜瀹樻柟)錛?

      use String::CRC32;

      
$crc = crc32(“some string”);
      
$crc = crc32(“some string”, initvalue);

      
$somestring = “some string”;
      
$crc = crc32($somestring);
      
print $crc.\n”;

      
#open(SOMEFILE, “location/of/some.file”);
      #$crc = crc32(*SOMEFILE);
      #close(SOMEFILE);

  1. 榪愯錛?br /> perl t.pl
    4182587481

緋葷粺瑕侀儴緗插埌AIX騫沖彴

闂錛?br /> make緙栬瘧鎶ラ敊錛屾彁紺猴細cc_r not found錛佺紪璇戝櫒鎵句笉鍒幫紵閭e氨鎵嬪姩鎸囧畾涓涓嬶紝cc_r搴旇鏄湪/usr/vac/bin鐩綍涓嬨?br /> #vi MakeFile 鎵懼埌CC = cc_r 鏀規垚 /usr/vac/bin/cc_r錛岀劧鍚庢墽琛宮ake
鎻愮ず錛?nbsp;The license for the Evaluation version of IBM XL C/C++ for AIX, V10.1 compiler product has expired. 鎴戝幓錛佽繃鏈熶簡銆傘傘傝繖瀹朵紮榪樻病鍏嶈垂鐨勩傘?br />
鍙︽壘鍔炴硶錛宑c_r涓嶈鐢ㄥ氨鐢╣cc鍚с?br />
AIX Toolbox download錛?/span>http://www-03.ibm.com/systems/power/software/aix/linux/toolbox/download.html 涓厤璐逛笅杞姐?br /> 鍌葷摐寮忓畨瑁?#rpm –ivh gcc-4.2.0-3.aix5.3.ppc.rpm 
鎶奵c_r鏇挎崲涓篻cc錛屾墽琛宮ake緙栬瘧銆傛姤閿欎竴澶у爢錛屽悇縐嶇殑緙栬瘧閫夐」綾誨瀷涓嶇銆?br />

瑙e喅鏂規
緗戜笂鎼滅殑錛?br />

鐜板湪AIX鑷甫鐨刾erl瀹炰緥鍥犱負涓嶆槸鐢╣cc緙栬瘧鐨勶紝鎵浠ヤ笉鍙互鍦ㄥ叾鍩虹涓婄敤gcc緙栬瘧瀹夎鐩稿叧妯″潡錛?br />

闇瑕佷粠緗戜笂涓嬭澆perl鐨勬簮浠g爜錛屼嬌鐢╣cc緙栬瘧瀹夎涓浠芥柊鐨刾erl瀹炰緥錛?br />

鐜板湪AIX鑷甫鐨刾erl瀹炰緥鍥犱負涓嶆槸鐢╣cc緙栬瘧鐨勶紝鎵浠ヤ笉鍙互鍦ㄥ叾鍩虹涓婄敤gcc緙栬瘧瀹夎鐩稿叧妯″潡錛?br />

闇瑕佷粠緗戜笂涓嬭澆perl鐨勬簮浠g爜錛屼嬌鐢╣cc緙栬瘧瀹夎涓浠芥柊鐨刾erl瀹炰緥錛?/span>


閭e氨鍘籶erl涓嬫渶鏂扮殑婧愮爜鍖呭惂錛?/span>http://www.perl.com/
鎸囧畾緙栬瘧鍣ㄥ拰鐩綍 #sh Configure -de -Dcc=gcc –Dprefix=/opt/perl-5.10
#make
#make install

璁劇疆PATH鐜鍙橀噺錛歟xport PATH=/opt/perl-5.10/bin:$PATH (娉ㄦ剰鎶婃柊鐨刾erl瀹炰緥鐨刡in璺緞璁劇疆鍦ㄥ墠闈紝鏄洜涓虹郴緇熶腑鍘熸湁鐨刾erl瀹炰緥榪樺瓨鍦紝鍙互鍋氬埌浼樺厛浣跨敤鏂扮殑perl瀹炰緥)
#perl -version 紜涓涓嬫渶鏂扮殑鐗堟湰

鐒跺悗鍐嶅幓緙栬瘧String-CRC32鍚?br /> #perl MakeFile.pl
#make
#make install

瀹夎瀹屾垚錛屾祴璇曟垚鍔熴傝繖涓澶у湀緇曠殑銆?br />



colorfire 2010-11-29 16:41 鍙戣〃璇勮
]]>
Python鎵歸噺鏇存柊鏂囦歡淇敼鏃墮棿http://www.tkk7.com/colorfire/archive/2010/08/24/329828.htmlcolorfirecolorfireTue, 24 Aug 2010 11:09:00 GMThttp://www.tkk7.com/colorfire/archive/2010/08/24/329828.htmlhttp://www.tkk7.com/colorfire/comments/329828.htmlhttp://www.tkk7.com/colorfire/archive/2010/08/24/329828.html#Feedback0http://www.tkk7.com/colorfire/comments/commentRss/329828.htmlhttp://www.tkk7.com/colorfire/services/trackbacks/329828.html 鏈湴妯℃嫙嫻嬭瘯鍑嗗鑴氭湰

import os,sys,time,re
##########################################################
#
#Reset The ModifyDate of AAA File With FileName.                ##
#
#For Example: filename is AAA_01_20100703_2130_0683.TXT##
#
#Auther:qiuwg Date:2010-08-24                                                    ##
#
#########################################################
def list_file_dir(level,rootpath):
    
for path in os.listdir(rootpath):
        absolutely_path 
= os.path.join(rootpath,path)
        
if os.path.isdir(absolutely_path):
            list_file_dir(level
+1, absolutely_path) 
        
else:
            modify_file_date(absolutely_path)

def modify_file_date(file):
    idx
=file.rfind("/")
    path
="./"
    filename
=file
    
if idx > -1:
        path
=file[:idx+1]
        filename
=file[idx+1:]
    
#mt=os.path.getmtime(filename)
    expression=r"^AAA_\d{2}_\d{8}_\d{4}_\d{4}.TXT$"
    
if re.match(expression,filename):
        temp
=filename.split("_");
        
print path+filename+" modifydate >> "+temp[2]+temp[3]
        temptime
=time.strptime(temp[2]+temp[3],'%Y%m%d%H%M')
        mtime
=time.mktime(temptime)
        os.utime(path
+filename,(mtime,mtime))

if __name__ == "__main__":
    list_file_dir(
1,"/ldata/fuse-udr-split/")
    
print "Handed Over"

澧炲姞浜嗘枃浠跺悕姝e垯鍖歸厤錛屽拰閫掑綊鐩綍鏌ユ壘銆?

colorfire 2010-08-24 19:09 鍙戣〃璇勮
]]>
主站蜘蛛池模板: 国产精品1024在线永久免费| 无码av免费网站| 18禁止观看免费私人影院| 最近中文字幕mv手机免费高清 | 大地资源免费更新在线播放| 亚洲一区二区三区首页| 免费人成网站在线观看不卡 | www.黄色免费网站| 亚洲免费网站在线观看| 嫖丰满老熟妇AAAA片免费看| 亚洲一区二区三区丝袜| 日韩精品视频免费观看| 美女视频黄频a免费| 中文字幕久久亚洲一区| 中文字幕在线观看免费| 亚洲精品亚洲人成在线观看麻豆| 114一级毛片免费| 国产成人综合亚洲一区| 国产亚洲一区二区三区在线不卡| 男人进去女人爽免费视频国产| 亚洲狠狠ady亚洲精品大秀| 成年午夜视频免费观看视频| 亚洲AV成人无码久久WWW| 亚洲中文字幕无码久久精品1| 鲁丝片一区二区三区免费| 亚洲第一永久在线观看| 国产精品极品美女免费观看| 三级黄色免费观看| 亚洲系列中文字幕| 国产成人精品男人免费| 久久国产精品成人免费| 一本色道久久88亚洲精品综合| 亚洲精品成人区在线观看| 最近免费中文字幕mv在线电影| 亚洲一区AV无码少妇电影| 国产亚洲一区区二区在线| 中国在线观看免费高清完整版| 五月天婷婷精品免费视频| 亚洲综合激情另类小说区| 免费少妇a级毛片| 亚洲成年人免费网站|