Re: Re: Re: Moving log files, create folder based on local time/date & zip them up based on local time & date.

opendir FILES, $dir_name;
my @files = readdir FILES;
closedir FILES;

my $zip = Archive::Zip->new();
$zip->addFile($_) for @files;
my $date = join "_", ((localtime)[3,4,5]);
my $status = $zip->writeToFileNamed( "$date.zip" );
[download]

Comment on Re: Re: Re: Moving log files, create folder based on local time/date & zip them up based on local time & date. Download Code