- my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{2})/;
- my $new_serial = strftime("%Y%m%d",gmtime)."01"
- if ($ymd == strftime("%Y%m%d",gmtime)) {
- $new_serial = $ymd.($iter+1);
+ if (not defined $old_serial) {
+ print STDERR "problem dealing with $file\n";
+ unlink("${file}.new") or die "Unable to unlink ${file}.new: $!";
+ next;
+ }
+ my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{1,2})/;
+ my $new_serial = strftime("%Y%m%d",gmtime())."01";
+ if ($ymd eq strftime("%Y%m%d",gmtime())) {
+ $new_serial = $ymd.sprintf('%02d',$iter+1);