|
本公眾號【讀芯樹：duxinshu_PD】主要介紹數(shù)字集成電路物理設(shè)計相關(guān)知識，才疏學(xué)淺，如有錯誤，歡迎指正交流學(xué)習(xí)。 這是集成電路物理設(shè)計的第七個系列【腳本語言】的第十七篇文章，本篇文章主要介紹perl相關(guān)內(nèi)容： 01 — 運 算 #算數(shù)運算$a=2;$b=3;$c=$a+$b; #+ 加，- 減，* 乘，/ 除，% 取余， ** 冪運算$c+=$a; #相當(dāng)于$c=$c+$a;print '$c\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#位運算$a=0010110$b=1101010$a&$b=0000010$a|$b=1111110$a^$b=1111100~$a=110100102 — 時間&日期
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)出錯輸出open (DATA, file.txt) or die 'file.txt文件無法打開，$!'; #讀取file.txt的內(nèi)容while (<DATA>) { print '$_'}open (DATA, '>file.txt') #以寫入方式打開文件open (DATA, '+>file.txt') #以讀寫方式打開文件，會刪除原來內(nèi)容open (DATA, '+<file.txt') #以讀寫方式打開文件，不會刪除原來內(nèi)容open (DATA, '>>file.txt') #以追加方式打開文件sysopen (DATA, 'file.txt', O_RDWR); #以讀寫方式打開 O_RDWR #讀寫方式打開，指針指向文件頭 O_RDONLY #只讀方式打開，指針指向文件頭 O_WRONLY #寫入方式打開，指針指向文件頭 O_CREAT #創(chuàng)建文件 O_APPEND #追加文件 O_TRUNC #將文件大小截取為零 O_EXCL #測試文件是否存在 O_NONBLOCK #非阻塞IOclose(DATA) || die 'no close file successful'#從鍵盤輸入讀取print 'input string:\n';$name=<STDIN>;print 'the input is: $name\n';#getc函數(shù)getc FileID #返回單一字符，如果沒指定，返回STDINread FileID, scalar, length, offset #讀取文件內(nèi)容，scalar：存儲結(jié)果；length：讀取長度；offset：偏移量#拷貝文件open(DATA1, '<file1.txt'); #只讀打開文件open(DATA2, '>file2.txt'); #寫入打開文件while (<DATA1>) {print DATA2 $_;}close(DATA1);close(DATA2);#重命名rename ('./old.txt', './new.txt');#刪除文件unlink ('old.txt');06 — 參考文獻
|
|
|
