Übersetzung gesucht für PHP Funktion file_get_contents - #177950 (Allgemeines zu Perl)

Perlentaucher

2014-10-24 15:04

User since
2014-08-04
26 Artikel
BenutzerIn

user image

Hallo zusammen

wir haben Dank Eurer Hilfe den Code jetzt funktionsfähig übersetzt bekommen!
Es liefert uns ganz brav einen netten hash:

Code: (dl )

{"id":"/gateway/versionFirmware","type":"stringValue","writeable":0,"recordable":0,"value":"01.05.04"}

Vielen Dank an Euch!!!

Ich möchte dies zu Anlass nehmen, das i-Tüpfelchen mit Eurer Hilfe fertig zu stellen: Die "Set"-Funktion

Das php-Original lautet

Code: (dl )

function km200_SetData( $REST_URL, $Value )
{
	$content = json_encode(
		array(
			"value" => $Value
		)
	);
	$options = array(
		'http' => array(
	   	'method' => "PUT",
	    	'header' => "Content-type: application/json\r\n" .
	                	"User-Agent: TeleHeater/2.2.3\r\n",
			'content' => km200_Encrypt( $content )
		)
	);
	$context = stream_context_create( $options );
	@file_get_contents(
		'http://' . km200_gateway_host . $REST_URL,
		false,
		$context
	);
}

Ich habe schon mal angefangen aber irgendwie weiss ich trotz Dokmentation nicht, wo ich den $data einbringen soll

Code: (dl )

sub km200_SetData($)
{
	my writevalue            	= $_;

	my $REST_URL                = "/folder";
	my $km200_gateway_host      = "192.168.178.200";
		
	my $ua = LWP::UserAgent->new;
	my $options = HTTP::Headers->new(
		"Accept" => "application/json",
		"User-Agent" => "TeleHeater/2.2.3"
		);
	$ua->default_headers($options);


	$content = {"value"->$writevalue};
		
	
	$data = km200_Encrypt(encode_json($content));
		
	
	my $response = $ua->put( 'http://' . $km200_gateway_host . $REST_URL); 

}

Danke nochmals vorweg für Eure Hilfe!

Gruss
Perlentaucher