perl에서 두 개의 하위 문자열을 결합하는 방법

Question

명령 줄을 통해 사용자가 입력 한 문자를 포함하는 문자열 배열의 하위 문자열에만 어떻게 참여합니까?

예를 들어 : $string 경우 "MALWCMRALPLCLALALCAWGPDPACAFVN" 및 @array는 $string에서 'A'에서 모든 컷의 문자열이 포함되어 있습니다. 그런 다음 원래 문자열에서 'L'의 위치 3과 9 (명령 줄을 통해 사용자가 입력 한)에 들어있는 두 개의 하위 문자열을 결합 할 수 있습니까? , 당신이 할 수있는

Answer 1

난 당신이 정확하게 할 의도,하지만 당신은 문자열의 배열에 가입 연결 연산자

$string3 = $string1 . $string2 ; 

을 사용하는 두 개의 문자열을 가입 모르겠어요

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

배열을 검색하여 배열 L을 포함하여 grep :

을 사용하여 검색 할 수 있습니다.

하고 가입 :

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

당연히, 당신이 명령 줄에서 변수를 사용하여 정규 표현식을 구성 할 수 있습니다 :

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

그렙의 패턴을 사용하면되는 당신이 L의이 원하는 배치 정의 할 수 있습니다 첫 번째 :

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