Perl : 특정 문자가 발생한 후 나머지 문자열 제거

Question

파일에서 데이터를 정리하고 있습니다. 그래서 각 줄을 읽고 특정 조건을 확인하고 파일에서 적절한 작업을 수행합니다. 내가해야 할 일 중 하나는 문자열에서 문자 $의 발생을 확인하는 것입니다. 찾으면 $를 포함하여 나머지 행을 삭제해야합니다. 라인이

abc$hello-goodbye 

인 경우 예, 저는 최소한의 코드로 펄에서이 작업을 수행하려면 어떻게

abc 

을 얻을 필요가? 어떤 종류의 regexp를 사용합니까?

Answer 1

가장 빠른 쉬운 정규 표현식입니다 첫 번째 요소. 자세한 내용은 perldoc -f split을 참조하십시오.

Answer 2

정규식 또는 index과 substr의 조합을 사용할 수 있습니다.

너무 어렵지 않습니다.

$string =~ s/\$.*//; 

이

루비에서

$string = 'abc$hello-goodbye'; 

Answer 3

, 마찬가지로

>> "abc$def".split("$")[0] 
=> "abc" 
>> 

,이 작업을 수행 할 펄에서 split() 기능을 사용하여 얻을 :