Need some help using inline::python with perl

[jackz15]

I have the following python code embedded into perl that outputs the bluetooth mac address, rssi and other info:

#!/usr/bin/perl -w 
   use Inline Python => <<'END';


#!/usr/bin/python

import gobject

import dbus
import dbus.mainloop.glib

def device_found(address, properties):
	#prints mac address
	print "[ " + address + " ]"

	for key in properties.keys():
		value = properties[key]
		if (key == "Class"):
			print "    %s = 0x%06x" % (key, value)
		else:
			print "    %s = %s" % (key, value)

def property_changed(name, value):
	if (name == "Discovering" and not value):
		mainloop.quit()

if __name__ == '__main__':
	dbus.mainloop.glib.DBusGMainLoop(set_as_default=True)

	bus = dbus.SystemBus()
	manager = dbus.Interface(bus.get_object("org.bluez", "/"),
							"org.bluez.Manager")

	path = manager.DefaultAdapter()
	adapter = dbus.Interface(bus.get_object("org.bluez", path),
							"org.bluez.Adapter")

	bus.add_signal_receiver(device_found,
			dbus_interface = "org.bluez.Adapter",
					signal_name = "DeviceFound")

	bus.add_signal_receiver(property_changed,
			dbus_interface = "org.bluez.Adapter",
					signal_name = "PropertyChanged")

	adapter.StartDiscovery()

	mainloop = gobject.MainLoop()
	mainloop.run()
END

The python code alone works fine, however the problem comes when i have it embedded in perl. I am new to python so this might seem a bit obvious. I want to be able to return the values that the python code outputs into the perl code. How can I edit the python code to achieve that?

Thanks!

 

[ZaSter]

Why not run the Python script separately and pipe its output to the Perl script?