perlsubstr()函数及函数的应用_javascript技巧