[請益] 字串拼接的方式
各位大大，目前要處理字串重新排列的問題
透過split+substr，能夠完成，但是$FLOW宣告的方式有點怪，
想了解有沒有更好的寫法呢? 謝謝
<以下是字串與code內容:>
=====字串======
OPEN_SHORT ? : #C(hw_fail_1, sw_fail_1 ) ; //AA
MBIST ? : #C(hw_fail_2, sw_fail_2 ) ;//BB
last_item? #C(pass, pass) : #C(hw_fail_3, sw_fail_3 ) ;
=====執行程式的輸出=====
OPEN_SHORT ? : #C(hw_fail_1, sw_fail_1 );//AA
MBIST ? : #C(hw_fail_2, sw_fail_2 );//BB
last_item ? #C(pass, pass) : #C(hw_fail_3, sw_fail_3 );
=====程式=====
my $FLOW=" ";
my @Array=();
$FLOW =~ s/\)\s+\;/=/g;
$FLOW =~ s/\?|\:/=/g;
@Array = split(/\=/, $FLOW);
$Array[0] =~ s/\s+//g;
$Array[1] =~ s/^\s+|\s+$//g;
$Array[1] =~ s/\(\s+/(/g;
$Array[1] =~ s/(\w+)$/$1)/g;
$Array[2] =~ s/^\s+|\s+$//g;
$Array[3] =~ s/^\s+|\s+$//g;
substr($FLOW, 0,0) = "Array[0]";
substr($FLOW, 16,0) = "? Array[1]";
substr($FLOW, 31,0) = ": Array[2]";
substr($FLOW, 56,0) = ");Array[3]";
print $FLOW;
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.231.114.132 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1588946919.A.57F.html
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
