Thank you for your time and support. I'm fairly new to perl and I'm really starting to like coding in perl but I've never used CWD nor ENV. I have read from both perldoc and perlmaven but I'm not understanding how to fit it in my script. Is this right?
#!/usr/bin/perl -w use strict; use warnings; use Cwd qw(cwd); use POSIX qw/strftime/; use IO::Compress::Zip qw(:all); # Timestamp my $now = strftime("%d%b%Y_%H00", localtime(time - 60*60)); # Where zip file is to be stored my $arc = "/path/to/archive/"; # Where csv files are found. chdir "/path/to/directory"; # Zipping files found and storing into archive zip [ glob("*-".$now.".csv") ] => $arc.$now.".zip" or die "Cannot create zip file: $ZipError" ; # Deleting csv files unlink glob("*-".$now.".csv");
In reply to Re^2: Zip script not running on cron
by PerlMonger79
in thread Zip script not running on cron
by PerlMonger79
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |