このperl正規表現は何と一致しますか？

Question

私は正規表現の学習を始めましたが、これには非常に多くの要素があります。それは何と一致しますか？

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

Answer 1

ゼロまたは1つのリテラルドット、1つ以上のゼロ、文字列の最後に一致します。

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があります。