이 perl 정규식은 무엇입니까?

Question

정규 표현식을 배우기 시작했는데 여기에는 많은 요소가 있습니다. 그게 뭐야?

$x =~s/\.?0+$//; 

Answer 1

0 개 또는 하나의 리터럴 점과 하나 이상의 0이 뒤 따르는 다음 문자열의 끝과 일치합니다.

\.  #A literal dot 
?  #Zero or one of the previous character 
0+  #One or more zeros 
$  #End of string 

Answer 2

'24 .00'을 '24'로 변경하여 문자열의 끝에서 마침표와 트레일 링 제로를 제거합니다. 조각 내 :

s/ substitute operation 
\. literal period, not a placeholder 
? Period is optional (by the way, probably a bug) 
0+ one or more zeros 
$ all of this at the end of the string. 
// replace it with nothing, i.e., just delete it. 

버그? 글쎄, '2400'은 '24'로 바뀔거야. 아마도 원하는 동작이 아닙니다.

Answer 3

App for that!