- 论坛徽章:
- 1
|
[root@myvm1 test]# time find ./ -type f -exec rm {} \;
real 14m51.735s
user 2m24.330s
sys 9m48.743s
[root@myvm1 test]# time find ./ -type f -delete
real 5m11.937s
user 0m1.259s
sys 0m28.441s
[root@myvm1 test]#
[root@myvm1 test]# time perl -e 'for(<*>){((stat)[9]<(unlink))}'
real 1m0.488s
user 0m7.023s
sys 0m27.403s
[root@myvm1 home]# time rsync -a --delete blanktest/ test/
real 2m52.502s
user 0m2.772s
sys 0m32.649s
请教:perl 删除,文件。只是删除当前目录的文件,文件夹不会删除。如何用perl删除文件夹下所有的东西(如:android源码)
请大神,更高速的删除方法。 |
|