努力したWiki

推敲の足りないメモ書き多数

トレース:

documents:proglang:perl:perl-016

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- documents:proglang:perl:perl-016 [2026/05/08 11:54] – ↷ documents:perl:perl-016 から documents:proglang:perl:perl-016 へページを移動しました。 k896951
+++ documents:proglang:perl:perl-016 [2026/05/17 15:02] (現在) – [PerlでPOSTメソッドのHTTPアクセス実施例] k896951
@@ 行 1: / 行 1: @@
+====== 008.PerlでPOSTメソッドのHTTPアクセス実施例 ======
+/08/18\\
+自分用メモ。正確性の保証なし。
+===== 説明 =====
+URL http://192.168.1.200:7180/SAVE/SEIKA にPOSTメソッドでアクセス。
+Content-Type: application/x-www-form-urlencoded でPOSTされる。
+POSTするデータは
+  * SPEED = 1.60
+  * PITCH= 1.00
+  * VOLUME = 1.00
+  * INTONATION = 1.00
+  * TALKTEXT = "シャットダウン&リセットを推奨します。"
+使用端末の既定コードがeuc-jpなので、日本語文字列をPerl内部形式に変換している。utf8プラグマとか付けるならdecode()いらん。
+レスポンスに含まれるデータは以下のように保存する。
+<code>
+$ perl sample.pl > seika.wav
+</code>
+※このサンプルは、レスポンスに wavファイルが含まれていることを想定している。
+===== コード =====
+<code perl sample.pl>
+#!/usr/local/bin/perl
+use Encode;
+use HTTP::Request::Common;
+use LWP;
+my $uri = "http://192.168.1.200:7180/SAVE/SEIKA";
+my $params = [ SPEED => 1.60, PITCH=> 1.00, VOLUME => 1.00, INTONATION => 1.00, TALKTEXT => decode('euc-jp',"シャットダウン&リセットを推奨します。") ];
+my $ua = LWP::UserAgent->new();
+my $res = $ua->request( POST($uri, $params) );
+  print $res->content;
+</code>
+{{tag>技術資料 Perl www LWP}}

documents/proglang/perl/perl-016.txt · 最終更新: 2026/05/17 15:02 by k896951