通信してみる
ようやくここまでか。
受け側。
#!/usr/bin/perl print "Content-type: text/plain; charset=utf-8\n\n"; $str = $ENV{"QUERY_STRING"}; print <<END_OF_TEXT; <xml> <EAST>m:7,m:7,s:4,s:5,s:5,s:6,s:6,s:7,p:1,p:8,p:9,j:2</EAST> <RANDOM>$str</RANDOM> </xml> END_OF_TEXT
送信側。
function onXMLLoad(event:Event):void { var xml:XML = new XML(event.target.data); trace(xml); //trace("Number of Contacts : " + xml..person.length()); //trace("First contact’s favorite food : " + xml.contacts.person[0].favoriteFood); } var loader:URLLoader = new URLLoader(); var url:URLRequest = new URLRequest( "http://192.168.1.11/~hato/bin/cgi-bin/test.cgi?What+is+Happens!\&" + Math.floor(Math.random() * 1000) ); loader.addEventListener(Event.COMPLETE, onXMLLoad); loader.load(url);