如何在perl中連接兩個子字符串

Question

如何僅連接包含用戶通過命令行輸入位置的字符的字符串數組的子串？

例如：如果$string是"MALWCMRALPLCLALALCAWGPDPACAFVN"和@array包含$string在'A'每切子。那麼怎麼能在原始字符串中加入位置3和9（由用戶通過命令行輸入）中包含'L'的兩個子字符串？

Answer 1

我不知道你正是打算這樣做，而是你一起使用連接運算符

$string3 = $string1 . $string2 ; 

加入字符串數組兩個字符串，你可以做

$string3 = join("", @stringarr) ; 

您可以使用grep搜索包含L的字符串：

@selstrings = grep(/L/, @strarray) ; 

參加吧：

$string3 = join("", @selstrings) ; 

使用grep的模式，您可以定義在哪個位置，你希望L的是：

@selstrings = grep(/^(.{2}|.{8})L/, @starray) ; 

當然，你可以構建使用命令行變量的正則表達式第一：

$regex = "^(.{" . $ARGV[0] . "}|.{" . $ARGV[1] . "})L" ; 
@selstrings = grep(/$regex/, @starray) ;