一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - perl - perl腳本學習指南--讀書筆記

perl腳本學習指南--讀書筆記

2020-06-19 10:36腳本之家 perl

最近在實習,看著公司有些腳本是perl寫,久聞perl處理文本還是很強大的,趁著周末掃了一般這本書~記錄下了~

undef 默認未定義字符,perl里面沒有NULL,defined($x)函數:如果參數為undef返回false

qw(cs phy geo) 類似于 (“cs”, "phy", "geo")列表可以賦值給數組@array

數組操作符:pop,push操作末尾,shift,unshift操作開頭,reverse逆序,@array = sort @array;

foreach @array{print $_;}打印數組;$_是一個很強大的默認變量

each操作,返回一對@array的(index, value),用在while循環中

perl有一道自動適應標量和列表上下文

sub定義子程序(函數),參數會在@_數組中,調用程序可用&符號,不與默認函數沖突可省略,可在函數中定義該

函數的持久私有變量,用state標識,每次調用函數時,該變量保持上次變化

my限定變量的范圍為當前作用,一般定義變量都用my

<STDIN> 按照行讀取輸入文件,默認<> 會讀取參數列表的所有文件,對于每行會以\n結尾,可以用chomp去掉\n

printf可以格式化輸出,sprintf更加強大

文件句柄:open CONFIG, '>>:utf8', 'filename' or die "failed : $!",die會拋出異常,產生輸出,close CONFIG;

使用文件句柄:類似while(<CONFIG>)讀取文件;改變默認輸出文件,select CONFIG; print "123" 到CONFIG文件,可替換默認STDERR

hash數組:key、value數組;可以賦值給數組,展開hash;reverse變成value=>key:%EVN環境變量

keys %hash返回keys數組,values %hash返回values數組;each返回K、V;exists、delete函數

強大的正則表達式:\A表示開頭;\z表示結尾;/s匹配任意空白;括號可以捕獲變量$1,存續到下次匹配成功;

不捕獲模式:/(?:bronto)?aaaa(bb|CC)/此時$1 代表bb或者CC;/(?<name1>\w+)/命名捕獲,$+{name1};

自動捕獲變量:$`匹配前 $&匹配到的 $'匹配后的變量;/xxxx/p開啟捕獲變量:高版本${^MATCH}

s///替換,類似于sed,支持捕獲$1;\U轉換為大寫

split /正則/, $string:拆分字符串為數組;join函數,split的逆過程;

非貪婪量詞:+?,*?,{8,}?,將不進行貪婪匹配;/i忽略大小寫,/m匹配換行符

$^I = ".bak"可以更新文件,打開文件時候以filename.bak打開,并寫回原文件

unless(con):類似if(!con);until:條件為假,重復執行;last類似于break;next類似continue;redo回到循環體的開頭(new);可加標簽

各種文件測試符-e,-M測試文件各種信息;stat $filename返回文件的一系列信息;my @files = glob “*”:當前路徑所有文件名

字符串函數:index,substr;高級排序@res = sort {$a<==>$b && $a cmp $b} @array

智能匹配符:~~:匹配hash的key,數組是否相同

perl腳本學習指南--讀書筆記

given-when語句:類似switch,有continue和break;

system加命令,去執行子進程;exec跑到另一個進程去,perl不再執行;反引號可以捕獲返回值;

支持fork多進程;defined(my $pid = fork) or die "$!"; unless($pid){子進程工作};支持發送接收SIG;

切片:($first, $last) = (sort @array)[0,-1],數組、hash都可以;eval捕獲錯誤不至于返回;

grep:my @array = grep {$_ % 2} 1..1000;奇數數組;my @array = map {&big_money($_)} @data; 操作data中每個元素;均返回列表

延伸 · 閱讀

精彩推薦
  • perlPerl從文件中讀取字符串的兩種實現方法

    Perl從文件中讀取字符串的兩種實現方法

    有時候我們需要從文件中讀取字符串,這里簡單介紹下, 需要的朋友可以參考下 ...

    腳本之家6252020-06-08
  • perlPerl使用nginx FastCGI環境做WEB開發實例

    Perl使用nginx FastCGI環境做WEB開發實例

    這篇文章主要介紹了Perl使用nginx FastCGI環境做WEB開發實例,實現了路由系統和模板系統,需要的朋友可以參考下...

    Perl教程網2412020-06-18
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一個pragma(預編譯指示符),專門用來預定義全局變量,這些預定義后的全局變量在qw()列表中,在整個引用perl文件中皆可使用,即便使...

    perl教程網6812020-06-16
  • perlPerl的經典用法分享

    Perl的經典用法分享

    Perl的經典用法分享,學習perl的朋友可以參考下 ...

    腳本之家6562020-06-06
  • perlperl命令行參數內建數組@ARGV淺析

    perl命令行參數內建數組@ARGV淺析

    這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下 ...

    perl教程網6162020-06-18
  • perlPerl List::Util模塊使用實例

    Perl List::Util模塊使用實例

    這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和 、求一組數字的最大值與最小...

    腳本之家4712020-06-22
  • perlperl pop push shift unshift實例介紹

    perl pop push shift unshift實例介紹

    perl的pop跟push操作數組的最右邊,shift跟unshift操作數組的最左邊 ...

    腳本之家4612020-06-10
  • perlperl常見問題集合之二

    perl常見問題集合之二

    哪些平臺上有 Perl?要到哪里去找? Perl的標準發行版(由 perl 發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔...

    腳本之家2102020-05-29
主站蜘蛛池模板: 狠狠干狠狠插 | 大妹子最新视频在线观看 | 亚洲色图第一页 | 四虎新网址 | 午夜第一页 | 精品一久久香蕉国产线看观 | 女人叉开腿让男人桶 | 天堂男人在线 | 精品手机在线1卡二卡3卡四卡 | 四虎影院久久 | 边吃胸边膜下刺激免费男对女 | 久久九九精品国产自在现线拍 | xxoosex久久久久久 | 国产一二三区视频 | 日韩亚洲国产激情在线观看 | 成人黄页网站 | 青青青青在线视频 | 天天综合天天色 | 亚洲情欲网 | 人配人种视频xxxx | 精品一区二区三区色花堂 | 亚洲国产货青视觉盛宴 | 人人揉人人爽五月天视频 | 亚洲欧洲色图 | 热99这里有精品综合久久 | sss在线播放 | 亚洲国产成人在人网站天堂 | 国产麻豆在线观看网站 | 日本免费三片在线播放 | 午夜人妻理论片天堂影院 | 亚洲国产韩国欧美在线不卡 | japanese秘书丝袜 | 亚洲欧美日韩另类在线一 | 国语视频高清在线观看 | 赤坂丽女医bd无删减在线观看 | 2022色婷婷综合久久久 | 大香焦在线观看 | 好奇害死猫在线观看 | 嫩草影院永久一二三入口 | 国产精品视频2021 | 亚洲视频99 |