 コンタクトレンズ
|
";
&Midasi();
@details = split /- /,$html_str;
for ($idx=1; $idx < scalar(@details); $idx++) {
if ($details[$idx] =~ /(.*?)<\/itemName>/i) {
$r_title = $1;
}
if ($details[$idx] =~ /(.*?)<\/itemPrice>/i) {
$r_price = $1;
}
if ($details[$idx] =~ /(.*?)<\/affiliateUrl>/i) {
$r_url = $1;
}
if ($details[$idx] =~ /(.*?)<\/smallImageUrls>/i) {
$r_image_url = $1;
}
if ($details[$idx] =~ /(.*?)<\/imageUrl>/i) {
$r_image_url = $1;
}
print "imageUrlaaaaa=$r_image_url
";
if ($r_image_url =~ /(.*?)<\/imageUrl>/i) {
$r_image_url = $1;
}
if ($details[$idx] =~ /(.*?)<\/shopName>/i) {
$r_shop_name = $1;
}
if ($details[$idx] =~ /(.*?)<\/itemCaption>/i) {
$r_detail = $1;
}
if ($details[$idx] =~ /(.*?)<\/shopCode>/i) {
$r_shop_id = $1;
}
if ($details[$idx] =~ /(.*?)<\/itemCode>/i) {
$r_itemcode = $1;
$r_item_id = $1;
$r_item_id =~ s/$r_shop_id//g;
$r_item_id =~ s/://g;
}
if ($details[$idx] =~ /(.*?)<\/mediumImageUrls>/i) {
$r_image_url_medium = $1;
}
if ($r_image_url_medium =~ /(.*?)<\/imageUrl>/i) {
$r_image_url_medium = $1;
}
#ポイント関連データ取得
if ($details[$idx] =~ /(.*?)<\/pointRate>/i) {
$r_pointRate = $1;
}
if ($details[$idx] =~ /(.*?)<\/pointRateStartTime>/i) {
$r_pointRateStartTime = $1;
}
if ($details[$idx] =~ /(.*?)<\/pointRateEndTime>/i) {
$r_pointRateEndTime = $1;
}
$r_title = Jcode::convert(\$r_title, 'euc', 'utf8', "z");
$r_shop_name = Jcode::convert(\$r_shop_name, 'euc', 'utf8', "z");
$r_detail = Jcode::convert(\$r_detail, 'euc', 'utf8', "z");
$tar_lt = '<';
$tar_gt = '>';
$cnv_lt = '<';
$cnv_gt = '>';
$r_title =~ s/$tar_lt/$cnv_lt/g;
$r_title =~ s/$tar_gt/$cnv_gt/g;
if (length($r_title) > 90) {
$r_title = substr($r_title, 0, 90) . '...';
}
$r_detail_long = $r_detail;
$r_detail = substr($r_detail, 0, 180) . '...';
### if ($idx >= $m_from && $idx <= $m_to) {
$d_cnt++;
&create_tag;
$retvalue .= $tag;
### }
#
## &create_item(); #2011.05.06 削除
}
$retvalue .= ' |
絞込キーワード