length((split /\./,$FloatNum)[1]);其中split函数利用.将小数分成两部分，整数部分和小数部分，然后[1]表示返回小数部分。length则可以求出返回小数部分的长度。现成的函数没有，只能组合实现。
length($str)-index($str,".",0)-1把小数当成字符来算。
