Amazon.co.jp アソシエイトプログラム: ${FOLDER}のご注文

#!/usr/local/bin/perl #### ◇order.xmlからitem*.html生成 mkasorderlst V1.00 #### Copyright 2005 GORRY. #### mailto: gorry@hauN.org require "jcode.pl"; $ASID = "gorry-22"; $FOLDER = $ARGV[0]; $ORDER_XML = "$FOLDER/order.xml"; # マスタファイル $ITEM_HTML = "item_$FOLDER.html"; # 最新情報ファイル &main(); 0; ################################################################ sub main { &read_order_xml(); &sort_order(); &write_item_html(); } ################################################################ sub read_order_xml { local ($fin); local ($i); local ($line); local (%field); local ($f); local ($l); local ($asin); local ($price); $ITEM = 0; $fin = $ORDER_XML; open( FIN, "nkf -e $fin|" ); while ( $line = ) { chomp( $line ); last if ( $line =~ "" ); } if ( $line =~ "" ) { while ( $line = ) { chomp( $line ); last if ( $line =~ "" ); if ( $line =~ " $AS_PRICE{$b}; } sub sort_order_qty { $AS_QTY{$a} <=> $AS_QTY{$b}; } sub sort_order { local ($i); local ($asin); local (@sorted); @ITEMLIST = sort sort_order_price @ITEMLIST; @ITEMLIST = sort sort_order_qty @ITEMLIST; $TOTAL_QTY = 0; $TOTAL_CLICK = 0; $TOTAL_PRICE = 0; for ( $i=0; $i<$ITEMS; $i++ ) { $asin = $ITEMLIST[$i]; $TOTAL_QTY += $AS_QTY{$asin}; $TOTAL_CLICK += $AS_CLICK{$asin}; $TOTAL_PRICE += $AS_PRICE{$asin} * $AS_QTY{$asin}; } } ################################################################ sub write_item_html { local ($fout); local ($asin); local ($i); local ($j); local ($category); local ($cat); local ($price); $category[0] = "その他"; $category[14] = "本"; $category[15] = "音楽"; $category[21] = "ホビー"; $category[23] = "エレクトロニクス"; $category[27] = "ビデオ"; $category[63] = "ゲーム"; $category[65] = "ソフトウェア"; $category[74] = "DVD"; $category[79] = "ホーム＆キッチン"; $fout = $ITEM_HTML; open( FOUT, ">$fout" ); print FOUT < Amazon.co.jp アソシエイトプログラム: ${FOLDER}のご注文

Amazon.co.jp アソシエイトプログラム
${FOLDER}のご注文

mes for ( $j=1; $j<=100; $j++ ) { $cat = $j; $cat = 0 if ( $j == 100 ); if ( $category[$cat] ne "" ) { print FOUT < mes for ( $i=0; $i<$ITEMS; $i++ ) { $asin = $ITEMLIST[$i]; if ( $AS_CATEGORY{$asin} == $cat ) { $price = $AS_PRICE{$asin}; $price =~ s/(\d+)(\d\d\d)/\1,\2/g; print FOUT < mes } } } } $price = $TOTAL_PRICE; $price =~ s/(\d+)(\d\d\d)/\1,\2/g; print FOUT <

商品名	価格	個数	クリック数
■$category[$cat]
$AS_ITEM{$asin}	\\$price	$AS_QTY{$asin}	$AS_CLICK{$asin}
■合計	価格	個数	クリック数
	\\$price	$TOTAL_QTY	$TOTAL_CLICK

mes close( FOUT ); } # [EOF]