|
本公眾號(hào)【讀芯樹(shù)：duxinshu_PD】主要介紹數(shù)字集成電路物理設(shè)計(jì)相關(guān)知識(shí)，才疏學(xué)淺，如有錯(cuò)誤，歡迎指正交流學(xué)習(xí)。 這是集成電路物理設(shè)計(jì)的第七個(gè)系列【腳本語(yǔ)言】的第十七篇文章，本篇文章主要介紹perl相關(guān)內(nèi)容： 01 — 運(yùn) 算 #算數(shù)運(yùn)算$a=2;$b=3;$c=$a+$b; #+ 加，- 減，* 乘，/ 除，% 取余， ** 冪運(yùn)算$c+=$a; #相當(dāng)于$c=$c+$a;print '$c\n';#比較運(yùn)算($a==$b) #兩數(shù)是否相等($a!=$b) #兩數(shù)是否不相等($a<=>$b) #a小于b返回-1，a等于b返回0，a大于b返回1($a>$b) #a大于b返回true($a>=$b) #a大于等于b返回true($a lt $b) #字符串a(chǎn)小于字符串b返回true($a gt $b) #字符串a(chǎn)大于字符串b返回true($a le $b) #字符串a(chǎn)小于等于字符串b返回true($a ge $b) #字符串a(chǎn)大于等于字符串b返回true($a eq $b) #字符串a(chǎn)等于字符串b返回true($a ne $b) #字符串a(chǎn)不等于字符串b返回true($a cmp $b) #字符串a(chǎn)小于字符串b返回-1，等于返回0，大于返回1#位運(yùn)算$a=0010110$b=1101010$a&$b=0000010$a|$b=1111110$a^$b=1111100~$a=110100102 — 時(shí)間&日期
03 — 子函數(shù)（程序） sub myproc { statements;}#調(diào)用子函數(shù)myproc (args);#例子sub Average { $n=scalar(@_); $sum=0; foreach $item (@_) { $sum += $item; } $average=$sum/$n; print 'item is :', '@_\n'; print '$average';}Average (3, 7, 11);04 — 格式化輸出
05 — 文件操作 perl提供三種文件句柄：STDIN,STDOUT,STDERR分別表示標(biāo)準(zhǔn)輸入、標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)出錯(cuò)輸出open (DATA, file.txt) or die 'file.txt文件無(wú)法打開(kāi)，$!'; #讀取file.txt的內(nèi)容while (<DATA>) { print '$_'}open (DATA, '>file.txt') #以寫(xiě)入方式打開(kāi)文件open (DATA, '+>file.txt') #以讀寫(xiě)方式打開(kāi)文件，會(huì)刪除原來(lái)內(nèi)容open (DATA, '+<file.txt') #以讀寫(xiě)方式打開(kāi)文件，不會(huì)刪除原來(lái)內(nèi)容open (DATA, '>>file.txt') #以追加方式打開(kāi)文件sysopen (DATA, 'file.txt', O_RDWR); #以讀寫(xiě)方式打開(kāi) O_RDWR #讀寫(xiě)方式打開(kāi)，指針指向文件頭 O_RDONLY #只讀方式打開(kāi)，指針指向文件頭 O_WRONLY #寫(xiě)入方式打開(kāi)，指針指向文件頭 O_CREAT #創(chuàng)建文件 O_APPEND #追加文件 O_TRUNC #將文件大小截取為零 O_EXCL #測(cè)試文件是否存在 O_NONBLOCK #非阻塞IOclose(DATA) || die 'no close file successful'#從鍵盤(pán)輸入讀取print 'input string:\n';$name=<STDIN>;print 'the input is: $name\n';#getc函數(shù)getc FileID #返回單一字符，如果沒(méi)指定，返回STDINread FileID, scalar, length, offset #讀取文件內(nèi)容，scalar：存儲(chǔ)結(jié)果；length：讀取長(zhǎng)度；offset：偏移量#拷貝文件open(DATA1, '<file1.txt'); #只讀打開(kāi)文件open(DATA2, '>file2.txt'); #寫(xiě)入打開(kāi)文件while (<DATA1>) {print DATA2 $_;}close(DATA1);close(DATA2);#重命名rename ('./old.txt', './new.txt');#刪除文件unlink ('old.txt');06 — 參考文獻(xiàn)
|
|
|
