在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返回：

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

，而不是 「Hello World」 的

任何幫助，將不勝感激:)

Answer 1

怎麼樣....

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