058e5a6245ce949e4a66270da3576d2a43da367e
Perl/Amazon/BrowseNodeSearch.md
| ... | ... | @@ -144,6 +144,87 @@ $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; |
| 144 | 144 | |
| 145 | 145 | - [xml - Could not find ParserDetails.ini - Stack Overflow](https://stackoverflow.com/questions/%32%32%30%32%33%38%39%34) |
| 146 | 146 | |
| 147 | +# https 対応 |
|
| 148 | +- URI::Amazon::APA 0.05 は https に対応していない。 |
|
| 149 | +- https のエンドポイントを使用するにはポートまで指定する必要がある。 |
|
| 150 | + |
|
| 151 | +- testHttps.pl |
|
| 152 | + ```perl |
|
| 153 | + #!/bin/perl |
|
| 154 | + # test https scheme for URI and URI::Amazon::APA |
|
| 155 | + |
|
| 156 | + use strict; |
|
| 157 | + use warnings; |
|
| 158 | + use utf8; |
|
| 159 | + use Encode; |
|
| 160 | + use URI::Amazon::APA; |
|
| 161 | + use YAML::Syck qw(Dump); |
|
| 162 | + use open ':std' => ':locale'; |
|
| 163 | + |
|
| 164 | + print "URI: ${URI::VERSION}\n"; |
|
| 165 | + print "URI::Amazon::APA: ${URI::Amazon::APA::VERSION}\n"; |
|
| 166 | + |
|
| 167 | + my @uris = qw( |
|
| 168 | + https://webservices.amazon.co.jp/onca/xml |
|
| 169 | + https://webservices.amazon.co.jp:443/onca/xml |
|
| 170 | + ); |
|
| 171 | + |
|
| 172 | + foreach my $uri (@uris) { |
|
| 173 | + print "\n# ${uri}\n"; |
|
| 174 | + print "URI:\n"; |
|
| 175 | + print Dump( getProperty( URI->new($uri) ) ) . "\n"; |
|
| 176 | + print "URI::Amazon::APA:\n"; |
|
| 177 | + print Dump( getProperty( URI::Amazon::APA->new($uri) ) ) . "\n"; |
|
| 178 | + } |
|
| 179 | + |
|
| 180 | + sub getProperty { |
|
| 181 | + my $u = shift; |
|
| 182 | + return { |
|
| 183 | + scheme => $u->scheme, |
|
| 184 | + secure => $u->secure, |
|
| 185 | + host => $u->host, |
|
| 186 | + port => $u->port, |
|
| 187 | + }; |
|
| 188 | + } |
|
| 189 | + ``` |
|
| 190 | +- テスト出力 |
|
| 191 | + ``` |
|
| 192 | + URI: 1.74 |
|
| 193 | + URI::Amazon::APA: 0.05 |
|
| 194 | + |
|
| 195 | + # https://webservices.amazon.co.jp/onca/xml |
|
| 196 | + URI: |
|
| 197 | + --- |
|
| 198 | + host: webservices.amazon.co.jp |
|
| 199 | + port: 443 |
|
| 200 | + scheme: https |
|
| 201 | + secure: 1 |
|
| 202 | + |
|
| 203 | + URI::Amazon::APA: |
|
| 204 | + must be http at ./testHttps.pl line 25. |
|
| 205 | + --- |
|
| 206 | + host: webservices.amazon.co.jp |
|
| 207 | + port: 80 |
|
| 208 | + scheme: https |
|
| 209 | + secure: 0 |
|
| 210 | + |
|
| 211 | + # https://webservices.amazon.co.jp:443/onca/xml |
|
| 212 | + URI: |
|
| 213 | + --- |
|
| 214 | + host: webservices.amazon.co.jp |
|
| 215 | + port: 443 |
|
| 216 | + scheme: https |
|
| 217 | + secure: 1 |
|
| 218 | + |
|
| 219 | + URI::Amazon::APA: |
|
| 220 | + must be http at ./testHttps.pl line 25. |
|
| 221 | + --- |
|
| 222 | + host: webservices.amazon.co.jp |
|
| 223 | + port: 443 |
|
| 224 | + scheme: https |
|
| 225 | + secure: 0 |
|
| 226 | + ``` |
|
| 227 | + |
|
| 147 | 228 | # リンク |
| 148 | 229 | - [[Perl/XML-XPath]] |
| 149 | 230 |