Select Code to Download

char __stdcall CDllTest::sum_char(char a, char b)
{
...
printf("%d,%d,%c\n",a,b,c);
return c;
}

#!/usr/bin/perl -slw
#use strict;
...
print "$character1\n";
$num = $fun->Call($character,$character1);
print "$num\n";

D:\strawberry\perl\bin>perl Test.pl
Win32::API=HASH(0x3faa74)
...
Afrer conversion j(o/p printf on C++ side)
53,53,j(o/p printf on C++ side)
Use of uninitialized value $num in concatenation (.) or string at Test
+.pl line 40.