[精讚] [會員登入]
151

Perl 的列舉寫法(map list)

使用列舉的寫法來設定陣列,非常的強大

此文完整連結 http://n.sfs.tw/13017

複製連結 Perl 的列舉寫法(map list)@新精讚
(文章歡迎轉載,務必尊重版權註明連結來源)
2019-01-22 01:46:00 最後編修
2019-01-08 16:28:56 By 張○○
 

Perl 的 map 是非常強但是不容易理解的東西,很抽象。

map 的語法

map BLOCK LIST

map EXPR, LIST

map(BLOCK LIST) 函式寫法

map(EXPR, LIST) 函式寫法

EXPR可以是子函數名、正則表達式等,BLOCK是由大刮號包起來的區塊。LIST是輸入列表或陣列。

函式寫法適用於後置表達式或是為了容易閱讀。

簡單地說,map就是起了一個替代 foreach 循環的作用,map會把LIST中的元素一個個取出,放到系統變量$_中,然後調用 BLOCK/EXPR 去處理。

處理過的結果由map函數返回,成為一個新的LIST。

看不懂對吧?!

請看範例:

EXAMPLE1. 將清單中的數值開根號*10

my @arr = map { sqrt($_)*10 } qw/50 70 100 91 18/;
print "@arr"; #70.7106781186548 83.6660026534076 100 
# 95.3939201416946 42.4264068711928

 

 

EXAMPLE2. 將 0-9 平方後丟到 @arr中

my @arr = map { $_ ** 2 } (0..9);
print "@arr";  #0 1 4 9 16 25 36 49 64 81

 

EXAMPLE3. 將清單加上網域

@user= (' axer', 'john', 'peter', 'lee');
@mail = map {  $_ .  '@n.sfs.tw' } @user;

第2行 這裡的 '@n.sfs.tw' 是以單引號括起,否則用雙引號會把 @n 視為陣列
結果 @mail = qw( axer@n.sfs.tw john@n.sfs.tw peter@n.sfs.tw lee@n.sfs.tw );

 

EXAMPLE4. 使用取代,自己被改變

使用tr大小寫互換,相關說明可以參考 [PERL] 16-字串取代和置換

@m=("Wwww",  "Facility", "Mail");
map { tr/a-zA-Z/A-Za-z/ } @m;
print "@m\n"; #wWWW fACILITY mAIL

或是使用s作取代,下例map 將@m 陣列中的字串空白移除

@m=("   www",  "facility ", " mail ");
map { s/\s+//g } @m;
print "@m"; #www facility mail

@m 本身被改變

 

EXAMPLE5. 使用副程式EXPR,把字符取代掉

把oO換成0,q換成9,il換成1、t換成7,然後首字大寫。

@m=("who",  "facility", "Mail");

map &encryptwords, @m;
print "@m\n";

sub encryptwords{
  tr/oOqilt/009117/;
  $_=ucfirst($_);
}

第3行 使用副程式 encryptwords 來處理,注意副程式前面有一個'&';後面有一個逗點 ','

第4行執行結果 Wh0 Fac1117y Ma11

6-9行 副程式,如果忘了副程式可參考 [PERL] 12- 副程式

 

EXAMPLE6. 使用內建函式把首字大寫

@m=("who",  "facility", "Mail");
@m=map ucfirst, @m;

第2行 很精簡的一行

 

EXAMPLE7. 使用map篩選連續的鹼基

篩選出有連續的鹼基,例如 AAC TAA GAA....

@aminos = qw(
TCA  TCC  TCG  TCT  TTC  TTT  TTA  TTG  TAC  TAT  TAA  TAG  
TGC  TGT  TGA  TGG  CTA  CTC  CTG  CTT  CCA  CCC  CCG  CCT  
CAC  CAT  CAA  CAG  CGA  CGC  CGG  CGT  ATA  ATC  ATT  ATG  
ACA  ACC  ACG  ACT  AAC  AAT  AAA  AAG  AGC  AGT  AGA  AGG  
GTA  GTC  GTG  GTT  GCA  GCC  GCG  GCT  GAC  GAT  GAA  GAG  
GGA  GGC  GGG  GGT
);

@m=map  /(.)\1/?$_:(), @aminos;
print "@m\n";

執行結果

TCC TTC TTT TTA TTG TAA TGG CTT CCA CCC CCG CCT CAA CGG ATT ACC AAC AAT AAA AAG AGG GTT GCC GAA GGA GGC GGG GGT

第10行 使用正則表達式,比對連續出現的字母,如果比對成功,把比對的結果加到@m,否則略過。map中要略過使用空的小刮號 '()'。

請注意寫法,因為是表達式,所以不能省略那個逗號,否則會出現語法錯誤。這個式其實是這個意思:

foreach(@aminos){
  $_ =~ /(.)\1/?$_:();
}

只是省略了比對的運算。你也可以寫成區塊的型式,結果會一樣

@m=map { /(.)\1/?$_:()} @aminos;

 

結論

-- 熟析map用法可以省略非常多的步驟和程式碼,非常強大。

-- LIST也可以放入雜湊。

-- tr///和s///會換掉原來的LIST


重寫原文 2009-11-16 10:22:00

你可能感興趣的文章

[PERL] 常態分配亂數產生函數 一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的,但如果需要常態分配的亂數產生器該怎麼做?

Perl 的列舉寫法(map list) 使用列舉的寫法來設定陣列,非常的強大

[PERL] 01-撰寫第一隻PERL程式 PERL的系列教學文,適合有其他程式經驗但沒學過PERL的人

[PERL] split 寫法 Perl 將字串分開可以用 split 這個函數,此函數可以用Regex作分隔判斷

[PERL]] find 和 perl 的結合--大量檔案中文字的取代 利用PERL作大量的文件取代

Perl 的特殊變數:$_、$&、$! 介紹perl的特殊變數 $_ 、 $&、$!

PERL 正規表達式會用到的符號 PERL在比對時常常會用到符號整理

[PERL] 17-參照 PERL的參照,就是指標

[PERL] 簡易檢查網頁記錄檔ip來源統計 利用PERL來檢查網頁記錄檔ip來源統計的簡易程式

自行撰寫syslog server建立資訊安全控管中心#3 -- 程式下載和安裝 利用PERL將syslog收攏到資料庫的程式,程式下載和安裝

我有話要說


限制:留言最高字數1000字,超過部分會被截掉。請注意:留言不可帶有網址,會被濾掉。 限制:未登入訪客,每則留言間隔需超過10分鐘,每日最多5則留言。

訪客留言

[無留言]

隨機好文

使用Google尋找你的手機 這近發現google竟然可以用來找android的手機,而且不需要經過什麼設定或安裝軟體。

[jQuery] 利用load()來達成ajax的寫法 jQuery中利用load()來達成ajax的寫法,也有人稱他是假的ajax,作法就是..

[Freebsd] 使用 ADSL 撥接上網 Freebsd上要使用 ADSL 撥接上網,該如何設定?

APACHE的記錄檔格式 LogFormat 語法 在APACHE中有定義一些記錄的語法模版 在 /etc/httpd/conf/httpd.conf 中: LogForm

[Javascript] 偵錯方式 (火狐中的javascript偵錯) javascript 並不是很容易偵錯(debug)的語言,但那是以前,現在有很多瀏覽器支持很多的工具,此文以火狐為例談談偵錯...