Question

I am trying to get SOAP to return a message, at the moment it just returns 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;

I am trying to get SOAP to return:

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

instead of “hello world”

Any help would be appreciated 🙂

Answer 1

How about….

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