[kansaipm] Re: Perl Mongers Tシャツ
mishima at momo.so-net.ne.jp
mishima at momo.so-net.ne.jp
Sat Oct 21 00:52:08 CDT 2000
三嶋%Tシャツ係です。
本日、クレジットカードの請求が来ました。
1品あたり2000円で、名札基金への寄付は921円となりました。
では、本日焼肉屋へ持参しますので、よろしくお願いします。
<<< 注文受付表 >>>
========================================================================
[TシャツM] [TシャツL] [ラクダ帽] 請求額
------------------------------------------------------------------------
三嶋 2 1 1 8,000円
福原 1 0 1 4,000円
kiyoka 1 0 0 2,000円
岩井 1 0 0 2,000円
武藤氏 0 1 0 2,000円
------------------------------------------------------------------------
合計 5 2 2 18,000円
------------------------------------------------------------------------
Description Options Price After Options Quantity Subtotal
Perl Mongers T-Shirt M $ 15.00 5 $ 75.00
Perl Mongers T-Shirt L $ 15.00 2 $ 30.00
Perl Mongers Hat $ 15.00 2 $ 30.00
Pre-shipping Grand Total = $ 135.00
Shipping: $ 20.95
Grand Total: $ 155.95
円換算後合計 17,079円(換算レート $1.00 = 109.52円)
名札基金寄付 921円
--
$p='Perl'; $_='Masahiro Mishima'; sub _{pack'c*',$x=110+ at _*5,$x+1}
tr/oma/fa_/;s/./chr(ord($&)+2)/ge;@x=(sort(grep{!$_{$_}++}split//),
$p=~/(.(..).)/);$x[7]=~s/^/_/e;$x[8].=_ 1;for(@w=(47,1639,8,31259))
{s/\d/$x[$&+1]/g} print ucfirst "@w.\n";
More information about the Kansai-pm
mailing list