masato日記

おもったこといろいろ

インタビューゲーム会にいってきた

今回は相手の話をちゃんと聴けたような気がした。 どうしてだろう。 振り返ってみると、相手が話しているあいだ、なるべくそのまま聞いていた気がする。短く質問して、それにまた答えてもらう、ということを繰り返した。 でも正直にいうと、途中で口を挟みた…

Perl入学式大阪 第2回に行ってきた

7月22日(土)、Perl入学式大阪にサポーターとして参加してきました。 ことのいきさつは、YAPC福岡で@xtetsujiさんとid:tomchaさんとお話したときに誘っていただいたことがきっかけでした。(ありがとうございます!) 勉強会にサポーターとして参加させても…

コーヒーを飲むと仕事に身が入る気がする。じゃあたくさん飲んでも大丈夫か。

おとつい、1日コーヒーをはじめとしたカフェイン飲料の一切を断ってみた。ひと言でいうと、カフェインをとらないと、機敏さは失われるが、代わりに落ち着き度合いが増すという印象だった。 きのうはコーヒーは引き続き飲まなかったが、緑茶は飲んだ。緑茶に…

毎日飲んでるコーヒーを止めたらどうなるか、コーヒー断ちをやってみた。

いつからだったかはっきり思い出せないが、毎日3,4杯のコーヒーを飲んでいる。ml換算にすれば、1000mlは行かなくても500mlはいっていただろう。 最近発表された研究結果によると、コーヒーは健康に様々な好影響をおよぼすとのことであった。コーヒー本もた…

WEBアプリにはデータベースが必要だ。MySQLに入門する。

データベース使えるとできることの幅が広がりますよね、っていうか使えないと致命的ですよね。 ということで、MySQLを手を動かして覚えていきたいです! テーブルをつくる 早速、テーブルをつくってみよう! ということで「はじめてのSQL」にあるスキーマを…

オブジェクトをつくるのはblessだけじゃない。Class::Accessor::Fastをつかってみた

Perlでオブジェクト指向プログラミングをするとき、よくblessを使っていました。で、blessを使ってオブジェクトをつくる場合、コンストラクタやアクセサを自分で書かないといけません。そういうもんだと思ってたところ、これらを自動で処理してくれる便利な…

ローソンでヤッホーブルーイングのビールが買える

ここ最近、国産のクラフトビールが近所のスーパーでも買えるようになってきています。私は、長野県軽井沢のヤッホーブルーイングがだしているビールが好きでよく飲みます。 あるとき、東京のコンビニでいろんなヤッホーブルーイングが売っているのを見て、東…

全部ほしい。わたしは知らずに貪欲になっていたようだ。

ここ最近、隔月くらいの間隔でこの先3年間の自分の職業人生について考える、ということをやっております。きょうは、現状把握ということで、いまの自分をできるだけ客観的に振り返ってみる、ということに取り組みました。 職業人生は、あるいはキャリアプラ…

「仲良し」になる努力はいらない

会社のコミュニケーションは表面的だという見方がある。 自分もそういうものだと長いあいだ思ってきてたのだけど、そうでもない気がしてきた。 仕事をしていると、本音と建て前を分けざるを得ない場合が普段よりも多くあるので、そこは上辺だけの対応になる…

Excelマクロでかんたんにファイルを操作する(開く、閉じる、保存する)

ファイル一個なら、開くのも閉じるのもすぐできます。 でも、10ファイルとかになると大変になります。 そんなときに、かんたんで便利、サクッとつかえるマクロを紹介します。 開く 開きます。どのファイルを開くのかを決めるために引数を二つ渡してます。 Fi…

墓地の写真を撮ったら

帰宅途中、信号待ちをしているとき、右手の墓地に気づいた。たそがれどきで、非日常的な風情があったので写真を撮ってみた。 写真が液晶でみると意外なほどに陰鬱で、怖くなったのですぐに消した。 ここでなにかスイッチっぽいのが入った。 顔を上げると、風…

仕事を自動化したい人

仕事は、時にはやりたくないこともやらなければならない。 そんなときは、やりたくないそれをやる意味をでっち上げる。 肯定的な意味づけをしたいからだ。 たとえば、それ自体はおもしろくないけど、自動化して自分でやらなく済むようにする。これなら、その…

安心してだらだらしたい

今日は午後から何かをすることを放棄して、ひたすらにだらだらしていた。 具体的には、1時から6時すぎまで、畳マットの上に横になっていた。 扇風機はつけていたが、クーラーは消えたままだったので、暑いことには変わりなかった。 そもそもなぜそうなったか…

YAPC::Fukuokaに行ってきた

先週、7月1日(土)に福岡でYAPCというPerlのイベントがあり、参加してきました。今年3月にあったYAPC Kansaiにつづき、YAPCは2回目の参加です。 会場はLINE福岡。エントランスにはサリー、コニー、ブラウン(左から)。社内にカフェがあったり、おっしゃれ…

VBAを使ってOfficeからコマンドプロンプトであれこれやる

VBAからコマンドプロンプトでやるようなコマンドを実行することができる。 つまり、OfficeでもVBAマクロでもなく、外部プログラムを実行できる。 ということがわかって、いろいろできそうな気がしてくる。 ためしに、Kakashiを使ってExcelからセルに入力した…

書きためたVBAマクロをだす その1 Word 箇条書き番号テキスト化

職場でWordとかExcelとかをよくつかっていて、それなりにマクロを書きためている。のだが、管理がずさんなため、いつか一度かいたはずのコードがいざというときに出てこなくてあたふたすることがよくある。このままだと、この状況は一向によくならない。そこ…

「シャチ泳ぎ」という演算子の使い方を試してみた

Effective Perl第2版をKindleで読んでいる。 今日読んでいて「シャチ泳ぎ」というおもしろい名前の記法が紹介されていた。 たとえば、こういう感じのやつ。 my $hoge //= 'fugaa!'; ここではDifined-or演算子(//)の直後に代入演算子(=)が使われている。 感…

Perlワンライナー入門した

テキストファイルを扱っていて、ああ置換しないといかんやつがある…って発見してからのスクリプト書く気力がないことがよくあります。 そういうとき、全部手動でやったりして時間かかってました。そんなときにPerlのワンライナー。 一回やってみると、かんた…

あるべき自分というのは思考の中にしかない

禅では、過去も未来もなく、あるといえるのはこの瞬間だけ、といいます。 私は、快不快で判断して、これは良い、あれはダメとか決めています。 そして、気分が悪くなると、自分はこんな状態であるべきじゃない、これは不本意なことだとこころの中で不満を感…

帯分数の足し算、約分 5-5

約分のとき因数を探して候補の倍数を切り替えるのがてきぱきできるようになってきた。3とか5とか6の倍数が前より早くに浮かべられる。

テストは点数で評価できることが多い。当然、点数は高い方がよいこととされる。仕事の成果は、よいとか悪いとかいう基準で評価される。でも、好きとか嫌いで決まることもあるらしい。その「好き」「嫌い」は、作り手が好かれることを目指して作ったから、め…

食事の席でパートナー選びについてお話をしたなかでの一言。 「本音を言って共通点が見つかるようであれば、うまくいくかもしれないけど、我慢して合わせようとするとぐちゃぐちゃになるよね」 心当たりがある…まず、腹を割って意見を言える強さを養っていく…

最近早起きしている パート2

早起きってなんか「道徳」の匂いがしませんか。説教臭いというか。小さいころ大人に推奨というか、半強制された経験があります。ここでは、たんに感想を書いているだけで、「早起きは正義」とかいうつもりはありません。念のため。 4日前に「最近早起きして…

昼間に一人でビール飲むのやめる

昼にビール飲むと、酔が冷めて平常に戻るまでのあいだ微妙に体調が悪くて、その間、人生を無駄使いしてる感がつよい。 二周り年齢が上くらいの方たちが、休日の昼間からビールをやってる、あのくつろいだ感をイメージしながらだったのだが、その境地にはまだ…

「ノーマル」の境界がわからない

仕事中のできごと。隣の家の人から文句(?)を言われた。その時、会社の門の前でちょっとトラックを止めて作業をしていた。 「あなたの会社は、○○にあった近隣の人から評判が悪かったあの会社でしょう」 会社はその人のいう○○地区から引っ越してきた会社で…

ビール

最近、飲酒量が増えました。ほとんどビールです。 平均消費量:1.7缶/日(350ml)くらい。 飲み過ぎると翌朝身体が重くて、軽く後悔するものの、たいてい起床後1時間もするとそれなりに平気になってしまいます。 よって、反省してないようです。 強い苦み、…

らくだメソッドで割り算再入門した

「らくだメソッド」 「らくだメソッド」を2月から始めて、4か月目になりました。 これは、平井雷田さんが開発された学習法です。その中でぼくがやっているのは算数のプリントです。 問題は、かつて小学校でやったことと基本としては同じ(だとおもう)。 ら…

なんで相手から責められると落ち込むのかとか考えてみる機会があった。 仮説はこうだ。 過去に責められた体験のあとに嫌な出来事が続いた。 それを繰り返していく中で、他人に責められること→良くないことが起こる、という短絡が起きた。 実はこの良くないこ…

最近早起きしている

自分の時間が増える。早起きすると、いいことのひとつはこれかと思う。 朝5時に上司から仕事を振られることはない。メール来ない、電話こない、だれもいない。 全部自分の好きにできるのは、休日と似ている。 早起きすれば、毎日絶対的自分スペースをもてる…

ヒマだったので電車で移動してきた

今日の昼すぎからヒマな感じになってきて、とくにすることがなく、空白の時間を過ごしたいでもなかったので、何かすることを決める必要に迫られた。 近頃、時間ができると仕事の勉強とかを詰め込んでしまうのだけど、それはやらない。 そればっかやってると…

OmegaTの分節化規則: ピリオドの後で分節化するのを避けるには<正規表現の戻り読み>

OmegaTの分節化規則をもっと細かく調整してやりたい場合があります。 例えば、特定の文字列が先に来る場合は分節化したくない、など。 正規表現の先読み(lookahead)、戻り読み(lookback)を使えばそんな希望がかなえられます。 そういうことができるらしい…

高速ソート手法のシュワルツ変換はわりと簡単に実装できることがわかった

「すぐわかる Perlオブジェクト指向」からシュワルツ変換を取り上げます。 シュワルツ変換は、ソートを高速化するための方法です。 ソート対象の文字列の長さを最初に調べてインデックスをつくり、ハッシュの値にします。そのハッシュのキーにはソートする文…

Tie::Fileでテキストファイルをもっとかんたんに配列のように扱う

テキストファイルを全部読み込んで(または読込ながら)、文字列に処理を加える機会は多いと思います。 そんなとき、普通にテキストファイルを読みこむこともできるのですが、Tie::Fileモジュールを使うともっと簡単でした。 これもまたPerlクックブックで発…

Perlの組み込みモジュールText::Diffで差分をとってみる

シンプルなDiffツールのひとつとして 職場ではWindowsを使っていて、普段DiffをとるときはGUIなAraxis Mergeを使っています。1文字単位で差分を色分けして表示してくれるので、わかりやすく便利です。 とはいえ有料ソフトなので、だれでもが使えるわけではな…

Perl サブルーチンのレファレンスをつくる

テーマ サブルーチンをレファレンス化して実行してみる。 「わかりやすい Perlオブジェクト指向」第5章より。 サンプルコード my $codeRef = \&daikeiNoMenseki; my $menseki = $codeRef->(200,40,500); print "Area measurement: $menseki\n"; sub daikeiN…

VBA Dir関数でフォルダ内のファイルを取得する

よくやる処理だけど、全然おぼえられないので写経する。 Office TANAKA - Excel VBAファイルの操作[ファイルの一覧を取得する] Sub GetFiles() Dim buf As String Dim c As Long: c = 0 Dim fs() As String 'hoge以下にあるファイル一覧を取得したい Const P…

Perlで2次元ハッシュをつくる

ハッシュの中にハッシュを入れて2次元データ構造をつくってみる。 今回はハッシュのハッシュレファレンスにしてみた。 「すぐわかる Perlオブジェクト指向」(123ページ) サンプルコード use strict; use warnings; use DDP; my $hash_ref_with_hash; my $c…

Googleフォームから自動返信メールを送る

サンプルコード コードだけアップ。 メール本文のテンプレートをスプレッドシートから取得している。 スクリプトにハードコーディングすると変更しづらいのでこのほうがよいかと思う。 function sendMailFromForm(e) { // 件名、本文 var subject = "受付完…

正規表現で名前付きキャプチャを使う

正規表現パターンがある程度ややこしくなると、後方参照でキャプチャの順番を書くのが大変になります。 そこで番号ではなくて名前でキャプチャを指定できるという名前付きキャプチャを試してみました。 Perlでは(?<name>)とするとキャプチャに名前が付きます。 名</name>…

grepを使ってリストにマッチする要素が含まれるかを判定する

ループの代わりにgrepすると簡潔に書ける。 人の名前がはいったリストがあるとして、その中にFredさんがいるかどうかを確かめたい。 forループならこう書ける。 for my $person ( @people ) { next unless $person =~ /Fred/; $flag = 1; last; } grepを使う…

テキストファイルを一気に読み込む

Whileループじゃなくて一気に中身を変数にいれたいときはこうする。 my $str = do { open my $fh, '<', $file or die $!; local $/ = undef; <$fh>; }; local $/ = undefとやるとdoブロック内でのみ改行コードを無視できる。 readline関数が一度に読み取るの…

Perlで正規表現を使って日本語の文字列にマッチさせる

やりたいこと 日本語の文字列に含まれる任意の箇所にマッチさせたい。 はまったこと (、)をエスケープすることを忘れていた。 use Encode qw/encode/; # source text my $str = 'メッセージ "通信エラー"が表示されます。'; my $p = '通信エラー'; $p = enco…

AjaxをやるときのHTMLとサーバー側コードの書き方を整理する

Ajaxをやろうとして沼だったので、書いて整理したい。 jQueryで$.ajaxを使う一方で画面遷移が起こらないようにpreventDefaultでブラウザのリクエストを止めるか、そもそもHTMLでSubmitしないようにする必要がある。 NGパターン Ajaxなのに画面遷移してしまう…

ナビなしで高速道路を走れない

きのう名古屋市内の住まいから豊田市の実家に用事があり、急いでいたので高速道路でいった。 ナビに目的地をセットして車を出した。 しかしナビが示したのは一般道だった。走行中にルート変更できないヤツなので、ナビはあきらめて記憶とカンに頼って走るこ…

OmegaTの分節化規則: ピリオドの後で分節化するのを避けるには

OmegaTで英文を分節化するときにうまくいかなかったけど、今日発見があったのでメモします。 やりたいこと 英語で複数の文章を1文節とした場合にピリオドの直後に続くスペースで分節化しない。 NGケース: This. is. a. sample. sentence.という、通常ありえ…

夕食の量をへらしてみる

最近、春が来たということもあって、暖かいので、つられて延々と眠ってしまいがち。 週末なんて10時間以上も寝ている。二度寝、三度寝しているからなんですけどね。 春というのを別にしても、7時間は寝ないと調子が出ない。 もっと短い睡眠時間で元気に生き…

Text::XslateでTMを作ってみた

TMつくりが地味に大変 ある程度成果物がたまったら、訳文を翻訳メモリにして、再利用できるようにまとめておきたい。 CATツールにはOmegaTを使っていて、翻訳メモリはTMX形式だ。中身には原文、訳文、原文言語、訳文言語などが含まれていて、これらはXMLで構…

PerlのWAF Amon2で検索窓をつくってみる

Perlを勉強するかたわらAmon2でチュートリアル的なブログサイトを作っております。 さくらのVPSで。 さて、ブログを含めインターネットでよく見かける検索窓を自分のブログサイトにもほしくなりました。 そのあれをつくってみます。 HTML(index.tx) <form action="/search"> <input type="text" name="search_word"> <button type="submit" id="search">Search</button> </form>…

初めてのPerl 6章ハッシュ 練習問題1

プログラミングの参考書をなるほどなるほど、と読みすすめてみても、本を置き、書こうとすると出てこない。 本当に。 なので、まず書いてみようということで、どんどん手を動かしていこう。打ちながら、わからなくなったら本を開けばいい。 ということで、「…

初めてのPerl 練習メモ 第5章 入出力

なんでもブログに書くといいことがあると聞いて、雑でもいいから勉強の記録をUPしてみることにします。 今日は「初めてのPerl」の練習問題をやりました。5章 入出力です。 問1. やりたいこと 標準入力で入力した文字列をおしりから頭に向かって逆順にプリン…