作者luncha (谢谢)
看板Perl
标题[请益] 字串拼接的方式
时间Fri May 8 22:08:34 2020
各位大大，目前要处理字串重新排列的问题
透过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://webptt.com/cn.aspx?n=bbs/Perl/M.1588946919.A.57F.html