"; # ベタな正規表現 foreach my $item ( @items ){ my ($itemName,$catchcopy,$itemCode,$itemPprice,$itemCaption,$itemUr,$affiliateurl,$imageFlag,$mediumImageUrls,@medium_images,$smallImageUrls,@small_images,$availability,$taxFlag,$postageFlag,$creditCardFlag,$shopOfTheYearFlag,$shipOverseasFlag,$shipOverseasArea,$asurakuFlag,$asurakuClosingTime,$asurakuArea,$affiliateRate,$startTime,$endTime,$reviewCount,$reviewAverage,$pointRate,$pointRateStartTime,$pointRateEndTime,$giftFlag,$shopname,$shopCode,$shopurl,$shopAffiliateUrl,$genreId,$tagIds,$GenreInformation,$TagInformation); if ($item=~/(.+)<\/itemName>/) { $itemName=$1; } #商品名 if ($item=~/(.+)<\/catchcopy>/) { $catchcopy = $1; } #キャッチコピー if ($item=~/(.+)<\/itemCode>/) { $itemCode = $1; } #商品コード if ($item=~/(.+)<\/itemPrice>/) { $itemPprice = $1; } #商品価格 if ($item=~/(.+)<\/itemCaption>/) { $itemCaption = $1; } #商品説明文 if ($item=~/(.+)<\/itemUrl>/) { $itemUrl = $1; } #商品URL if ($item=~/(.+)<\/affiliateUrl>/) { $affiliateurl = $1; } #アフィリエイトURL if ($item=~/(.+)<\/imageFlag>/) { $imageFlag = $1; } #商品画像有無フラグ if ($item=~/(.+)<\/mediumImageUrls>/) { $mediumImageUrls = $1; } #商品画像128x128URL if ($mediumImageUrls=~/(.+)<\/imageUrl>/) { @medium_images = split(/<\/imageUrl>/,$1); } if ($item=~/(.+)<\/smallImageUrls>/) { $smallImageUrls = $1; } #商品画像64x64URL if ($smallImageUrls=~/(.+)<\/imageUrl>/) { @small_images = split(/<\/imageUrl>/,$1); } if ($item=~/(.+)<\/availability>/) { $availability = $1; } #販売可能フラグ if ($item=~/(.+)<\/taxFlag>/) { $taxFlag = $1; } #消費税フラグ if ($item=~/(.+)<\/postageFlag>/) { $postageFlag = $1; } #送料フラグ if ($item=~/(.+)<\/creditCardFlag>/) { $creditCardFlag = $1; } #クレジットカード利用可能フラグ if ($item=~/(.+)<\/shopOfTheYearFlag>/) { $shopOfTheYearFlag = $1; } #ショップオブザイヤーフラグ if ($item=~/(.+)<\/shipOverseasFlag>/) { $shipOverseasFlag = $1; } #海外配送フラグ if ($item=~/(.+)<\/shipOverseasArea>/) { $shipOverseasArea = $1; } #海外配送対象地域 if ($item=~/(.+)<\/asurakuFlag>/) { $asurakuFlag = $1; } #あす楽フラグ if ($item=~/(.+)<\/asurakuClosingTime>/) { $asurakuClosingTime = $1; } #あす楽〆時間 if ($item=~/(.+)<\/asurakuArea>/) { $asurakuArea = $1; } #あす楽配送対象地域 if ($item=~/(.+)<\/affiliateRate>/) { $affiliateRate = $1; } #アフィリエイト利用利率 if ($item=~/(.+)<\/startTime>/) { $startTime = $1; } #販売開始時刻 if ($item=~/(.+)<\/endTime>/) { $endTime = $1; } #販売終了時刻 if ($item=~/(.+)<\/reviewCount>/) { $reviewCount = $1; } #レビュー件数 if ($item=~/(.+)<\/reviewAverage>/) { $reviewAverage = $1; } #レビュー平均 if ($item=~/(.+)<\/pointRate>/) { $pointRate = $1; } #商品別ポイント倍付け if ($item=~/(.+)<\/pointRateStartTime>/) { $pointRateStartTime = $1; } #商品別ポイント倍付け開始日時 if ($item=~/(.+)<\/pointRateEndTime>/) { $pointRateEndTime = $1; } #商品別ポイント倍付け終了日時 if ($item=~/(.+)<\/giftFlag>/) { $giftFlag = $1; } #ギフト包装フラグ if ($item=~/(.+)<\/shopName>/) { $shopname =$1; } #店舗名 if ($item=~/(.+)<\/shopCode>/) { $shopCode = $1; } #店舗コード if ($item=~/(.+)<\/shopUrl>/) { $shopurl =$1; } #店舗URL if ($item=~/(.+)<\/shopAffiliateUrl>/) { $shopAffiliateUrl = $1; } #店舗アフィリエイトURL if ($item=~/(.+)<\/genreId>/) { $genreId = $1; } #ジャンルID if ($item=~/(.+)<\/tagIds>/) { $tagIds = $1; } #タグ情報 if ($item=~/(.+)<\/GenreInformation>/) { $GenreInformation = $1; } #ジャンルごとの商品数 if ($item=~/(.+)<\/TagInformation>/) { $TagInformation = $1; } #タグごとの商品数 # 1個しか表示させない時のゴミ対策 if ($itemName) { # アフィリエイトコードを短く my $short_itemName = Encode::encode_utf8(substr(Encode::decode_utf8($itemName), 0, 30)); $write_body = $write_body."

$short_itemName

"; } } $write_body = $write_body."