This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
jp:popfilemodules:xmlrpc [2007/11/27 08:19] – amatubu | jp:popfilemodules:xmlrpc [2009/09/06 15:38] – Fixed sample codes amatubu | ||
---|---|---|---|
Line 39: | Line 39: | ||
==== 簡単な例 ==== | ==== 簡単な例 ==== | ||
=== Perl の例 1 === | === Perl の例 1 === | ||
- | < | + | < |
use strict; | use strict; | ||
use XMLRPC:: | use XMLRPC:: | ||
Line 61: | Line 61: | ||
=== Python の例 1 === | === Python の例 1 === | ||
- | < | + | < |
from xmlrpclib import ServerProxy | from xmlrpclib import ServerProxy | ||
POPFile = ServerProxy(" | POPFile = ServerProxy(" | ||
Line 76: | Line 76: | ||
=== Delphi の例 === | === Delphi の例 === | ||
- | < | + | < |
program popdelphi; | program popdelphi; | ||
{$APPTYPE CONSOLE} | {$APPTYPE CONSOLE} | ||
Line 129: | Line 129: | ||
=== NSBasic/CE for Windows CE Example === | === NSBasic/CE for Windows CE Example === | ||
- | < | + | < |
| | ||
Set popfile = xmlrpc.proxy(" | Set popfile = xmlrpc.proxy(" | ||
Line 146: | Line 146: | ||
==== 応用例 | ==== 応用例 | ||
=== Perl の応用例 1 (もっと複雑なエラーチェック) === | === Perl の応用例 1 (もっと複雑なエラーチェック) === | ||
- | < | + | < |
use strict; | use strict; | ||
use XMLRPC:: | use XMLRPC:: | ||
Line 221: | Line 221: | ||
=== 応用例 2 ==== | === 応用例 2 ==== | ||
pipe.pl を XMLRPC のクライアントとして実装します。 | pipe.pl を XMLRPC のクライアントとして実装します。 | ||
- | < | + | < |
- | -!/ | + | #!/ |
use strict; | use strict; | ||
use XMLRPC:: | use XMLRPC:: | ||
- | - 安全な一時ファイルを使用したいのですが、このスクリプトはふつうひとりのユーザとして動くでしょう | + | # 安全な一時ファイルを使用したいのですが、このスクリプトはふつうひとりのユーザとして動くでしょう |
use File::Temp qw/tempfile tempdir/; | use File::Temp qw/tempfile tempdir/; | ||
- | - アクセスすることができるフォルダはスクリプトが終了したときに削除されるでしょう | + | # アクセスすることができるフォルダはスクリプトが終了したときに削除されるでしょう |
my $temp_dir = tempdir( CLEANUP => 1); | my $temp_dir = tempdir( CLEANUP => 1); | ||
- | - フルパスが指定された一時ファイル | + | # フルパスが指定された一時ファイル |
my ($fh_in, $filename_in) = tempfile(' | my ($fh_in, $filename_in) = tempfile(' | ||
- | - パイプとして動くため、標準入力 (STDIN) から読み込みます | + | # パイプとして動くため、標準入力 (STDIN) から読み込みます |
while (< | while (< | ||
print $fh_in $_; | print $fh_in $_; | ||
} | } | ||
- | - POPFile は、ファイルが閉じられていることを前提とします | + | # POPFile は、ファイルが閉じられていることを前提とします |
close $fh_in; | close $fh_in; | ||
- | - 安全な出力ファイルを作成します | + | # 安全な出力ファイルを作成します |
my ($fh_out, $filename_out) = tempfile(' | my ($fh_out, $filename_out) = tempfile(' | ||
- | - XMLRPC のプロキシ | + | # XMLRPC のプロキシ |
my $xmlrpc = XMLRPC:: | my $xmlrpc = XMLRPC:: | ||
- | - POPFile に挨拶して、セッションキーを取得します | + | # POPFile に挨拶して、セッションキーを取得します |
my $sk = $xmlrpc-> | my $sk = $xmlrpc-> | ||
-> result; | -> result; | ||
- | - ここで仕事をします | + | # ここで仕事をします |
$xmlrpc-> | $xmlrpc-> | ||
-> result; | -> result; | ||
- | - POPFile にお別れをします | + | # POPFile にお別れをします |
$xmlrpc-> | $xmlrpc-> | ||
- | - パイプとして動くために、標準出力 (STDOUT) に書き込みます | + | # パイプとして動くために、標準出力 (STDOUT) に書き込みます |
while (< | while (< | ||
print $_; | print $_; | ||
} | } | ||
- | - 終了します。File:: | + | # 終了します。File:: |
exit(0); | exit(0); | ||
Should you find anything in the documentation that is incomplete, unclear, outdated or just plain wrong, please let us know and leave a note in the Documentation Forum.