看板
[ Perl ]
討論串[問題] 文字元素的合成
共 7 篇文章
內容預覽:
若你文字與數字是亂序的話，可以參考看看. use strict;. my $str = "Z[2], Z[1], C[1], C[0], D, P[2], P[1], C[2], B, P[3], A, T,";. my @str_split = split/, */,$str;. @str_spl
(還有641個字)
內容預覽:
重新想了一下 再有bug就不寫了 XDD. my $str = 'A, B, C[1], C[0], D, P[3], P[2], P[1],';. my @arr = split /, */, $str;. my @out;. my @bus = ' ';. sub bus_out {. retu
(還有276個字)
內容預覽:
看輸入的形式 我假設同pin一定排在一起 而且裡面的數字一定降冪. 如果不是 也可以寫個sort排一下 應該沒幾行. 然後就照前面c大的說法來寫 寫成這樣. my $str = 'A, B, C[1], C[0], D, P[3], P[2], P[1],';. my @arr = split /,
(還有327個字)
內容預覽:
最後我自己想出來了，雖然有點烙烙長. 不過還是有得到正確的output，分享給大家，. 兩個重點. 1. 用迴圈先把有[]的做分類. 2. 用計數器判斷C 或 P 出現了幾次. cnt < 1 , 取C 或 P 就好. cnt > 1 ，取元素. -----------------------. $
(還有832個字)
內容預覽:
只針對目前的資料的話. 可以用 split 分開資料欄位. 用 s/\s+//g 取代掉空白字元. 可以檢查 substr($data, -1, 1) 是不是 "]" 就知道有沒有括號,. 同理可以用 substr($data, -2, 1) 取得數字的資料. 用一個 for 迴圈跑 split 產
(還有18個字)