Recent

• FILE HOSTS PREMIUM ACCOUNT
• ALL FILE HOST PREMIUM ACCOUNTS
• Zynga Slingo Trainer v5.12
• iTunes Gift Card Generator V3.1 2012
• Diablo 3 GOLD Coins FREE
• Working PS3 Jailbreak 3.65 And 3.66
• ExtaBit Premium Accounts and Cookies
• Steam Wallet Hack - Money Adder & Hack v3
• Empires & Allies Hack Cheat Trainer v5.4.1
• Eve Onnline 60 Days Time Card Generator v2

Popular

• XBOX POINTS GENERATOR - MICROSOFT POINTS GENERATOR v1.2012
• 11 may 2012 premium uploading accounts 100% working
• Free Microsoft Points
• Free Microsoft Points - Microsoft Points Generator - Xbox Live Codes 2012
• Car Town Free Blue Points Hack
• Free CarTown Blue Points Generator and CarTown Templates
• Better way to get content via jQuery $.get()
• Free Microsoft Points
• Simple Days Purger
• Sharecash Downloader Bypass Surveys New 05/2012

Pastable version of Delete files from a directory

<pre class='prettyprint' language='perl'>use File::Spec; sub purge_archive{ print &quot;\nPurging files from: $_[0]\n&quot;; opendir(DIR,$_[0]) or die &quot;Cannot open $_[0]: $!&quot;; my @files = grep{!/^\./ } readdir(DIR); foreach my $file (@files){ unlink File::Spec-&gt;catfile($_[0],$file) or die &quot;Can't remove files from $_[0]: $!&quot;; } closedir(DIR); }</pre> <a href="http://www.refactormycode.com/codes/532-delete-files-from-a-directory" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>