Hi list,
When I execute this piece of code, it is always putting 1 at the end, anyone know
how to get rid of this?
how to get rid of this?
#/usr/bin/perl -w
use Date::Manip;
use Date::Manip;
$time = &DateCalc("today","+ 30 days");
$time1 = print (&UnixDate($time,"%m/%d/%Y"));
chomp $time1;
$time1 = print (&UnixDate($time,"%m/%d/%Y"));
chomp $time1;
print "$time1\n";
bash-2.03$ perl delart.pl
05/01/20041 <------ here
05/01/20041 <------ here
Thanks in advance
Do you Yahoo!?
Yahoo! Small Business $15K Web Design Giveaway - Enter today
_______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
