Question

请问Perl如何清空一个目录下的所有文件夹

假设在'D:\Personal'下有若干文件夹，请用Perl编程实现将这些可能非空的文件夹都变成空文件夹？

Answer 1

#!/usr/bin/perl -w

# Usage: perl This_Program.pl D:\\Your\\Folder

use strict;
use Win32;
use File::Find;

$dir = shift;

find sub {

unlink $name if -f File::Find::name;

}, "$dir";

Answer 2

unlink