約 2,349,922 件
https://w.atwiki.jp/smm_memo/pages/18.html
B2Bmyth,データ,解説 http //ow.ly/12dCs comScoreのソーシャルメディアサイトへのトラフィックについての調査(英語)。Facebookはトラフィックの41%を占めています。MySpaceがまだ強いのが意外。メモ。 http //ow.ly/1Aynz WEBアンケートとは言え、相当高い印象。 RT @aixca 徐々に積極的になっている感はありますよね◆「Twitterを企業活動に導入」は24.5%、導入効果は半数が実感 http //bit.ly/a3HapW 29%の企業しかソーシャルメディアポリシーを整備していない、との調査記事(英語)。人材会社の Manpowerによる調査。メモです。 http //ow.ly/1BwoL こちらもFacebook関連の注目の話題。「Ad with Social Context」はキーワードになりそう。 Facebook/ ニールセン共同調査。広告に友人ファン情報を付与すると,購入意思が4倍に http //ow.ly/1Bvkm Social Media ExaminerがまとめるSMM業界レポート(英語)。米国の話とは言え、参考になりそうな内容です。チェック。 http //ow.ly/1AuVh 一般社員の3人に1人は働きがいを感じていない…結構衝撃的な調査。RT @aixca すごい顕著!興味深い。RT @AkaneSato 役職によっての意識の差が興味深い。「働きがいに関するアンケート」(gooリサーチ)http //bit.ly/9nh7Vw 起業家についてのインフォグラフィックス。iPhone使用率52%なんて数字も。日本版が見てみたいところ。 RT @NealSchaffer http //ow.ly/1zW6U ソーシャルメディア「中毒」についてのデータまとめ(英語)。インターネットユーザー、25歳以下で、毎朝起きてすぐFacebook・ツイッターをチェックする人は32%。 http //ow.ly/1A0IL これは興味深い分析!成長を続けるFacebookがいつ日本に来るのか、または来ないのか、そこも気になります。 RT @toru_saito Twitter とFacebook,どちらが世界最大のソーシャル・ネットワークになるのか? http //ow.ly/1A2an 中国のソーシャルメディアについて知るべきこと(英語)。「3億8400万人のインターネットユーザー。その75%は34歳以下」「2億人以上のブロガー」「QQの登録アカウント数は10億(アクティブ約5億)」など。読み間違いじゃない? http //ow.ly/1uWvD Online Adさんより、インターネットユーザ数のデータ。アジア、アフリカの伸びはすごい。 Internet Users in Dec 2009 http //ow.ly/1vn8D Online Adさんが紹介する、Fortune 100のCEOのソーシャルメディア利用実態についてのデータ。ツイッターアカウントを持っているのはわずか2人。2010年の調査でどのくらい変化するか。 http //ow.ly/1uVhm Facebookのファンは一人当たり$3.6、という試算があるそうで(英語)。ファンページの内容にもよりますし、あくまで参考程度という感じでしょうね。http //www.adweek.com/aw/content_display/news/digital/e3iaf69ea67183512328c13aa7e6a03478e 米国のソーシャルメディア利用実態についての調査(英語)。ネット利用者の47%は毎日Facebookを利用。ちなみに同TVは55%。Facebookは既にラジオ(37%)、新聞(22%)より利用されているようです。 http //www.adweek.com/aw/content_display/news/digital/e3iceae27f23a68f24bb1b241b4695748c9 興味深いセミナー。レポート感謝です! RT @kyocorin 中国のソーシャルメディア事情を聞いてきました http //blogs.itmedia.co.jp/kyoko/2 SEO Japanさんより。ブライアン・ソリスの記事の翻訳!これは嬉しい。 ツイッタースフィアの現状 2010年版 http //ow.ly/1uV82 RT @hisamioh Facebookユーザーの実態とマーケティングにおける実力とは? http //ow.ly/1uCbV コンテンツのあり方も変わっていくのでしょうね。5年後…想像できません。 モバイル端末によるインターネットデータ量は5年間で40倍増の見通し http //ow.ly/1uxvo ソーシャルメディア関連infographic、10個(英語)。色々使えそうなデータがたくさん。 http //ow.ly/1uzOa Online Adさんより興味深いデータ。僕も一応ネイティブ世代ですが、今の高校生とかはまた利用実態が違うんでしょうねぇ。日本の調査データも見たいところ。 Digital Natives and Immigrants http //dramrollonline.blogspot.com/2010/04/digital-natives-and-immigrants.html ツイッターの利用に関するsysmosの調査データ。確かにこのくらいの期間は必要なのかも。 Twitterの利用動向に見られる「9ヶ月の壁」:慣れてくれば楽しさ倍増?http //bit.ly/bmmstW Semiocast調査。日本は増加傾向っぽいですね。 Twitter メッセージの発信地調査―アメリカはトップなれど30%、日本が2位で15%、以下ブラジル、インドネシア http //jp.techcrunch.com/archives/20100331twitter-internationalization/ ツイッター関連のデータ(感謝!)。ブログと同じで、ROMがほとんど。 RT @wataru0306 「基本的に見るだけ」が圧倒的なTwitterとその成長ポテンシャルについて http //blogs.itmedia.co.jp/waoyama/2010/03/twitter-9543.html SMMのROIを計測することが最も難しい、とする調査データ(英語)。SMMの困難な点を聞いたこのアンケート、他には「他のチャネルとの統合」「投資のための事例を作る」「予算を獲得する」なんて回答が。 http //www.clickz.com/3639914 ソーシャルメディアはEメールマーケティングをブーストしているとの調査データ(英語)。これは同感です。Eメールはやっぱり読まれますから、効果的に使っていきたいところ。 http //www.brandweek.com/bw/content_display/news-and-features/direct/e3id51767e5e16b0979dc80a55f2f977752 アクティブユーザは7.5%!興味深いレポート、感謝です。 RT @Capote 8千万以上のアカウントを対象にした、Twitterアカウントにおける影響度の調査:フォロアー数は必ずしも影響力があるとは言えない http //capote.posterous.com/audience-size-doesnt-prove-influence-on-twitt B2B企業のソーシャルメディア予算についての記事(英語)。メモです。B2Bのソーシャルメディア利用に特化したこのブログ、参考になりそうです。http //ow.ly/1kEU6 よくまとまっているデータ。感謝です。ツイッターが親父向け、とは良く言われますね。 RT @yukari77 意外と高いソーシャルネットワークのユーザ年齢[米国調査]【三橋ゆか里】 http //techwave.jp/archives/51418184.html 「もし、製品を自発的、積極的に推薦する熱心な集団の存在や集団を作りだすことがマーケティングだとすると、その聖杯はオンラインフォーラムにある」こちらも面白い。フォーラムって日本では一般的じゃないですよね。 http //dramrollonline.blogspot.com/2010/03/forum-power.html 止まらないFacebook。この勢いは日本にも来るのでしょうか。そろそろ本格的に手を付けようかな…。 Facebookが全米人気ナンバー1サイトに(Hitwise調べ) http //jp.techcrunch.com/archives/20100315hitwise-says-facebook-most-popular-u-s-site/ データで読み解くFacebookの今(英語)。「月平均7時間を費やす」「WEB上の共有の44%はFacebookで行われている」「売上と顧客ロイヤルティを向上させる」など。メモ。 http //url4.eu/1nlNj 今話題の調査データ。RT @toru_saito 【最新調査】 Twitter/Facebookは購買意欲を刺激する ~ フォロワーの67%が購買アップ http //blogs.itmedia.co.jp/saito/2010/03/post.html Fortune 100のソーシャルメディア利用についてのInfographic(英語)。メモ。毎度ながら、こういうグラフィックを作れるセンスが欲しい。 http //bit.ly/aNiX0p ソーシャルメディア上のクチコミはオスカー賞とどう関係していたか、という記事(英語)。Sysomosのクチコミ分析ツールのデモですね。 http //to.pbs.org/d3xhJJ ソーシャルメディアサイトの一覧図。この資料で使われているマインドマップをシェアする「mindmeister」、面白いですね。何かに使えないかな。 http //www.mindmeister.com/de/11704653/social-media-framework eMarketerのソーシャルメディアのビジネス/プライベート利用についての調査(英語)。ビジネスとプライベートの境は曖昧になった、というお話。メモ。 http //www.emarketer.com/Article.aspx?R=1007554 Online Adさんより。米国企業のソーシャルメディア利用に関する、非常に興味深い調査データです。 Fortune 500 and Social Media http //dramrollonline.blogspot.com/2010/03/fortune-500-and-social-media.html フォーチュン100企業のTwitterアカウントの半数は不人気:Weber Shandwickによる調査と提案 http //bit.ly/aJAcNl メモ。日本にいると肌感覚として分からない話ですが、やっぱりFacebookは強大なようです。 米調査:若年層のブログ離れが進み,老いも若きもFacebookへ http //zen.seesaa.net/article/140255994.html 「Fortune100のグローバル企業,65%がツイッターでつぶやき,54%がフェースブックを活用」 http //zen.seesaa.net/article/142116524.html ソーシャルメディアは新たなマスメディア?と題する記事(英語)。Facebookは3.5億人のアクティブユーザーがいるわけで、規模的にはある意味マスと言えるのかも知れませんね。ソーシャルメディア利用についての調査データも記事内に。 http //chiefmarketer.com/social-media/0202-social-media/ Most Companies Don’t Have a Social Media Policy [STUDY] ソーシャルメディアポリシーを導入している企業はまだ少ない、との記事(英語)。アメリカで29%、アジアパシフィックで25%、EMEAで11%。全世界では20%。日本の主要企業では1%切ってるんじゃ? http //viigo.im/2j94 アクティブユーザー4億人、大きすぎてピンと来ない数字です。 RT @toru_saito 満6才を迎えたFacebookがついに4億人超!その詳細データを総まとめ http //blogs.itmedia.co.jp/saito/2010/02/6facebook4-79cb.html
https://w.atwiki.jp/niconicokaraokedb/pages/1657.html
Face of Fact ふえいすおふふあくと【登録タグ:BALDR FORCE C.G mix I've KOTOKO アダルトゲーム 中坪淳彦 曲 曲ふ 曲ふえ】 曲情報 作詞:KOTOKO(I ve) 作曲:中坪淳彦? C.G mix?(I ve) 編曲:C.G mix?(I ve) 唄:KOTOKO ジャンル・作品:アダルトゲーム BALDR FORCE 備考:DAMにて配信中(オリジナル・C.G mix)、JOYにて配信中(RESOLUTION Ver.) カラオケ動画情報 オンボーカルワイプあり コメント 名前 コメント
https://w.atwiki.jp/wg_watch/pages/76.html
このページでは、Chelseaさんが所属している「Sun Lady」についての情報を記載しています。 Sun Lady Sun Lady は5人の女性グループで、2012年10月26日に 不動心娛樂事業有限公司 から Tony Sun プロデュースでデビューしました。 Sun Lady https //www.facebook.com/Sunlady.FDS 不動心娛樂事業有限公司 https //www.facebook.com/fudoushinn Tony Sun https //www.facebook.com/tonytonysun メンバー 英字名 漢字名 誕生日 FaceBook Wretch 備考 Phoena 王淯 / 胡曉芳 1986/12/1234歳 王淯 リーダー Linlin 張琳 / 張虹羚 1990/11/931歳 張琳 pink5201109 サブリーダー Rita 楹子 / 賴楹子 1990/12/2430歳 楹子 Weibo(SunLady_楹子) 元メンバー 英字名 漢字名 誕生日 FaceBook Wretch 備考 Mimi 游小米 / 游聖美 1987/7/2734歳 游小米 facehappy Weibo(SunLady_Mimi) 2013年3月で脱退 Vivi 陳葳 1993/3/428歳 陳葳 2013年3月で脱退 関連情報 動画 20130307 TV番組「麻辣天后宮」 https //www.youtube.com/watch?v=9zWxoeTS8Is 20130125 Sun Lady 舞蹈練習影片 http //www.youtube.com/watch?v=q0dwwu8E29I 20130124 TVBS 哈到你家~孫協志 http //www.youtube.com/watch?v=hII6zHEGGdM#t=386s 20130108 SUN LADY成軍發表會 http //www.youtube.com/watch?v=F50Kzfvz2xs 20130108 Sun Lady舞蹈表演 その1 | その2 20130108 Sun Lady 訓練VCR http //www.youtube.com/watch?v=rF1151Ozs4M 写真 コメント お名前[任意]: コメント: すべてのコメントを見る
https://w.atwiki.jp/trpg_rbl/
本サイトについての説明 本サイトは無料でできるTRPGのルールブックを公開しております。 まだ未完成ですので遊べませんが、そのうちできる……と、思いたいです。 その他、無料のTRPGルールブックサイトへのリンクも張っていこうかなと、思っています。 更新履歴 取得中です。
https://w.atwiki.jp/loveyan/pages/27.html
同盟とは? ゲーム上での友達のことをアストロ娘では同盟と呼びます。 同盟の申請・受諾は陣営(テラ・ネオス)関係なく行えます。 同盟を結んだ相手からプレゼントを贈られたり練習戦闘を行うことによって報酬を得ることができます。 ここでは同盟に関する各画面から実行できる行動について解説していきます。 同盟メニュー 申請・受諾・プレゼントなど同盟に関する一連の行動は、メイン画面の「友達」から確認・実行できます。 【同盟リスト画面】 この画面では同盟相手の国家名(名前の右にカッコが付いているのはFacebook上での名前)、 国家レベル、設定中の称号を確認できます。 また、右側の「今日」「~日前」の表記は「同盟相手の最終ログインが何日前か」を表しています。 左下の青枠の部分は、現在登録されているFacebook友達(最大30人)とゲーム友達(最大20人)の人数です。 右の赤枠からは同盟相手と練習戦闘を行うことができます。 左の黄枠の赤丸のボタンで、対象の相手を同盟リストから消去(同盟解除)します。 上部緑枠の「みんなに送る」の所から、同盟相手全員に一括でプレゼントを贈ることができます。 右の「プレゼント」は個別にプレゼントを贈る場合に使用します。 <<同盟人数の限度>> 同盟国家の枠は通常だと最大20人までになりますが、 Facebook上で友達になっている相手と同盟を結んだ場合は「Facebook友達」枠としてカウントされます。 Facebook友達の枠は30人で、通常枠と合わせれば最大50人の相手と同盟を結ぶことが可能となります。 自分がFacebookアカウントで登録していないと、このFacebook友達枠は当然利用はできません。 <<練習戦闘>> 同盟リストの相手国家名の右にある「練習戦闘」を押すと、 ひとりにつき1日1回(0 00にリセット)同盟相手と演習戦闘を行うことができます。 内容は通常の戦闘と変わらないので1回10AP必要です。演習なので戦闘後に艦隊が破損することはありません。 ここでの戦闘では経験値や資源を得ることが出来ませんが、 勝敗やレベル差に関係なく下記のリストの中からアイテムをランダムでひとつ貰うことが出来ます。 ゴールドカプセル(2万・20万・200万) 英雄チケット 一般訓練LD ゴールドブースター12H 攻撃ブースター2H 鉱物カプセル(1万・10万・100万) 高級英雄チケット 高級訓練LD 鉱物ブースター12H 防御ブースター12H コスメントカプセル(400・2000・1万) 経験値ブースター2H 貢献度ブースター2H 練習戦闘の場合、一回の戦闘が終わるごとにメイン画面に戻されてしまうので同盟相手が増えると全員と戦うのは中々面倒ですが、 一般・高級訓練LDや各種ブースターがそこそこの割合で出るので、余裕があればやっておいた方が良いでしょう。 <<同盟解除>> 同盟リストの相手国家名の左にある赤丸の部分を押すと、対象の相手をリストから削除して同盟を解除することができます。 一度解除した場合でも、同じ相手と再度同盟を結ぶことは可能です。 <<プレゼント>> 同盟相手にプレゼントを贈ることができます。1日に1回(0 00にリセット)実行が可能です。 それぞれの相手ごとに贈る「個別プレゼント」と同盟相手全員にまとめて贈る「一括プレゼント」の二通りの方法があります。 プレゼントを贈るためには英雄を一人設定する必要があり、実行すると選択した英雄の経験値が上がります。 <個別プレゼント> 相手を選んで個別に贈りたい場合は、下の画像の左から手順を進めていく形になります。 |||||| ①贈りたい相手の横にある「プレゼント」ボタンを押す ②プレゼントを贈るには英雄を設定する必要があるので「英雄必要」ボタンを押す ③選択画面になるので(経験値を上げたい)英雄を選ぶ ④選択英雄が表示されたら右下の「プレゼントする」を押す <一括プレゼント> リストの同盟相手すべてに一括でプレゼントを送信します。選択した英雄には贈った人数に比例した経験値がまとめて入ります。 複数の英雄の経験値を少しずつ上げたい場合には「個別プレゼント」、 細かく上げる必要が無い、または個別に贈るのが面倒な場合は「一括プレゼント」といった感じの使い分けになりますが、 基本的には余計な手間が省ける「一括プレゼント」を使用するのが良いでしょう。 同盟相手がこちらに贈ってくれたプレゼントは「受信トレイ」に入っています。 人数が増えればその分貰えるプレゼントの数も増えますが、受信トレイに表示されるアイテムは最大30個までになっていて、 それ以上のアイテムが来た場合は、新しいものが上から表示され、古いものはリストから表示が消えてしまいますが、 消滅した訳ではなくちゃんと保管されているので後で受け取る事は可能です。 ただし受信トレイのアイテムを一括で受け取る機能は無く、 数が増えると面倒な事になるので受け取りは出来るだけこまめに行いましょう。 【推薦者画面】 この画面では、Facebook友達を招待する形でアストロ娘をプレイしてもらい、 その友達のプレイ進行度合に応じた報酬を受けられる、招待システムの登録を行うことができます。 また、友達が招待を受けない形で普通にアストロ娘を始めた場合でも、 相手から推薦者登録を受ければ同様の報酬を受けることが可能です。 <<facebook友達を招待する場合>> 手順① ⇒ 手順② ⇒ 手順③ ⇒ 手順④ 送信で完了 facebook上で既に友達になっているアカウントに対して招待を行い、その相手が招待からアストロ娘を始めれば完了です。 手順③の部分では招待相手を複数選択することが出来ます。 招待を受けて最初から始めたプレイヤーにはクリスタル100個が支給されます。 <<既にプレイを始めた状態からfacebook友達に対して推薦人登録を行う場合>> 手順① ⇒ 手順② ⇒ 手順③ ⇒ 手順④ 登録完了 こちらは招待の逆パターンで、 facebook上で友達になっているアストロ娘プレイヤーを推薦人として登録する形(逆指名)になります。 推薦人登録を受けた国家に対しては、上記同様にこちらの国家レベルが一定まで上がるごとに報酬が贈られるようになり、 自分はクリスタル100個を貰うことが出来ます。 この推薦人登録は、自分にも相手にもメリットがあるので facebookアカウントであれば出来るだけ利用していきたいところですが、 登録が可能なのは1回(1人)のみで、自分の国家レベルが1~20までの間限定となっています。 それ以降(21~)のレベルでは推薦人登録を利用できないので注意しましょう。 推薦人登録されると対象国家の受信トレイに通知が届き、その後レベルに応じて下図のように報酬が届きます。 <報酬内容> レベル10⇒レア英雄チケット×1 レベル20⇒SR+等級英雄チケット×1 レベル30⇒SR+等級英雄チケット×3 レベル40⇒S等級惑星発見×1 レベル50⇒名誉ポイント×2000 【同盟追加画面】 この画面では「こちらからの同盟の申請」「相手から来た申請の受諾または拒否」を行うことができます。 画面上半分の所には現在申請を貰っているプレイヤーが表示され、 下半分の所には現在こちらから申請可能な国家が表示されます。 <<同盟の申請>> 画面下部に表示されている国家の右側にある「申込」ボタンで、同盟の申請を行うことができます。 リストに表示される国家は自分のアカウント状況により優先度が変わり、 <自分がfacebookアカウントでプレイしている場合> ①Facebook上で既に友達になっており、そのアカウントでアストロ娘をプレイしている該当国家 (国家名の後にカッコでFacebook上の名前が表示)を先にすべて表示。 ②その後にFacebookアカウント以外で現在アクティブなプレイヤーの中からランダムで表示。 <自分がfacebook以外(ゲスト・google)のアカウントでプレイしている場合> アカウントの種類に関係なく、アクティブなプレイヤーの中からランダムで表示。 といった感じになっています。 ランダムに表示されている国家のリストは、ある程度の時間が経ってからこの画面に戻ると少しずつ更新されています。 申請を行った後、受けた相手が受諾すれば同盟が成立してリストに登録されます。 ※同盟申請後の注意 相手が受諾して滞りなく同盟が成立すればリストに載るので特に問題は無いですが、 申請を行ってからしばらくしても何の音沙汰も無い場合、 このゲームでは申請した後の状況がどこにも表示されないので、現在どういう状態になっているのかを知るすべがありません。 その場合の可能性としては、「申請を受諾しないままでいる」「申請を拒否された」 「申請後に自分か相手の同盟枠が満杯になってしまい受諾できない」「何らかの不具合で受諾できない」 といった状況が考えられます。 それを知るには「チャットで直接聞いてみる」ぐらいしか方法が無いのですが、 このゲームはチャットの機能も不便なため、あまり現実的ではありません。 既にゲームを止めてしまっている相手に申請を送っている場合も考えられるので、 申請してしばらく反応が無い場合は、諦めて他の相手に申請を送ってみるのが無難かと思われます。 <<同盟申請の受諾>> 同盟申請を貰っている相手のリストから「受諾」することにより、同盟が完了します。 同盟になった当日はプレゼント・練習戦闘の機能が使えず、実行できるのは翌日0 00からになります。 また、申請を送って来た相手が、その後同盟枠を満杯にしていた場合は受諾することが出来ません。
https://w.atwiki.jp/meumeu/pages/13.html
公式コンテンツ 商店街音楽物語「ひなビタ♪」公式サイト 公式ウェブサイト。 ひなビタ♪ポータルサイト eAMUSEMENTから展開。このサイトで送信した応援メッセージは読み上げられることもある、らしいのでどんどん送ってみよう。 ひなビタ|Facebook/モバイル向け ここなつ|Facebook/モバイル向け ひなビタ♪の公式Facebook。 頻繁に更新されるのでこまめに覗くことをおすすめするが、全ての記事を見るには面倒な操作を要求されるので、後述のひなヒス♪でもよい。 ひなビタ♪情報局 ひなビタ♪の公式twitter。 新商品の情報などこちらで紹介されることも多い。 ひなビタ♪ - YouTube 573chのひなビタ♪関連動画。このページも参照。 カラオケ(JOYSOUND) [曲番号]曲名 [313066]走れメロンパン [313067]ちくわパフェだよ☆CKP [313068]めうめうぺったんたん!! 非公式コンテンツ FBログ Facebookのログを掲載したページ。 その他関連すると思われるリンク Amazon.co.jp アニメイトオンラインショップ コナミスタイル(KONAMI STYLE) ゲーマーズオンラインショップ ひなビタ♪の関連商品を販売するショップのトップページ。
https://w.atwiki.jp/yuukoku/pages/44.html
※イベント情報をお問い合わせフォームまたはツイッターDMでお寄せ下さい 06月 時間 イベント名称 場所 参加費 イベント詳細・連絡先 備考 04日(火) 15 00集合15 30から抗議開始 六・四天安門事件30周年中国大使館抗議 麻布税務署わきの路上集合東京都港区西麻布3-3-5 天安門事件30周年ホームページ 06日(木) 18 30~19 40受付18 00 日本を護る会 第82回 定例会講師:頭山興助 呉竹会会長「歴史的経緯に基づく中国の本質-日本は中国とどう付き合うか-」 銀座 カフェ ジュリエ東京都中央区銀座5-13-16東銀座三井ビル1FTEL:03-3543-3151 参加費2,500円会員2,000円(1,000円寄付)高校生以下無料学生1,000円 NPO法人日本を護る会事務所 質疑応答19 50~20 15懇親会 20 20~21 00(懇親会2,000円) 08日(土) 13 14~16 00 そよ風 映画「愛と誓ひ」鑑賞会第一部 三浦小太郎氏解説&映画鑑賞第二部 この映画について語る三浦小太郎・村田春樹・崔三然 TKP九段下神保町ビジネスセンターカンファレンスルーム5B東京都千代田区神田神保町3-4柳川ビル 入場料1,000円 日本女性の会 そよ風 スケジュール 11日(火) 19 30~21 30開場19 00 ChannelAJER特別講演会八幡和郎 講演会「万世一系:全ての疑問に答えます」 ナレッジソサエティセミナールーム東京都千代田区九段南1-5-6りそな九段ビル5F 会費3,500円 ChannelAJER※Facebookイベント 定員(60名)次第締切 11日(火) 受付18 45開始19 00閉会20 50 第二十九回 日出処から 勉強会「米国の社会問題と自然災害から日米関係を考える」 東京ウイメンズプラザ1階 視聴覚室A東京都渋谷区神宮前5丁目53-67 会費1,000円 日出処から 勉強会Facebookイベント 12日(水) 【夜の部】18 30~ 絶対にヤバい!国連先住民族勧告 IKE・BIZとしま産業振興プラザ3F男女平等推進センター研修室2東京都豊島区西池袋2-37-4 会場分担金&資料代1,500円 日本沖縄政策研究フォーラム※Facebookイベント 12日(水) 【昼の部】14 00~16 00 絶対にヤバい!国連先住民族勧告 IKE・BIZとしま産業振興プラザ3F男女平等推進センター研修室2東京都豊島区西池袋2-37-4 会場分担金&資料代1,500円 日本沖縄政策研究フォーラム※Facebookイベント 14日(金) 19 00~21 00受付18 45 第32回 日本 月例研究会 東京「日本人としての基礎作り:日本人の家族観」 湯島天満宮 梅香殿2階東京都文京区湯島3-30-1 ICPA会員2,000円一般3,000円 日本人の家族観を考える!日本月例研究会東京(湯島) 15日(土) 【一部】12 45~16 30【二部】17 00~19 00 第20回目 歴史会 日本精神を知ろう 靖國神社(遊就館内のゼロ戦近く集合)東京都千代田区九段北3-1-1 実費(年内有料化予定) 志道塾 歴史会Facebookイベント 16日(日) 15 00~18 00開場14 30 但馬オサム・村田春樹・長谷川顕一1970ストーンがロックして苔のむすまで[酒とロックのちょっと早めの夕] JazzBarサムライ東京都新宿区新宿3丁目35-5守ビル5F 入場料2,000円(1drink)投げ銭歓迎 Facebookイベント 定員30名立ち見OK予約不要 16日(日) 18 30~ 第2回全沖縄県国連先住民族勧告撤回大会「国連先住民族勧告撤回」「沖縄県民投票の真実」 宜野湾市真栄原公民館沖縄県宜野湾市真栄原3丁目5-13 参加費500円 日本沖縄政策研究フォーラム※Facebookイベント 駐車場60台 17日(月) 18 30~20 30受付18 00 美し国「なでしこオピニオンの会」河添恵子講演会「激動の世界と日本のこれから」 神楽坂セミナールーム東京都新宿区神楽坂6-42神楽坂喜多川ビル5階 会員2,000円一般3,000円懇親会6,000円 美し国 18日(火) 14 00~16 00開場13 30終了後懇親会 富岡八幡宮での令和奉祝講演 富岡八幡宮(境内内)婚儀殿2階東京都江東区富岡1-20-3 参加費無料懇親会1,000~1,500円 小名木善行ねずさんと学ぶ会※Facebookイベント 21日(金) 18 00~20 00 第34回正論大賞受賞者百地章氏 講演会「憲法改正の実現に向けて国民が為すべきこと」 勝田台文化センター3F 大ホール千葉県八千代市勝田台2-5-1 参加費無料(カンパ歓迎) Facebookイベント 22日(土) 13 00~16 00 日本人妻帰国運動の取組と同運動を振り返る映画上映会と特別講演会 TKP神田駅前ビジネスセンターカンファレンスルーム5C東京都千代田区鍛冶町2-2-1三井住友銀行神田駅前ビル5F 北朝鮮帰国者の生命と人権を守る会 22日(土) 14 30~16 30 拉致署名活動in靖國神社前(1日目) 九段下駅1番出口~靖國神社付近 誇りある日本をつくる会※Facebookイベント 雨天中止 22日(土) 18 30~20 30開場18 00 元駐ウクライナ兼モルドバ大使馬渕睦夫先生「令和の御代が始まった―世界と日本はどうなるか」 文京区民センター2F 2-A会議室東京都文京区本郷4-15-14 高校生以下無料事前申込2,000円事前申込学生1,000円当日申込3,000円 Facebookイベント 事前予約なし原則お断り 23日(日) 11 00~12 00 拉致署名活動in靖國神社前(2日目) 九段下駅1番出口~靖國神社付近 誇りある日本をつくる会※Facebookイベント 雨天中止 23日(日) 13 30~16 00開場13 00 第63回 倭塾公開講座「目からウロコの日本の歴史」 タワーホール船堀307会議室東京都江戸川区船堀4-1-1 新規2,500円割引券持参2,000円夫婦参加2名2,000円未成年者無料 小名木善行ねずさんと学ぶ会※Facebookイベント 希望者のみ懇親会3,500円 23日(日) 14 30~16 30開場14 05【懇親会】17 00~19 00 作家 拳骨拓史先生 講演会『台湾に残る日本精神』 文京区民センター3F 3-C会議室東京都文京区本郷4-15-14 事前申込1,500円当日申込2,000円事前申込学生500円高校生以下無料【懇親会】事前申込3,500円当日申込4,000円 Facebookイベント 申込6月22日23時迄懇親会6月21日23時迄 23日(日) 15 00~18 30 第153回 日本経済復活の会 定例会【第1部】ゲスト講演井上智洋 駒澤大学経済学部准教授「ベーシックインカムの財源をどうするか?-ヘリコプターマネーとMMT-」【第2部】討論(テーマ検討中) 文京シビックセンター5階 会議室C東京都文京区春日1-16-21 会費1,000円(資料代込) 日本経済復活の会 定例会Facebookイベント 19時頃から飲食店で懇親会を開催予定参加希望は当日受付時に申込 23日(日) 開場15 20開演15 40終了17 40 日本文化を学ぶ会 主催奥本康大先生 講演会【空の神兵パレンバン奇襲作戦】 かながわ県民センター302会議室神奈川県横浜市神奈川区鶴屋町2-24-2 会費1,000円ご夫婦1,500円大学生無料 日本文化を学ぶ会Facebookイベント 24日(月) 18 45~21 30開場18 30 令和の大演説会第一回 大東亜戦争に至る道 文京シビック・小ホール東京都文京区春日1-16-21 協力費2,000円 詳細:Facebookイベント主催:展転社TEL:03-5314-9470book@tendensha.co.jp 27日(木) 14 00集合【デモ行進】15 00~16 30 ウイグル人ジェノサイドに抗議するデモ行進(大阪G20) 集合・大阪市阿波座公園内大阪府大阪市西区阿波座1-8 日本ウイグル連盟主催:ウイグル人ジェノサイドに抗議する大阪G20デモ実行委員会共催:呉竹会アジアフォーラム 27日(木) 19 00~21 00 ウクライナ人が語る日本プーチン幻想シリーズ第一回「日本におけるプーチン幻想の中身、プーチン体制の成立と政策」講師 グレンコ・アンドリー 吹田浜屋敷大阪府吹田市南高浜町6-21吹田歴史文化まちづくりセンター 参加費2,000円学生 500円 Facebookイベントウクライナ人が語る日本事務局山本尚美reiwaukraine@gmail.com 質疑応答の時間あり懇親会はJR吹田駅前を予定 28日(金) 17 00~20 00 J20/Justice20 action at OSAKAG20に習近平が来日。大阪に集結し、全アジアの怒りの声を挙げよう! 未定(大阪市内) J20/Justice20実行委員会 29日(土) 【屋内集会】10 30~12 00【デモ】14 00~15 00 J20/Justice20 action at OSAKAG20に習近平が来日。大阪に集結し、全アジアの怒りの声を挙げよう! 【屋内集会】中央会館大阪市中央区島之内2-12-31【デモ】中央会館出発堺筋~長堀通~御堂筋~難波 J20/Justice20実行委員会 29日(土)~7/3(水) 10 00~17 00 失われた日常 田口八重子さん 写真展署名活動 中央図書館キュポ・ラ5階埼玉県川口市川口1-1-1キュポ・ラ本館 総務福祉課 TEL:048-259-7929拉致問題を考える川口の会 29日(土) 12 15開場12 25開演 日本文化を学ぶ会 特別講演会【第一部】仲村覚先生「日本を滅ぼす琉球史観からの脱却」【第二部】高井三郎先生「憲法九条を改め、自衛隊を国防軍に昇格せよ」 かながわ県民センター305会議室神奈川県横浜市神奈川区鶴屋町2-24-2 施設分担金&資料代2,000円ご夫婦3,000円大学生無料 日本文化を学ぶ会Facebookイベント 懇親会3500円程度 29日(土) 受付13 30~開会14 30 衆議院議員つちや品子13区合同時局講演会 春日部市民文化会館小ホール埼玉県春日部市粕壁東2-8-61 白岡市議会議員 中村ただしTEL:080-9416-0888FAX:048-888-0231 要・事前連絡 29日(土) 14 00~16 00 予備役ブルーリボンの会(RBRA)主催拉致と国防に関するシンポジウム-北朝鮮有事における邦人保護- 拓殖大学 文京キャンパスC301教室東京都文京区小日向3-4-14 参加費無料 予備役ブルーリボンの会 29日(土) 開場18 15開演18 30 文筆人 但馬オサム氏 講演会貴方は韓国の歴史・民族をどこまで知っていますか 文京シビックセンター26F スカイホール東京都文京区春日1‐16‐21 参加費1,000円(学生無料) 英霊の名誉を守り顕彰する会佐藤 TEL:090-6709-9380 30日(日) 開場14 00開会14 30 アジア自由民主連帯協議会 講演会テーマ:ベトナムの現状と今後の民主化運動講師:グエン・ハー・キエン・グオック TKPスター会議室 市ヶ谷東京都千代田区九段南4-7-22メゾン・ド・シャルー201 参加費1,000円会員500円大学生無料 アジア自由民主連帯協議会イベントFacebookイベント 30日(日) 14 30~16 30 河添恵子氏・講演会「米中新冷戦時代と日本のこれから」 かながわ県民センター301会議室神奈川県横浜市神奈川区鶴屋町2-24-2 参加費1,000円 主催:新しい歴史教科書をつくる会・神奈川県支部川島 TEL:090-9365-9166kawasima-jinbei88@outlook.jp 定員90名
https://w.atwiki.jp/bookadmin104/pages/12.html
package jcode; ;###################################################################### ;# ;# jcode.pl Perl library for Japanese character code conversion ;# ;# Copyright (c) 1995-2000 Kazumasa Utashiro utashiro@iij.ad.jp ;# Internet Initiative Japan Inc. ;# 3-13 Kanda Nishiki-cho, Chiyoda-ku, Tokyo 101-0054, Japan ;# ;# Copyright (c) 1992,1993,1994 Kazumasa Utashiro ;# Software Research Associates, Inc. ;# ;# Use and redistribution for ANY PURPOSE are granted as long as all ;# copyright notices are retained. Redistribution with modification ;# is allowed provided that you make your modified version obviously ;# distinguishable from the original one. THIS SOFTWARE IS PROVIDED ;# BY THE AUTHOR ``AS IS AND ANY EXPRESS OR IMPLIED WARRANTIES ARE ;# DISCLAIMED. ;# ;# Original version was developed under the name of srekcah@sra.co.jp ;# February 1992 and it was called kconv.pl at the beginning. This ;# address was a pen name for group of individuals and it is no longer ;# valid. ;# ;# The latest version is available here ;# ;#ftp //ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ ;# ;; $rcsid = q$Id jcode.pl,v 2.13 2000/09/29 16 10 05 utashiro Exp $; ;# ;###################################################################### ;# ;# PERL4 INTERFACE ;# ;# jcode getcode(*line) ;#Return jis , sjis , euc or undef according to ;#Japanese character code in $line. Return binary if ;#the data has non-character code. ;# ;#When evaluated in array context, it returns a list ;#contains two items. First value is the number of ;#characters which matched to the expected code, and ;#second value is the code name. It is useful if and ;#only if the number is not 0 and the code is undef; ;#that case means it couldn t tell euc or sjis ;#because the evaluation score was exactly same. This ;#interface is too tricky, though. ;# ;#Code detection between euc and sjis is very difficult ;#or sometimes impossible or even lead to wrong result ;#when it includes JIS X0201 KANA characters. So JIS ;#X0201 KANA is ignored for automatic code detection. ;# ;# jcode convert(*line, $ocode [, $icode [, $option]]) ;#Convert the contents of $line to the specified ;#Japanese code given in the second argument $ocode. ;#$ocode can be any of "jis", "sjis" or "euc", or use ;#"noconv" when you don t want the code conversion. ;#Input code is recognized automatically from the line ;#itself when $icode is not supplied (JIS X0201 KANA is ;#ignored in code detection. See the above descripton ;#of getcode). $icode also can be specified, but ;#xxx2yyy routine is more efficient when both codes are ;#known. ;# ;#It returns the code of input string in scalar context, ;#and a list of pointer of convert subroutine and the ;#input code in array context. ;# ;#Japanese character code JIS X0201, X0208, X0212 and ;#ASCII code are supported. X0212 characters can not be ;#represented in SJIS and they will be replased by ;#"geta" character when converted to SJIS. ;# ;#See next paragraph for $option parameter. ;# ;# jcode xxx2yyy(*line [, $option]) ;#Convert the Japanese code from xxx to yyy. String xxx ;#and yyy are any convination from "jis", "euc" or ;#"sjis". They return *approximate* number of converted ;#bytes. So return value 0 means the line was not ;#converted at all. ;# ;#Optional parameter $option is used to specify optional ;#conversion method. String "z" is for JIS X0201 KANA ;#to X0208 KANA, and "h" is for reverse. ;# ;#$jcode convf{ xxx , yyy } ;#The value of this associative array is pointer to the ;#subroutine jcode xxx2yyy(). ;# ;# jcode to($ocode, $line [, $icode [, $option]]) ;# jcode jis($line [, $icode [, $option]]) ;# jcode euc($line [, $icode [, $option]]) ;# jcode sjis($line [, $icode [, $option]]) ;#These functions are prepared for easy use of ;#call/return-by-value interface. You can use these ;#funcitons in s///e operation or any other place for ;#convenience. ;# ;# jcode jis_inout($in, $out) ;#Set or inquire JIS start and end sequences. Default ;#is "ESC-$-B" and "ESC-(-B". If you supplied only one ;#character, "ESC-$" or "ESC-(" is prepended for each ;#character respectively. Acutually "ESC-(-B" is not a ;#sequence to end JIS code but a sequence to start ASCII ;#code set. So `in and `out are somewhat misleading. ;# ;# jcode get_inout($string) ;#Get JIS start and end sequences from $string. ;# ;# jcode cache() ;# jcode nocache() ;# jcode flush() ;#Usually, converted character is cached in memory to ;#avoid same calculations have to be done many times. ;#To disable this caching, call jcode nocache(). It ;#can be revived by jcode cache() and cache is flushed ;#by calling jcode flush(). cache() and nocache() ;#functions return previous caching state. ;# ;#--------------------------------------------------------------- ;# ;# jcode h2z_xxx(*line) ;#JIS X0201 KANA (so-called Hankaku-KANA) to X0208 KANA ;#(Zenkaku-KANA) code conversion routine. String xxx is ;#any of "jis", "sjis" and "euc". From the difficulty ;#of recognizing code set from 1-byte KATAKANA string, ;#automatic code recognition is not supported. ;# ;# jcode z2h_xxx(*line) ;#X0208 to X0201 KANA code conversion routine. String ;#xxx is any of "jis", "sjis" and "euc". ;# ;#$jcode z2hf{ xxx } ;#$jcode h2zf{ xxx } ;#These are pointer to the corresponding function just ;#as $jcode convf. ;# ;#--------------------------------------------------------------- ;# ;# jcode tr(*line, $from, $to [, $option]) ;# jcode tr emulates tr operator for 2 byte code. Only d ;#is interpreted as an option. ;# ;#Range operator like `A-Z for 2 byte code is partially ;#supported. Code must be JIS or EUC, and first byte ;#have to be same on first and last character. ;# ;#CAUTION Handling range operator is a kind of trick ;#and it is not perfect. So if you need to transfer `- ;#character, please be sure to put it at the beginning ;#or the end of $from and $to strings. ;# ;# jcode trans($line, $from, $to [, $option) ;#Same as jcode tr but accept string and return string ;#after translation. ;# ;#--------------------------------------------------------------- ;# ;# jcode init() ;#Initialize the variables used in this package. You ;#don t have to call this when using jocde.pl by `do or ;#`require interface. Call it first if you embedded ;#the jcode.pl at the end of your script. ;# ;###################################################################### ;# ;# PERL5 INTERFACE ;# ;# Current jcode.pl is written in Perl 4 but it is possible to use ;# from Perl 5 using `references . Fully perl5 capable version is ;# future issue. ;# ;# Since lexical variable is not a subject of typeglob, *string style ;# call doesn t work if the variable is declared as `my . Same thing ;# happens to special variable $_ if the perl is compiled to use ;# thread capability. So using reference is generally recommented to ;# avoid the mysterious error. ;# ;#jcode getcode(\$line) ;#jcode convert(\$line, $ocode [, $icode [, $option]]) ;#jcode xxx2yyy(\$line [, $option]) ;# {$jcode convf{ xxx , yyy }}(\$line) ;#jcode to($ocode, $line [, $icode [, $option]]) ;#jcode jis($line [, $icode [, $option]]) ;#jcode euc($line [, $icode [, $option]]) ;#jcode sjis($line [, $icode [, $option]]) ;#jcode jis_inout($in, $out) ;#jcode get_inout($string) ;#jcode cache() ;#jcode nocache() ;#jcode flush() ;#jcode h2z_xxx(\$line) ;#jcode z2h_xxx(\$line) ;# {$jcode z2hf{ xxx }}(\$line) ;# {$jcode h2zf{ xxx }}(\$line) ;#jcode tr(\$line, $from, $to [, $option]) ;#jcode trans($line, $from, $to [, $option) ;#jcode init() ;# ;###################################################################### ;# ;# SAMPLES ;# ;# Convert any Kanji code to JIS and print each line with code name. ;# ;#while (defined($s = )) { ;# $code = jcode convert(*s, jis ); ;# print $code, "\t", $s; ;#} ;# ;# Convert all lines to JIS according to the first recognized line. ;# ;#while (defined($s = )) { ;# print, next unless $s =~ /[\033\200-\377]/; ;# (*f, $icode) = jcode convert(*s, jis ); ;# print; ;# defined( f) || next; ;# while ( ) { f(*s); print; } ;# last; ;#} ;# ;# The safest way of JIS conversion. ;# ;#while (defined($s = )) { ;# ($matched, $icode) = jcode getcode(*s); ;# if (@buf == 0 $matched == 0) { ;#print $s; ;#next; ;# } ;# push(@buf, $s); ;# next unless $icode; ;# while (defined($s = shift(@buf))) { ;# jcode convert(*s, jis , $icode); ;#print $s; ;# } ;# while (defined($s = )) { ;# jcode convert(*s, jis , $icode); ;#print $s; ;# } ;# last; ;#} ;#print @buf if @buf; ;# ;###################################################################### ;# ;# Call initialize function if it is not called yet. This may sound ;# strange but it makes easy to embed the jcode.pl at the end of ;# script. Call jcode init at the beginning of the script in that ;# case. ;# init unless defined $version; ;# ;# Initialize variables. ;# sub init { $version = $rcsid =~ /,v ([\d.]+)/ ? $1 unknown ; $re_bin = [\000-\006\177\377] ; $re_jis0208_1978 = \e\$\@ ; $re_jis0208_1983 = \e\$B ; $re_jis0208_1990 = \e \@\e\$B ; $re_jis0208 = "$re_jis0208_1978|$re_jis0208_1983|$re_jis0208_1990"; $re_jis0212 = \e\$\(D ; $re_jp = "$re_jis0208|$re_jis0212"; $re_asc = \e\([BJ] ; $re_kana = \e\(I ; $esc_0208 = "\e\$B"; $esc_0212 = "\e\$(D"; $esc_asc = "\e(B"; $esc_kana = "\e(I"; $re_sjis_c = [\201-\237\340-\374][\100-\176\200-\374] ; $re_sjis_kana = [\241-\337] ; $re_euc_c = [\241-\376][\241-\376] ; $re_euc_kana = \216[\241-\337] ; $re_euc_0212 = \217[\241-\376][\241-\376] ; # Use `geta for undefined character code $undef_sjis = "\x81\xac"; $cache = 1; # X0201 - X0208 KANA conversion table. Looks weird? Not that # much. This is simply JIS text without escape sequences. ($h2z_high = $h2z = __TABLE_END__ ) =~ tr/\041-\176/\241-\376/; !!#$!"%! "!V#!W ^!+_!,0! %!(%#)%%*% +%) ,%c-%e.%g/%C 1%"2%$3% 4%(5%* 6%+7%-8%/9%1 %3 6^%,7^%.8^%09^%2 ^%4 ;%5 %7=%9 %;?%= ;^%6 ^%8=^% ^% ?^% @%?A%AB%DC%FD%H @^%@A^%BB^%EC^%GD^%I E%JF%KG%LH%MI%N J%OK%RL%UM%XN%[ J^%PK^%SL^%VM^%YN^%\ J_%QK_%TL_%WM_%ZN_%] O%^P%_Q%`R%aS%b T%dU%fV%h W%iX%jY%kZ%l[%m \%o]%s %r3^%t __TABLE_END__ %h2z = split(/\s+/, $h2z . $h2z_high); %z2h = reverse %h2z; $convf{ jis , jis } = *jis2jis; $convf{ jis , sjis } = *jis2sjis; $convf{ jis , euc } = *jis2euc; $convf{ euc , jis } = *euc2jis; $convf{ euc , sjis } = *euc2sjis; $convf{ euc , euc } = *euc2euc; $convf{ sjis , jis } = *sjis2jis; $convf{ sjis , sjis } = *sjis2sjis; $convf{ sjis , euc } = *sjis2euc; $h2zf{ jis } = *h2z_jis; $z2hf{ jis } = *z2h_jis; $h2zf{ euc } = *h2z_euc; $z2hf{ euc } = *z2h_euc; $h2zf{ sjis } = *h2z_sjis; $z2hf{ sjis } = *z2h_sjis; } ;# ;# Set escape sequences which should be put before and after Japanese ;# (JIS X0208) string. ;# sub jis_inout { $esc_0208 = shift || $esc_0208; $esc_0208 = "\e\$$esc_0208" if length($esc_0208) == 1; $esc_asc = shift || $esc_asc; $esc_asc = "\e\($esc_asc" if length($esc_asc) == 1; ($esc_0208, $esc_asc); } ;# ;# Get JIS in and out sequences from the string. ;# sub get_inout { local($esc_0208, $esc_asc); $_[$[] =~ /($re_jis0208)/o ($esc_0208 = $1); $_[$[] =~ /($re_asc)/o ($esc_asc = $1); ($esc_0208, $esc_asc); } ;# ;# Recognize character code. ;# sub getcode { local(*s) = @_; local($matched, $code); if ($s !~ /[\e\200-\377]/) {# not Japanese $matched = 0; $code = undef; }# jis elsif ($s =~ /$re_jp|$re_asc|$re_kana/o) { $matched = 1; $code = jis ; } elsif ($s =~ /$re_bin/o) {# binary $matched = 0; $code = binary ; } else {# should be euc or sjis local($sjis, $euc) = (0, 0); while ($s =~ /(($re_sjis_c)+)/go) { $sjis += length($1); } while ($s =~ /(($re_euc_c|$re_euc_kana|$re_euc_0212)+)/go) { $euc += length($1); } $matched = max($sjis, $euc); $code = ( euc , undef, sjis )[($sjis = $euc) + $[ + 1]; } wantarray ? ($matched, $code) $code; } sub max { $_[ $[ + ($_[ $[ ] $_[ $[ + 1 ]) ]; } ;# ;# Convert any code to specified code. ;# sub convert { local(*s, $ocode, $icode, $opt) = @_; return (undef, undef) unless $icode = $icode || getcode(*s); return (undef, $icode) if $icode eq binary ; $ocode = jis unless $ocode; $ocode = $icode if $ocode eq noconv ; local(*f) = $convf{$icode, $ocode}; f(*s, $opt); wantarray ? (*f, $icode) $icode; } ;# ;# Easy return-by-value interfaces. ;# sub jis { to( jis , @_); } sub euc { to( euc , @_); } sub sjis { to( sjis , @_); } sub to { local($ocode, $s, $icode, $opt) = @_; convert(*s, $ocode, $icode, $opt); $s; } sub what { local($s) = @_; getcode(*s); } sub trans { local($s) = shift; tr(*s, @_); $s; } ;# ;# SJIS to JIS ;# sub sjis2jis { local(*s, $opt, $n) = @_; sjis2sjis(*s, $opt) if $opt; $s =~ s/(($re_sjis_c|$re_sjis_kana)+)/ _sjis2jis($1) . $esc_asc/geo; $n; } sub _sjis2jis { local($s) = shift; $s =~ s/(($re_sjis_c)+|($re_sjis_kana)+)/ __sjis2jis($1)/geo; $s; } sub __sjis2jis { local($s) = shift; if ($s =~ /^$re_sjis_kana/o) { $n += $s =~ tr/\241-\337/\041-\137/; $esc_kana . $s; } else { $n += $s =~ s/($re_sjis_c)/$s2e{$1}|| s2e($1)/geo; $s =~ tr/\241-\376/\041-\176/; $esc_0208 . $s; } } ;# ;# EUC to JIS ;# sub euc2jis { local(*s, $opt, $n) = @_; euc2euc(*s, $opt) if $opt; $s =~ s/(($re_euc_c|$re_euc_kana|$re_euc_0212)+)/ _euc2jis($1) . $esc_asc /geo; $n; } sub _euc2jis { local($s) = shift; $s =~ s/(($re_euc_c)+|($re_euc_kana)+|($re_euc_0212)+)/ __euc2jis($1)/geo; $s; } sub __euc2jis { local($s) = shift; local($esc); if ($s =~ tr/\216//d) { $esc = $esc_kana; } elsif ($s =~ tr/\217//d) { $esc = $esc_0212; } else { $esc = $esc_0208; } $n += $s =~ tr/\241-\376/\041-\176/; $esc . $s; } ;# ;# JIS to EUC ;# sub jis2euc { local(*s, $opt, $n) = @_; $s =~ s/($re_jp|$re_asc|$re_kana)([^\e]*)/ _jis2euc($1,$2)/geo; euc2euc(*s, $opt) if $opt; $n; } sub _jis2euc { local($esc, $s) = @_; if ($esc !~ /^$re_asc/o) { $n += $s =~ tr/\041-\176/\241-\376/; if ($esc =~ /^$re_kana/o) { $s =~ s/([\241-\337])/\216$1/g; } elsif ($esc =~ /^$re_jis0212/o) { $s =~ s/([\241-\376][\241-\376])/\217$1/g; } } $s; } ;# ;# JIS to SJIS ;# sub jis2sjis { local(*s, $opt, $n) = @_; jis2jis(*s, $opt) if $opt; $s =~ s/($re_jp|$re_asc|$re_kana)([^\e]*)/ _jis2sjis($1,$2)/geo; $n; } sub _jis2sjis { local($esc, $s) = @_; if ($esc =~ /^$re_jis0212/o) { $s =~ s/../$undef_sjis/g; $n = length; } elsif ($esc !~ /^$re_asc/o) { $n += $s =~ tr/\041-\176/\241-\376/; if ($esc =~ /^$re_jp/o) { $s =~ s/($re_euc_c)/$e2s{$1}|| e2s($1)/geo; } } $s; } ;# ;# SJIS to EUC ;# sub sjis2euc { local(*s, $opt,$n) = @_; $n = $s =~ s/($re_sjis_c|$re_sjis_kana)/$s2e{$1}|| s2e($1)/geo; euc2euc(*s, $opt) if $opt; $n; } sub s2e { local($c1, $c2, $code); ($c1, $c2) = unpack( CC , $code = shift); if (0xa1 = $c1 $c1 = 0xdf) { $c2 = $c1; $c1 = 0x8e; } elsif (0x9f = $c2) { $c1 = $c1 * 2 - ($c1 = 0xe0 ? 0xe0 0x60); $c2 += 2; } else { $c1 = $c1 * 2 - ($c1 = 0xe0 ? 0xe1 0x61); $c2 += 0x60 + ($c2 0x7f); } if ($cache) { $s2e{$code} = pack( CC , $c1, $c2); } else { pack( CC , $c1, $c2); } } ;# ;# EUC to SJIS ;# sub euc2sjis { local(*s, $opt,$n) = @_; euc2euc(*s, $opt) if $opt; $n = $s =~ s/($re_euc_c|$re_euc_kana|$re_euc_0212)/$e2s{$1}|| e2s($1)/geo; } sub e2s { local($c1, $c2, $code); ($c1, $c2) = unpack( CC , $code = shift); if ($c1 == 0x8e) {# SS2 return substr($code, 1, 1); } elsif ($c1 == 0x8f) {# SS3 return $undef_sjis; } elsif ($c1 % 2) { $c1 = ($c1 1) + ($c1 0xdf ? 0x31 0x71); $c2 -= 0x60 + ($c2 0xe0); } else { $c1 = ($c1 1) + ($c1 0xdf ? 0x30 0x70); $c2 -= 2; } if ($cache) { $e2s{$code} = pack( CC , $c1, $c2); } else { pack( CC , $c1, $c2); } } ;# ;# JIS to JIS, SJIS to SJIS, EUC to EUC ;# sub jis2jis { local(*s, $opt) = @_; $s =~ s/$re_jis0208/$esc_0208/go; $s =~ s/$re_asc/$esc_asc/go; h2z_jis(*s) if $opt =~ /z/; z2h_jis(*s) if $opt =~ /h/; } sub sjis2sjis { local(*s, $opt) = @_; h2z_sjis(*s) if $opt =~ /z/; z2h_sjis(*s) if $opt =~ /h/; } sub euc2euc { local(*s, $opt) = @_; h2z_euc(*s) if $opt =~ /z/; z2h_euc(*s) if $opt =~ /h/; } ;# ;# Cache control functions ;# sub cache { ($cache, $cache = 1)[$[]; } sub nocache { ($cache, $cache = 0)[$[]; } sub flushcache { undef %e2s; undef %s2e; } ;# ;# X0201 - X0208 KANA conversion routine ;# sub h2z_jis { local(*s, $n) = @_; if ($s =~ s/$re_kana([^\e]*)/$esc_0208 . _h2z_jis($1)/geo) { 1 while $s =~ s/(($re_jis0208)[^\e]*)($re_jis0208)/$1/o; } $n; } sub _h2z_jis { local($s) = @_; $n += $s =~ s/(([\041-\137])([\136\137])?)/ $h2z{$1} || $h2z{$2} . $h2z{$3} /ge; $s; } sub h2z_euc { local(*s) = @_; $s =~ s/\216([\241-\337])(\216([\336\337]))?/ $h2z{"$1$3"} || $h2z{$1} . $h2z{$3} /ge; } sub h2z_sjis { local(*s, $n) = @_; $s =~ s/(($re_sjis_c)+)|(([\241-\337])([\336\337])?)/ $1 || ($n++, $h2z{$3} ? $e2s{$h2z{$3}} || e2s($h2z{$3}) e2s($h2z{$4}) . ($5 e2s($h2z{$5}))) /geo; $n; } ;# ;# X0208 - X0201 KANA conversion routine ;# sub z2h_jis { local(*s, $n) = @_; $s =~ s/($re_jis0208)([^\e]+)/ _z2h_jis($2)/geo; $n; } sub _z2h_jis { local($s) = @_; $s =~ s/((\%[!-~]|![\#\" VW+, ])+|([^!%][!-~]|![^\#\" VW+, ])+)/ __z2h_jis($1) /ge; $s; } sub __z2h_jis { local($s) = @_; return $esc_0208 . $s unless $s =~ /^%/ || $s =~ /^![\#\" VW+, ]/; $n += length($s) / 2; $s =~ s/(..)/$z2h{$1}/g; $esc_kana . $s; } sub z2h_euc { local(*s, $n) = @_; init_z2h_euc unless defined %z2h_euc; $s =~ s/($re_euc_c|$re_euc_kana)/ $z2h_euc{$1} ? ($n++, $z2h_euc{$1}) $1 /geo; $n; } sub z2h_sjis { local(*s, $n) = @_; init_z2h_sjis unless defined %z2h_sjis; $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) $1/geo; $n; } ;# ;# Initializing JIS X0208 to X0201 KANA table for EUC and SJIS. This ;# can be done in init but it s not worth doing. Similarly, ;# precalculated table is not worth to occupy the file space and ;# reduce the readability. The author personnaly discourages to use ;# X0201 Kana character in the any situation. ;# sub init_z2h_euc { local($k, $s); while (($k, $s) = each %z2h) { $s =~ s/([\241-\337])/\216$1/g ($z2h_euc{$k} = $s); } } sub init_z2h_sjis { local($s, $v); while (($s, $v) = each %z2h) { $s =~ /[\200-\377]/ ($z2h_sjis{ e2s($s)} = $v); } } ;# ;# TR function for 2-byte code ;# sub tr { # $prev_from, $prev_to, %table are persistent variables local(*s, $from, $to, $opt) = @_; local(@from, @to); local($jis, $n) = (0, 0); $jis++, jis2euc(*s) if $s =~ /$re_jp|$re_asc|$re_kana/o; $jis++ if $to =~ /$re_jp|$re_asc|$re_kana/o; if (!defined($prev_from) || $from ne $prev_from || $to ne $prev_to) { ($prev_from, $prev_to) = ($from, $to); undef %table; _maketable; } $s =~ s/([\200-\377][\000-\377]|[\000-\377])/ defined($table{$1}) ++$n ? $table{$1} $1 /ge; euc2jis(*s) if $jis; $n; } sub _maketable { local($ascii) = (\\\\[\\-\\\\]|[\0-\133\135-\177]) ; jis2euc(*to) if $to =~ /$re_jp|$re_asc|$re_kana/o; jis2euc(*from) if $from =~ /$re_jp|$re_asc|$re_kana/o; grep(s/(([\200-\377])[\200-\377]-\2[\200-\377])/ _expnd2($1)/ge, $from, $to); grep(s/($ascii-$ascii)/ _expnd1($1)/geo, $from, $to); @to = $to =~ /[\200-\377][\000-\377]|[\000-\377]/g; @from = $from =~ /[\200-\377][\000-\377]|[\000-\377]/g; push(@to, ($opt =~ /d/ ? $to[$#to]) x (@from - @to)) if @to @from; @table{@from} = @to; } sub _expnd1 { local($s) = @_; $s =~ s/\\(.)/$1/g; local($c1, $c2) = unpack( CxC , $s); if ($c1 = $c2) { for ($s = ; $c1 = $c2; $c1++) { $s .= pack( C , $c1); } } $s; } sub _expnd2 { local($s) = @_; local($c1, $c2, $c3, $c4) = unpack( CCxCC , $s); if ($c1 == $c3 $c2 = $c4) { for ($s = ; $c2 = $c4; $c2++) { $s .= pack( CC , $c1, $c2); } } $s; } 1;
https://w.atwiki.jp/oubijuku/pages/2.html
メニュー トップページ メニュー 右メニュー リンク 【公式サイト】医学部・難関大学受験『準備』専門 桜灯(おうび)塾http //oubi-juku.com/ 【アメブロ】桜灯(おうび)塾http //ameblo.jp/oubi-juku/ 【facebook】桜灯(おうび)塾 【facebook】塾長個人https //www.facebook.com/uchida.kenichi.16 他のサービス 2ch型掲示板11レンタル 無料掲示板レンタル wikiの編集方法についてはこちら 左メニューの編集方法についてはこちら ここを編集
https://w.atwiki.jp/gakkymatome/pages/55.html
8月25日の予習 早朝から原稿。昨夜は友人(仙台市在住の作家と映画監督)が遊びに来てくれた。寝室が二つあるので、名取市の監督は寝てっちゃった。午前中は猛烈に書いて、福島に寄り、励まし、きっと励まされ、新幹線内で原稿完成させて即送信予定。夜は六本木で映画。 [8/25 9 21 facebook] 午前中は原稿書き、その後福島に行き、帰京するようだ。 8月25日のツイッター、フェイスブックへの投稿 双葉町には、間隙をぬって一度だけ入りました。当方一家の命だけは、おかげさまで助かりました。東京でしばらく楽しめるといいのですが。クルマありますので、そのご一家ご案内しましょうか。 [8/25 9 01 facebook] ※今回の旅行では訪れていないようだ。 本質的な議論だと思います。後輩の枝野氏に会うので伝えておきます。 [8/25 9 03 facebook] ※東北大学出身の枝野官房長官のことだと思われる。 二度死にかけていますから、三度ある?モーレア島がそのご褒美なので必ず生還(キッパリ)。ありがとうございます。 [8/25 9 06 facebook] ※ツイッターのプロフィールには、「死にかけ体験4回」とある。 夜はストレッチ、朝は筋トレがいいわけですが、そうは言っても楽しく死ぬまで続けなきゃ寝たきりに。**さん案はげんじつ的です。歩道をケータイ見ながら猛スピードで走る無灯火の自転車には、その棒でチャリ主の首をあてちゃってもいいですか。 [8/25 9 13 facebook] 早朝から原稿。昨夜は友人(仙台市在住の作家と映画監督)が遊びに来てくれた。寝室が二つあるので、名取市の監督は寝てっちゃった。午前中は猛烈に書いて、福島に寄り、励まし、きっと励まされ、新幹線内で原稿完成させて即送信予定。夜は六本木で映画。 [8/25 9 21 facebook] iPhoneにラジオ体操アプリあるよ。 [8/25 10 01 facebook] ※10個上のコメント冒頭、上村さん! →上農さん!の間違え。お恥ずかしい。 [8/25 10 03 facebook] NHKの真面目な体操ーー今時はなぜか、そこはかとなくエロいと感じる私は変態? [8/25 10 13 facebook] ほとんど報道されない、例えば多賀城市。一見すると、何事もなく建っているマンションも、中にはいると悲惨。エレベーターが落ち、ドアは閉まらず、正式に全壊指定。が、今も15%が住み続けている。放射能汚染より数千倍はリスキー。 ポートフォリオを無視した住宅購入は無謀。これは重要なこと。 via TwitBird [8/25 11 25 twitter] ※今回、多賀城市を訪れているかはわからない。 これから、震災後、みたび東松島から一気に飯舘、南相木、いわきへ。 私にとっては、見ることより、話を聞くこと、考え続けることが肝要。 被災や原発事故が、一方的な理屈のみのイデオロギー論争に使われている現状を、哀しく思う。 解決する道は必ず見つかるはず。 via TwitBird [8/25 11 33 twitter] ※南相木(長野県)は南相馬の誤りだと思われる。 こんにちは! [8/25 12 34 facebook(携帯から)] 誇大広告気味のタイトルは、結局は消費期限が短くなりますよね。ロングセラーを! [8/25 12 40 facebook] こういう若いひとの、結婚式でここまでやってもらえる関係を、本当の友人たちと呼べるのかもしれない。 ↓ http //www.youtube.com/watch?v=yJ3MmgdcHTo feature=youtube_gdata_player [8/25 12 46 facebook(携帯から)] ※結婚披露宴の余興動画である。 いまどき多忙=時給=月給奴隷労働は、滅びゆくのみ。 著者まで消費財にする人々の犠牲になりませんように。 3秒ルールが本当なら、多忙を極める下請け奴隷労働から解放されているはずなのに(笑)。 [8/25 13 01 facebook] 中身が伴ったらね。 [8/25 13 03 facebook] 【謹告】町山智浩氏本人またはその子分と思われる人物が、自作自演で非実在の新・講談社(笑)に電話をかけ、その内容をネットに公開していることに関し、現実の講談社は「ありえないこと」と断言。当然。私はこういう捏造に対して我慢してきましたが、さすがにここまでやるとは大いなる人格的違和感。 via web [8/25 18 06 twitter] 皆やトレンドに合わせていたら、貴女や私の存在価値は、代替可能性に比重が移ってしまいます。 10万部の本を何回か売ったことがありますか? N700系の16両編成が完全満席(1332人)だとして、そのうちの、たった一人が本を買ってくれさえすれば、ベストセラーになるのです。 人目を引くキャッチは昔からその通りとおもいますが、発信者の誠実さを潰しては、何もならない、賞味期限を縮める、と事実を指摘しただけだす。誤解ありませぬよう。ご成功を、とりわけ継続性を願ってやみません。 [8/25 13 33 facebook] ※【訂正】ベストセラー ↓ 10万部のベストセラー [8/25 13 35 facebook] 私をウソつき呼ばわりしながら強い愛と関心(笑)をもち続ける方々(フォロアーが0の同一人物がほとんど)に、ご苦労様と言うほかありません。懸垂疑惑(笑)、東北を食い物に疑惑(笑)、FX疑惑(意味不明)などなど次々と飽くことなくデッチ上げ、ごく仲間内の演出で証拠の如く見せる手口オモロ。 via web [8/25 18 12 twitter] @**** それが、できるんだな。私はやっていますよ。個別に念書をとっておけば、可能です。全体を変える前に、自分で工夫すれば、できるのです。 via web [8/25 18 14 twitter] 今ドルやユーロでもらったら、大変なことになります(笑)。戦後最高の円高なのですから、ほとんど勝負に打って出ても負けることはないFXのドル買いをお勧めします。95円や110円で買った人が大損こいただけ。RT @aknmssm 「円でもらっても、どうなっちゃうんだろ」と思ってしまう。 via web [8/25 18 17 twitter] I ve been to Somalia a few years ago. She is 7 months? Amen. [8/25 18 51 facebook] リビアについては本日のメルマガで書きます。アフリカも大きく発展し始めていますが、53カ国全てでは、もちらんありません。ソマリアの現実。私がケニアから立ち寄ったときも、このような幼児が沢山いました。国境なき医師団事務局の寄付集めには大いに問題ありますが、頼りになるのは現状では国境なき医師団であり、皆様の寄付です。 これが、ソマリアの変わらぬ現実。Sinsin Alexさんからシェアさせていただきます。 http //m.facebook.com/home.php?_rdr#!/photo.php?fbid=224883760896819 id=100001255902709 refid=7 _ft_a=100001255902709 _ft_tf=224883760896819 _ft_tpi=100001255902709 _ft_ti=7 _ft_fth=5842148c033775d7 _ft_src=1 _ft_time_ft=1314265498 _ft_mf_objid=224883760896819 [8/25 19 00 facebook(携帯から)] スマトラ島の大津波の時、74歳の男性が、ヤシの木に登って難を逃れたと、ご本人に伺い、実際やっていただいたら、するするっと、いとも簡単に! もう80歳ですよ! 私も真似したら、1ミリも動かない。老人は「なにやってんだ?」と不思議そうでした。登り棒なら、まあ得意だったのに。こんなところに4時間もしがみついていたのですって。 [8/25 19 33 facebook] カダフィの自宅が爆撃。しかし、カダフィは元首でもなく、リビアには憲法も議会もありません。だからと言って、旧宗主国が反政府軍と手を結び良質な石油の半額販売と引き換えに武器供与と参戦を約束。国民を数万人も虐殺。反政府軍の半分はヒスボラやアルカイダです。 「カダフィ紙幣」をプレゼント。 via web [8/25 20 44 twitter] http //www.gfighter.com/000433/ などで、紙の本以外を1500円以上お買い上げの方に、もれなくプレゼントします。これは義捐金にあてられました(すでに)。私とチュニジア人教授の共同行動ですので、皆様は、すでに流通をやめつつあるカダフィ紙幣を、見つめてあげてください。 via web [8/25 20 46 twitter] リビアに短期間滞在中(内戦勃発後)、アルジャジーラのカメラマンがカダフィ軍に射殺されました。3度も拘束されたので、けっこうスリルあり。今はイエメンやイランでもアルジャジーラは危険な目に合っています。@**** アルジャジーラの東京支局って、2005年に撤退してたんだ… via web [8/25 20 51 twitter] 「およそ15メートルまでは想定していた」と言ったはず。なぜ下げるのか、報道機関が。RT @asahi 10メートル超の津波想定、東電副社長が把握 http //t.asahi.com/3omq via web [8/25 20 53 twitter] 住んだことありますが、調味料は同じ場所に置き3ミリずれてもいけない、窓が汚れていたら通りすがりの人に怒鳴られる、毎日パンとハムしか食べない、など私には試練の日々。RT @**** ドイツという国はいつもながら見習うべきことが多い国という印象がある。で、日本はどうだろう? via web [8/25 20 55 twitter] ※過去に「留学はしたことがあるが、海外に住んだことはない」と発言している。 若い人でも津波で家を流された被災者は困っています。 【拡散をお願いします】被災地への物資支援まだやってるの?と思われるかも知れません。しかし、辺鄙な仮設住宅に移った年寄は食料の調達もままなりません。 #shien [#shienとは] #save_miyagi [#save_miyagiとは] http //www.geocities.jp/s_yamagiwa2003/ via web [8/25 20 58 twitter] 学生ですから、貯金ゼロ、私は学生の身分のまま就職、彼女は身ごもって休学するまで私が学費持ち、結婚披露宴も盛大だったのですが、その費用を全部友人たちが出しあってくれて、参加しないひとからまで祝い金集めてくれて、余ったお金を貯金通帳に入れて渡してくれました。(つづく) [8/25 21 39 facebook] ※自身の結婚エピソードを語りはじめる。 あの方、どう見ても30歳にしか見えませんよね。1953年生まれですって。ずいぶん執拗に絡まれました。私の場合、読者やメルマガ読者がいるので、断るわけにもいかず、また全部チェックするわけにもいかず、全部承認してから、事が起きたら対象すればいい、というスタンスにしました。witterぬ比べたら、とても楽しく交流させてもらっています。あ、いまゲラのバイク便が呼び鈴ーー [8/25 21 50 facebook] 日垣隆 あれは1982年12月20日のことでした。 (つづく) [8/25 23 20 facebook] 円安がすすんでいる。スイスフランもユーロも、差はあれど対ドルで安値。昨日は損失したので、岩手からドンとドルを買い足したところ、3時間で80万円の純益。レバレッジ高くしたのは正解。 そろそろ大台の勝負ーーいや、もうちょっとトレンド開始を待とう。いくら遊びでも、1億はねえ。 via TwitBird [8/26 1 24 twitter] 8月25日の復習 午前中は書き物 早朝から原稿。昨夜は友人(仙台市在住の作家と映画監督)が遊びに来てくれた。寝室が二つあるので、名取市の監督は寝てっちゃった。午前中は猛烈に書いて、福島に寄り、励まし、きっと励まされ、新幹線内で原稿完成させて即送信予定。夜は六本木で映画。 [8/25 9 21 facebook] ※おそらく原稿のことだと思われるが、午前中はフェイスブックにも断続的に投稿している。 11 13 東松島に向けて出発 飯舘、南相馬、いわきに立ち寄った? これから、震災後、みたび東松島から一気に飯舘、南相木、いわきへ。 私にとっては、見ることより、話を聞くこと、考え続けることが肝要。 被災や原発事故が、一方的な理屈のみのイデオロギー論争に使われている現状を、哀しく思う。 解決する道は必ず見つかるはず。 via TwitBird [8/25 11 33 twitter] ※「これから東松島から一気に飯舘、南相木、いわきへ」は、「仙台から東松島へ」とも「東松島から福島県へ」とも解釈できるが、「午前中は猛烈に書いて」との発言から、仙台を発ったのだと考えられる。 仙台から東松島への所要時間は、2時間弱である。これは北上になる。 東松島から飯館への所要時間は、3時間程度である。 飯館から南相馬への所要時間は、1時間程度である。 南相馬からいわきへの所要時間は、1時間半程度である。 いわきから郡山駅への所要時間は、1時間半程度である。 郡山駅から東京駅への所要時間は、1時間半程度である。 ※グーグルルート検索による概算 18 06以降のツイートはwebから 【謹告】町山智浩氏本人またはその子分と思われる人物が、自作自演で非実在の新・講談社(笑)に電話をかけ、その内容をネットに公開していることに関し、現実の講談社は「ありえないこと」と断言。当然。私はこういう捏造に対して我慢してきましたが、さすがにここまでやるとは大いなる人格的違和感。 via web [8/25 18 06 twitter] ※断続的に21時までwebからツイートしている。 21 50 バイク便が原稿回収。このときにはすでに自宅(もしくはバイク便が利用可能な場所)にいるとみられる。 あの方、どう見ても30歳にしか見えませんよね。1953年生まれですって。ずいぶん執拗に絡まれました。私の場合、読者やメルマガ読者がいるので、断るわけにもいかず、また全部チェックするわけにもいかず、全部承認してから、事が起きたら対象すればいい、というスタンスにしました。witterぬ比べたら、とても楽しく交流させてもらっています。あ、いまゲラのバイク便が呼び鈴ーー [8/25 21 50 facebook] メルマガは配信されなかった。 リビアについては本日のメルマガで書きます。アフリカも大きく発展し始めていますが、53カ国全てでは、もちらんありません。ソマリアの現実。私がケニアから立ち寄ったときも、このような幼児が沢山いました。国境なき医師団事務局の寄付集めには大いに問題ありますが、頼りになるのは現状では国境なき医師団であり、皆様の寄付です。 [8/25 19 00 facebook(携帯から)] 映画を見たかどうかはわからない。 早朝から原稿。昨夜は友人(仙台市在住の作家と映画監督)が遊びに来てくれた。寝室が二つあるので、名取市の監督は寝てっちゃった。午前中は猛烈に書いて、福島に寄り、励まし、きっと励まされ、新幹線内で原稿完成させて即送信予定。夜は六本木で映画。 [8/25 9 21 facebook] FXへの関心を隠し切れない 円安がすすんでいる。スイスフランもユーロも、差はあれど対ドルで安値。昨日は損失したので、岩手からドンとドルを買い足したところ、3時間で80万円の純益。レバレッジ高くしたのは正解。 そろそろ大台の勝負ーーいや、もうちょっとトレンド開始を待とう。いくら遊びでも、1億はねえ。 via TwitBird [8/26 1 24 twitter] 上記投稿の「昨日」が25日を指す場合、宮城を出発し、福島のほかに岩手にも行って帰京したことになる。 上記投稿の「昨日」が24日を指す場合、テレビのないこどもたちといた岩手、家族と必要なものを買い物した岩手でドルを買ったことになる 2011年8月東北漫遊記(8月24日) 2011年8月東北漫遊記(8月25日)