最新Av不卡免费在线播放,国产大陆精品久久3,爱干视频

主頁 > 知識(shí)庫 > perl 簡明教程 perl教程集合

perl 簡明教程 perl教程集合

參考：http://shouce.jb51.net/perl5/
網(wǎng)站環(huán)境配置：https://www.jb51.net/article/74005.htm

Perl的基本語法 https://www.jb51.net/shouce/Perl.htm

前言：perl是什么，干什么用的？perl原來設(shè)計(jì)者的意圖是用來處理字符的，80%的強(qiáng)項(xiàng)是處理字符，當(dāng)然其它的很多都可以?，F(xiàn)在很多網(wǎng)頁也是用perl的，通常需要CGI環(huán)境，比如 $char =~ /語言/ ，意思是查找含有“語言”這兩個(gè)字的字符串。它還能做unix和linux系統(tǒng)管理，文件內(nèi)容處理（基于awk和sed等工具的功能），其他好多你想做的事。

一、perl環(huán)境配置

1.獲取perl
　　Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免費(fèi)得到它，如ftp://prep.ai.mit.edu/pub/gnu/perl-5.004.tar.gz

2.安裝過程為：
      (1)解壓：
      $gunzip perl-5.004.tar.gz
      $tar xvf - perl-5.004.tar.gz
      (2)編譯：
      $make makefile
      (3)放置：
      將編譯生成的可執(zhí)行文件拷貝到可執(zhí)行文件通常所在目錄，如：
      $copy compiled excutable file> /usr/local/bin/perl

3.運(yùn)行
　　用文本編輯器編輯好你的Perl程序，加上可執(zhí)行屬性：$chmod +x program>就可以執(zhí)行了：$./program>。如果系統(tǒng)提示："/usr/local/bin/perl not found"，則說明你沒有安裝成功，請重新安裝。
注：你的程序的第一行必須為#!/usr/local/bin/perl（perl所在位置）。

4注釋：
      注釋的方法為在語句的開頭用字符#，如：
      # this line is a comment
      注：建議經(jīng)常使用注釋使你的程序易讀，這是好的編程習(xí)慣。

二、常量、變量等問題

1.單引號(hào)與雙引號(hào)
　　雙引號(hào)內(nèi)的字符串中支持簡單變量替換如：$text = "This text contains the number $number.";
　　雙引號(hào)內(nèi)的字符串中支持轉(zhuǎn)義字符
　　單引號(hào)字符串與雙引號(hào)字符串有兩個(gè)區(qū)別，一是沒有變量替換功能，二是反斜線不支持轉(zhuǎn)義字符。
2.重復(fù)和聯(lián)結(jié)
重復(fù)：print "t" x 5 (會(huì)輸出5個(gè)t，注意：其中x為英文字母小寫x)
聯(lián)結(jié)：$a.="bc" (相當(dāng)于連等于)
3.簡單變量、數(shù)組、列表
簡單變量：用$聲明，如：$a="hello";
數(shù)組：用@聲明，如：@arr=('a','b','c');
列表：列表是包含在括號(hào)里的一序列的值，可以為任何數(shù)值，也可為空，如：(1, 5.3 , "hello" , 2)，空列表：()

三、文件操作

1.打開文件：如open (MYFILE, "file1") || die ("Could not open file");MYFILE為聲明的文件句柄，file1為文件名/文件路徑，整行代碼意為：如果打開失敗，則輸出"Could not open file"；
關(guān)閉文件：當(dāng)文件操作完畢后，用close(MYFILE); 關(guān)閉文件。
2.讀文件
　　語句$line = MYFILE>;從文件中讀取一行數(shù)據(jù)存儲(chǔ)到簡單變量$line中并把文件指針向后移動(dòng)一行。STDIN>為標(biāo)準(zhǔn)輸入文件，通常為鍵盤輸入，不需要打開。
　　語句@array = MYFILE>;把文件的全部內(nèi)容讀入數(shù)組@array，文件的每一行(含回車符)為@array的一個(gè)元素。

#!/usr/bin/perl
open(MYFILE,'1.txt');
@arr = MYFILE>;
print @arr;

3.寫文件
形式為：
open(OUTFILE, ">outfile");
print OUTFILE ("Here is an output line.\n");
注：STDOUT、STDERR為標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤文件，通常為屏幕，且不需要打開。
4.判斷文件狀態(tài)

1、文件測試操作符
語法為：-op expr，如：
    if (-e "/path/file1") {
    print STDERR ("File file1 exists.\n");
    }

文件測試操作符

操作符	描述
-b	是否為塊設(shè)備
-c	是否為字符設(shè)備
-d	是否為目錄
-e	是否存在
-f	是否為普通文件
-g	是否設(shè)置了setgid位
-k	是否設(shè)置了sticky位
-l	是否為符號(hào)鏈接
-o	是否擁有該文件
-p	是否為管道
-r	是否可讀
-s	是否非空
-t	是否表示終端
-u	是否設(shè)置了setuid位
-w	是否可寫
-x	是否可執(zhí)行
-z	是否為空文件
-A	距上次訪問多長時(shí)間
-B	是否為二進(jìn)制文件
-C	距上次訪問文件的inode多長時(shí)間
-M	距上次修改多長時(shí)間
-O	是否只為“真正的用戶”所擁有
-R	是否只有“真正的用戶”可讀
-S	是否為socket
-T	是否為文本文件
-W	是否只有"真正的用戶"可寫
-X	是否只有"真正的用戶"可執(zhí)行
注：“真正的用戶”指登錄時(shí)指定的userid，與當(dāng)前進(jìn)程用戶ID相對，命令suid可以改變有效用戶ID。

例：
    unless (open(INFILE, "infile")) {
    die ("Input file infile cannot be opened.\n");
    }
    if (-e "outfile") {
    die ("Output file outfile already exists.\n");
    }
    unless (open(OUTFILE, ">outfile")) {
    die ("Output file outfile cannot be opened.\n");
    }
等價(jià)于
    open(INFILE, "infile") !(-e "outfile")
    open(OUTFILE, ">outfile") || die("Cannot open files\n");

四、模式匹配：

1.概念：模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即模式def。其用法如結(jié)合函數(shù)split將字符串用某模式分成多個(gè)單詞：@array = split(/ /, $line);
2.匹配操作符 =~、!~
=~檢驗(yàn)匹配是否成功：$result = $var =~ /abc/;若在該字符串中找到了該模式，則返回非零值，即true，不匹配則返回0，即false。!~則相反。

五、控制結(jié)構(gòu)
(1)、條件判斷：if()elseif()else();
(2)、循環(huán)：
1、while循環(huán)
2、until循環(huán)
3、for循環(huán)
4、針對列表(數(shù)組)每個(gè)元素的foreach循環(huán)

open(MYFILE,'1.txt');
@arr = MYFILE>;
foreach $str (@arr){
 print $str;
}

5、do循環(huán)
6、循環(huán)控制:退出循環(huán)為last，與C中的break作用相同；執(zhí)行下一個(gè)循環(huán)為next，與C中的continue作用相同；PERL特有的一個(gè)命令是redo，其含義是重復(fù)此次循環(huán)，即循環(huán)變量不變，回到循環(huán)起始點(diǎn)，但要注意，redo命令在do循環(huán)中不起作用。
7、傳統(tǒng)的goto語句:goto label;
(3)、單行條件
　　語法為statement keyword condexpr。其中keyword可為if、unless、while或until，如：
    print ("This is zero.\n") if ($var == 0);
    print ("This is zero.\n") unless ($var != 0);
    print ("Not zero yet.\n") while ($var-- > 0);
    print ("Not zero yet.\n") until ($var-- == 0);
    雖然條件判斷寫在后面，但卻是先執(zhí)行的。

六、子程序
(1)、定義
　　子程序即執(zhí)行一個(gè)特殊任務(wù)的一段分離的代碼，它可以使減少重復(fù)代碼且使程序易讀。PERL中，子程序可以出現(xiàn)在程序的任何地方。定義方法為：
　　sub subroutine{
　　　　statements;
　　}
(2)、調(diào)用
　　調(diào)用方法如下：用調(diào)用
       subname;
       ...
       sub subname{
          ...
       }
七、文件系統(tǒng)：與unix緊密相關(guān)，參考：http://shouce.jb51.net/perl5/perl11.htm

OTHER：
管道：可以將前一執(zhí)行的結(jié)果作為后面的參數(shù)，比如
env | grep EDITOR
就可以刪選出環(huán)境變量中EDITOR的值

標(biāo)簽：秦皇島周口綿陽周口綏化淮安合肥百色

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《perl 簡明教程 perl教程集合》，本文關(guān)鍵詞 perl,簡明教程,教程,集合,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。