One Hat Cyber Team

Your IP : 10.30.1.1

Server IP : 103.148.201.5

Server : Linux web-olt 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64

Server Software : Apache/2.4.52 (Ubuntu)

PHP Version : 8.1.29

Buat File | Buat Folder

Dir : ~/usr/share/doc/libnet-dbus-perl/examples/

View File Name : example-client-no-introspect.pl

#/usr/bin/perl

use warnings;
use strict;

use Net::DBus;
use Carp qw(cluck carp);
#$SIG{__WARN__} = sub { cluck $_[0] };
#$SIG{__DIE__} = sub { carp $_[0] };

my $bus = Net::DBus->session();

my $service = $bus->get_service("org.designfu.SampleService");
my $object = $service->get_object("/SomeObject", "org.designfu.SampleInterface");

my $list = $object->HelloWorld("Hello from example-client.pl!");

print "[", join(", ", map { "'$_'" } @{$list}), "]\n";

my $tuple = $object->GetTuple();

print "(", join(", ", map { "'$_'" } @{$tuple}), ")\n";

my $dict = $object->GetDict();

print "{", join(", ", map { "'$_': '" . $dict->{$_} . "'"} keys %{$dict}), "}\n";