OpenForum RSS: Perl

OpenForum RSS: Perl https://www.opennet.me/openforum/vsluhforumID8/5261.html получяю xml сообщение:<br>use SOAP::Lite;<br>my $soap = SOAP::Lite<br> -> uri('http://sms.com/daemon')<br> -> proxy('http://sms.com/cgi-bin/SMS/2.cgi');<br> <br>$xml = SOAP::Data->name('sms' => \SOAP::Data->value(<br> SOAP::Data->name('id' => '3334'),<br> SOAP::Data->name('language' => 'en'),<br> SOAP::Data->name('text' => 'Jhon')));<br> <br>$r=$soap->sms($xml);<br>$rez = $r -> result;<br>print "Результат:$rez \n";<br>exit;<br><br>теперь в 2.cgi:<br>#!/usr/bin/perl -w<br>use SOAP::Transport::HTTP;<br>SOAP::Transport::HTTP::CGI<br> -> dispatch_to('daimon')<br> -> handle;<br>package daimon;<br>sub sms {<br>$p=@_; # object/class reference<br>my $param2 = SOAP::Data->name('text'=>$p);<br>return $param2;<br>}<br>должен возращят $param='Jhon' , а он возвращяет $param='2'<br><br><br> Perl (terry) https://www.opennet.me/openforum/vsluhforumID8/5261.html#4 Wed, 26 Sep 2007 10:28:34 GMT Результат: daemon<br> Perl (gibbon) https://www.opennet.me/openforum/vsluhforumID8/5261.html#3 Wed, 26 Sep 2007 10:01:29 GMT >><br>>>>$p=@_;<br><br>[[[>><br>>>дык если не ошибаюсь в $p будет число элементов массива @_ <br>><br>>как надо? <br><br>надо либо <br>($p)=@_<br>либо<br>$p=shift @_<br><br> Perl (help) https://www.opennet.me/openforum/vsluhforumID8/5261.html#2 Wed, 26 Sep 2007 05:52:59 GMT ><br>>>$p=@_;<br>><br>>дык если не ошибаюсь в $p будет число элементов массива @_ <br><br>как надо?<br> Perl (Kavkaz) https://www.opennet.me/openforum/vsluhforumID8/5261.html#1 Tue, 25 Sep 2007 23:39:35 GMT <br>>$p=@_;<br><br>дык если не ошибаюсь в $p будет число элементов массива @_<br>