Re: reg ex. problem - 2 variables

A couple of suggestions:

Run the script with the three user inputs as command line args, and get their values from @ARGV. It really does make life easier for the user, and it's easier to code (e.g. you don't need to chomp the argv strings):

use strict;
use Date::Simple;
use Date::Range;

my $Usage = "Usage:  $0  userid  start-date  end-date
   (dates should be mm/dd/yyyy)\n";  # (is that the date format you wa
+nt?)

@ARGV == 3 or die $Usage;
my ( $userinput, $dateinput1, $dateinput2 ) = @ARGV;

# if the user gives unusable values in @ARGV, the script can
# do "die $Usage" for those cases as well.
[download]

The name of the REPORT file never changes, so you should open it for output just once, before you go into the first while loop.

Comment on Re: reg ex. problem - 2 variables Download Code