各位版大好, 程式码如以下
假设@data已经从外部读入 且共有 n 笔
for($i=0;$i<$n;$i++){
@temp1=(split(/A/,@data[$i]))[1,3,5];
# 第一次split用A来做条件, 取第1,3,5个元素
for($j=0;$j<3;$j++){ # 用循环再逐个元素split一次
@temp2=(split(/B/,@temp1[$j])[1]; # 取第一个元素
}
# ^^^^^^ 为了一个动作用for循环 程式码多了三行 感觉不划算 ^_^"
}
请问以上是否可以一行就split完两次?
※ 引述《josefy (醉落~最弱)》之铭言：
: 各位版大好,
: 有笔data 我希望用条件A split第一次并取出split后元素 1,3,5
: 之后再用条件B split第二次, 这时我需要取第1个元素并把资料存到 @rawdata里面
: 我已经可以分两次做完 但是我想以perl的强大功能, 应该可以更简洁.
: 是否有办法用一行就把这"两"个动作完成 ?
: 感谢