perl-怎麼編程實現批處理文本，使文本內容減少10%，20%，30%？

怎麼編程實現批處理文本，使文本內容減少10%，20%，30%？

在一個目錄下有幾百個txt文件，裡面是拼音，每個拼音之間空格相隔，用perl或者Python和bat都行，貌似這幾個沒有這種刪除的方法，不是刪除也行，提取90%，80%，70%到新txt文件也行

最佳回答：

求人不如求己，自己早就弄出來了