参考：https://www.perlmonks.org/?node_id=504626 参考：https://blog.csdn.net/hsd2012/article/details/51209671