通信してみる

ようやくここまでか。
受け側。

#!/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);