Perl에서 쉼표로 구분 된 문자열에서 단어를 추출하려면 어떻게합니까?

Question

내가

$myline = 'ca,cb,cc,cd,ce'; 

x 1, , $ 2 등등에 ca를 일치시킬 필요가있다.

불행히도

$myline =~ /(?:(\w+),?)+/; 

doesn ' 일하지 마라. pcretest를 사용하면 'ce'과 $ 1이 일치합니다. 그것을 올바르게하는 방법? while 루프에 넣어야합니까?

고마워!

Answer 1

왜 split function는 사용하지 마십시오.

Answer 2

my @parts = split(/,/, $myline)은 사용하기가 쉽지 않습니까?

@parts = split(/,/,$myline); 

split 당신은 구분 기호로 공급하는 정규 표현식을 사용하여 문자열 목록에 문자열을 분할 :

Answer 3

요소의 개수가 가변적이면 목표로하는 방식대로 수행하지 않을 것입니다. 그 다음 사용하지 그러나 경우,

while($myline =~ /(\w+)\b/g) { 
    # do something with $1 
}

나는 당신의 실제 데이터가 '캘리포니아, CB, CC, CD, CE'보다 더 복잡하다는 생각 하겠어 : 글로벌 플래그를 사용하여 문자열을 통해 루프 아마 정규 표현식이 보증되지 않습니다. 당신은 단락 문자 문자에 문자열을 분할 더 나을 것 : split 비록

my @things = split ',', $myline;

Answer 4

가 문제를 해결하는 좋은 방법이며,리스트 문맥에서 캡처 정규식은 잘 작동합니다. 두 가지 접근법을 아는 것이 유용합니다. csv로 PM의 당신이 CPAN에서 다운로드 할 수있는, 즉 Text::CSV 또는 Text::CSV_XS에

는

my $line = 'ca,cb,cc,cd,ce'; 
my @words = $line =~ /(\w+)/g; 

Answer 5

봐.

이렇게하면 필요한 것을 얻을 수 있으며 따옴표로 묶인 쉼표로 구분 된 값도 고려해야합니다. 이 모듈은 쉽게 밖으로 데이터를 분할하고 그것을 통해 분석 할 수 있도록 사용

... 예를 들어

: 단어가 쉼표를 포함 할 경우

my @field = $csv->fields;