Tuesday, July 12, 2011

Deleting the backup files in the directory perl

Use simply

unlink(<*.bak>);  
Here i have assumed the backup files to end with .bak this wildcard can be changed as per your requirement
in the perl script and execute it will delete all the files ending up .bak in the current directory

you can also execute from the command line as follows:

G:\perl_programs>perl -e "unlink(<*.bak>);"
Posted by at

2 comments:

  1. UnknownJuly 12, 2011 at 4:28 PM

    Please don't use . Use glob("wildcard"). Much less confusing, much easier to extend.

    $wildcard = "*.bak";
    unlink <$wildcard>;

    That doesn't work as intended. Change to glob, it does.

    ReplyDelete
  2. karthikJuly 12, 2011 at 7:25 PM

    Thanks

    ReplyDelete

Subscribe to: Post Comments (Atom)