Perl
將字元串中的變數插入到隨機位置?
我們有一個長度為 20 個字元的字元串。
我們有一個隨機數,例如:6
我們有一個變數,例如: $var="%"
我們如何將變數插入到字元串的第 6 位?
例子:
輸入:啊啊啊啊啊啊啊啊啊
輸出:aaaa% aaaaaaaaaaaaaaa
迴聲輸入 | 魔法> 輸出
不是
perl
,但是sed
,如果有人感興趣的話。INPUT="aaaaaaaaaaaaaaaaaaaa" random_number="6" var="%" echo ${INPUT} | sed -e "s/./${var}/${random_number}"
既然你用以下標籤標記了它
perl
:echo aaaaaaaaaaaaaaaaaaaa | var=% perl -lpe 's/^.{5}\K/$ENV{var}/e'
另一種方式
perl
:echo aaaaaaaaaaaaaaaaaaaa | var=% perl -lpe 'substr $_, 5, 0, $ENV{var}'