perl编写软板1-8层自动板边脚本程式