PERL Miscellaneous - strings and numbers

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

strings and numbers

les_andrey@yahoo.com

2005-07-31, 5:17 pm

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

Sponsored Links