Re: Call C DLL Functions in Perl

[ikegami]

By the way,

($sec,$min,$hour,$day,$month,$year) = localtime($rv_bstr);
# correct the date and month for humans
$year = 1900 + $year;
$month++;
printf "%02d/%02d/%02d %02d:%02d:%02d\n", $year, $month,$day, $hour, $
+min, $sec;

can be written as

use POSIX qw( strftime );
print strftime "%Y/%m/%d %H:%M:%S\n", localtime($rv_bstr);