Velocity Reviews

Velocity Reviews (http://www.velocityreviews.com/forums/index.php)
-   Perl Misc (http://www.velocityreviews.com/forums/f67-perl-misc.html)
-   -   strings and numbers (http://www.velocityreviews.com/forums/t893540-strings-and-numbers.html)

les_andrey@yahoo.com 07-30-2005 09:27 AM

strings and numbers
 
Hi,

Please, tell me is it a bug or it works properly:

We have Perl code:

use WIN32::API;
my $ref=Win32::API->new('Test_Dll.dll','TestParamMY','PP','N');
my ($test1,$test2) = ('Test_Dll.dll','TestParamMY');
$test1>10;
print $test1."\n";
$ref->Call( $test1, $test2);

Where TestParamMY (C code):

TEST_DLL_API
PDH_FUNCTION TestParamMY( IN LPCSTR szTest1, IN LPCSTR
szTest2){
printf("%s, %s", szTest1, szTest2);
return 1;
}

output:
Test_Dll.dll, Test_Dll.dll
(null), TestParamMY

Modified:

use WIN32::API;
my $ref=Win32::API->new('Test_Dll.dll','TestParamMY','PP','N');
my ($test1,$test2) = ('Test_Dll.dll','TestParamMY');
#######$test1>10;
print $test1."\n";
$ref->Call( $test1, $test2);

Output:
Test_Dll.dll, Test_Dll.dll
Test_Dll.dll, TestParamMY

Thanks,
Andrew


All times are GMT. The time now is 12:32 AM.

Powered by vBulletin®. Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.