Hi Srinivas I tried rmtree & it worked. Its able to delete Recursively in single line. Thanks it really Worked.
Sumit --- In twincling@yahoogroups.com, "srinivas raj" <[EMAIL PROTECTED]> wrote: > > Hi Sumit, > > I have 3 options for you. > > First One : using the *rmtree* subroutine from *File::Path* Module > > > *rmtree('foo/bar/baz', 1, 1);* > > , the rmtree function provides a convenient way to delete a subtree from the > directory structure, much like the Unix command rm -r. rmtree takes three > arguments: > > - the root of the subtree to delete, or a reference to a list of > roots. All of the files and directories below each root, as well as the > roots themselves, will be deleted. > - a boolean value, which if TRUE will cause rmtree to print a message > each time it examines a file, giving the name of the file, and indicating > whether it's using rmdir or unlink to remove it, or that it's skipping > it. (defaults to FALSE) > - a boolean value, which if TRUE will cause rmtree to skip any files > to which you do not have delete access (if running under VMS) or write > access (if running under another OS). This will change in the future when a > criterion for 'delete permission' under OSs other than VMS is settled. > (defaults to FALSE) > > It returns the number of files successfully deleted. Symlinks are simply > deleted and not followed. > ----------------------------------------------------------------------------------------------------------------------- > > Second option is writing your own recursive sub routine to remove the > directory tree > > sub cleanup { > my $dir = shift; > local *DIR; > > opendir DIR, $dir or die "opendir $dir: $!"; > my $found = 0; > while ($_ = readdir DIR) { > next if /^\.{1,2}$/; > my $path = "$dir/$_"; > unlink $path if -f $path; > cleanup($path) if -d $path; > } > closedir DIR; > rmdir $dir or print "error - $!"; > } > > --------------------------------------------------------------------------------------------------------- > > The third one is a very simple one and which i prefer as i am very lazy :) > > simply use the system function with the unix command > > *system(rm -rf <<path>> );* > ** > ** > > > -- > ~Regards > Srinivas > ===================================================== Mark your calendar for the next TSM Saturday (5pm - 7:30pm) on 28th October 2006 DSPACE DSPACE is an open source software package which provides the tools for management of digital assets, and is commonly used as the basis for an institutional repository. It is also intended as a platform for Digital preservation activities. Since its release in 2002, as a product of the HP-MIT Alliance, it has been installed and is in production at over 100 institutions around the globe, from large universities to small higher education colleges and research centres. Venue: 5th Floor, Conference Room COMMVAULT Systems (India) Pvt Ltd. Ashoka Janardhan Chambers S. P. Road, Begumpet Hyderabad. Helpline: +91 - 98482 37656 To know more about TWINCLING Society http://www.twincling.org/ Visit the TWINCLING Photo Gallery at http://www.flickr.com/photos/twincling ===================================================== Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/twincling/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/twincling/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/