Perl

將字元串中的變數插入到隨機位置?

  • December 21, 2016

我們有一個長度為 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}'

引用自:https://unix.stackexchange.com/questions/331758