校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > perl 簡明教程 perl教程集合

perl 簡明教程 perl教程集合

熱門標簽:外呼電信系統 okcc外呼系統怎么調速度 河南虛擬外呼系統公司 智能機器人電銷神器 熱門電銷機器人 上海企業外呼系統 電話機器人哪里有賣 惠州龍門400電話要怎么申請 萬利達百貨商場地圖標注

參考:http://shouce.jb51.net/perl5/
網站環境配置:https://www.jb51.net/article/74005.htm

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

前言:perl是什么,干什么用的?perl原來設計者的意圖是用來處理 字符的,80%的強項是處理字符,當然其它的很多都可以。現在很多網頁也是用perl的,通常需要CGI環境,比如 $char =~ /語言/ ,意思是查找含有“語言”這兩個字的字符串。它還能做unix和linux系統管理,文件內容處理(基于awk和sed等工具的功能),其他好多你想做的事。

一、perl環境配置

1.獲取perl
  Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免費得到它,如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)放置:
      將編譯生成的可執行文件拷貝到可執行文件通常所在目錄,如:
      $copy compiled excutable file> /usr/local/bin/perl

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

4注釋:
      注釋的方法為在語句的開頭用字符#,如:
      # this line is a comment
      注:建議經常使用注釋使你的程序易讀,這是好的編程習慣。

二、常量、變量等問題

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

三、文件操作

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

#!/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為標準輸出和標準錯誤文件,通常為屏幕,且不需要打開。
4.判斷文件狀態

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

文件測試操作符

操作符 描述
-b 是否為塊設備
-c 是否為字符設備
-d 是否為目錄
-e 是否存在
-f 是否為普通文件
-g 是否設置了setgid位
-k 是否設置了sticky位
-l 是否為符號鏈接
-o 是否擁有該文件
-p 是否為管道
-r 是否可讀
-s 是否非空
-t 是否表示終端
-u 是否設置了setuid位
-w 是否可寫
-x 是否可執行
-z 是否為空文件
-A 距上次訪問多長時間
-B 是否為二進制文件
-C 距上次訪問文件的inode多長時間
-M 距上次修改多長時間
-O 是否只為“真正的用戶”所擁有
-R 是否只有“真正的用戶”可讀
-S 是否為socket
-T 是否為文本文件
-W 是否只有"真正的用戶"可寫
-X 是否只有"真正的用戶"可執行
注:“真正的用戶”指登錄時指定的userid,與當前進程用戶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");
    }
  等價于
    open(INFILE, "infile") !(-e "outfile")
    open(OUTFILE, ">outfile") || die("Cannot open files\n");


四、模式匹配:

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

五、控制結構
(1)、條件判斷:if()elseif()else();
(2)、循環:
  1、while循環
  2、until循環
  3、for循環
  4、針對列表(數組)每個元素的foreach循環

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

  5、do循環
  6、循環控制:退出循環為last,與C中的break作用相同;執行下一個循環為next,與C中的continue作用相同;PERL特有的一個命令是redo,其含義是重復此次循環,即循環變量不變,回到循環起始點,但要注意,redo命令在do循環中不起作用。
  7、傳統的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);
    雖然條件判斷寫在后面,但卻是先執行的。

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

OTHER:
管道:可以將前一執行的結果作為后面的參數,比如
env | grep EDITOR
就可以刪選出環境變量中EDITOR的值

標簽:秦皇島 周口 綿陽 周口 綏化 淮安 合肥 百色

巨人網絡通訊聲明:本文標題《perl 簡明教程 perl教程集合》,本文關鍵詞  perl,簡明教程,教程,集合,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《perl 簡明教程 perl教程集合》相關的同類信息!
  • 本頁收集關于perl 簡明教程 perl教程集合的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 鸡西市| 明水县| 大同县| 丹寨县| 淳化县| 桑日县| 长子县| 翁牛特旗| 山丹县| 朝阳县| 尼玛县| 许昌市| 晋江市| 碌曲县| 临洮县| 宝山区| 徐闻县| 阜平县| 定州市| 修武县| 泸西县| 博白县| 邵阳市| 高台县| 奉化市| 昔阳县| 玉溪市| 扎兰屯市| 乌拉特后旗| 信丰县| 四子王旗| 柳江县| 襄汾县| 祁连县| 华蓥市| 乌什县| 山西省| 深水埗区| 巴林右旗| 宝坻区| 元谋县|