PERL로 문자열 반환하기

Question

나는 메시지를 반환하도록 SOAP을 얻으려고하고있다. 지금은 그냥 hello world를 반환한다.

package RAM; 
sub ram { 
#!/usr/bin/perl 
use Sys::MemInfo qw(totalmem freemem totalswap); 

return SOAP::Data->name('result')->type('string')->value("hello world"); 
} 
1; 

나는 돌아 SOAP를 얻기 위해 노력하고 있어요 :

대신에 "Hello World"

어떤 도움의

print "free memory: ".(&freemem/1024)."\n"; 

을 감상 할 수있다 :)

Answer 1

을하는 방법에 대해 ....

my $string_to_return = "free memory: ".(&freemem/1024)."\n"; 
    return SOAP::Data->name('result')->type('string')->value($string_to_return);