User Profile

sweetypie · Dec 3 '09, 09:43 AM

Using system command is the worst way of doing it.
Although the use File::Path qw(remove_tree) is the best.

@jeff : oops ...

sweetypie · Dec 3 '09, 09:40 AM

Hey check this out,
Perl Script to send SMS
(Only works for numbers in INDIA)

sweetypie · Nov 26 '09, 06:09 PM

Script to recursively delete

Code:

#!/usr/bin/perl
deldir("test"); # or deldir($ARGV[0]) to make it commandline
 
sub deldir {
  my $dirtodel = pop;
  my $sep = '\\'; #change this line to "/" on linux.
  opendir(DIR, $dirtodel);
  my @files = readdir(DIR);
  closedir(DIR);
 
  @files = grep { !/^\.{1,2}/ } @files;
  @files = map { $_ = "$dirtodel$sep$_"}

...

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment: