(zdog) Re: Weird Date::Calc behavior; Bug?

[zdog]

You cannot assign a scalar to an array that way. You should instead split the scalar up like so:

#!/usr/bin/perl -w
#find-missing-files.pl
use strict;
use Date::Calc qw ( Delta_Days Add_Delta_Days );

my (@start, @stop);

@start = split (/-/, $ARGV[0]); print "@start\n";
@stop = split (/-/, $ARGV[1]);  print "@stop\n";

for ( my $i = 0; $i <= Delta_Days(@start, @stop); $i++ ) 
{
    my @date = Add_Delta_Days (@start, $i);
    printf ("%4d-%02d-%02d\n", @date);
}

Update: You can also do something like:

$from =~ s/-/,/g; 
$to =~ s/-/,/g;

@start = eval ($from);
@stop = eval ($to);

Zenon Zabinski | zdog | [e-mail]