僕は7月に転職した。 前にいた会社はそこそこの大きさ100人弱、一時期は「ベンチャー企業」として 成功をしようとしていたが、この不景気の波に大きく飲まれて会社は弱体化。 給料は通常通り支払われるものの、 役員クラス＆中堅がバシバシ抜けていく状態になっていた。 この状態になったのは僕が会社に入って3年目のことだったが、 別にこの状態になったから会社を退職したわけではない。 ではなぜ会社を退職したのか？ 「日本のプロジェクトは他会社からの寄せ集めで作成されることが多い！」 僕がかかわったプロジェクトは7つだったが、 自社での開発たったの1つ。 他は常駐開発という名の派遣だった、 最初は何も疑問を抱かなかったけど、これってなにがおもしろいの？ 常駐先で知り合いになれる人が良い人だったとかそんなことはおいておいて、 なんか会社が金額と見合ったプロジェクトを見つけてきて面接、 通ったら3カ月〜半年程

Perlで記号プログラミング - TAKESAKOのはてな出張所 に対しての挑戦が。 id:TAKESAKO に挑戦してみる - yujiorama の日記 面白そうなので自分もやってみる。 #!/usr/bin/perl $^='-^\\\\%+"<&]\\$=/**:.](%_,//;<#)\\^_%$=]."\\&=\'?/:$?({/!_})(([=##!-^/\'%_#"]{"?~<]$\':$;#"&]`<#:?', $^_='_~`||`]@^_`"./,))<%?%<"(?<_}+^.;#^^@@{`:,|[{_``__[]_;/@-<~<;^.[^~::<&""[_`}*.[?]+[?!|-_`@[*);//(]?",=_+?]{{#`,@@<*@[{|/`.@#@[""[+_}[?__(?.+[_}<.?_"{>|!{}@@^_,{<', $^_^='{>][[[;/,

世界ふれあい街歩きという、世界各国をステディカムを持って歩くだけという神番組があって、大好きなのでよくみてるんだけど、昨日放送してたシドニーの回で、歩いてる街の人（観光客？）にインタビューしてるシーンがあったんですよ。おもわず写真とっちゃったんですがね、 これ、是非拡大して見てほしいんだけど、「TシャツにYAPCってかいてあるよ！」 まさかこんな旅番組のオーストラリアの回でPerlハッカーを見るなんて！ で、これ誰なんだろうね。

404 Blog Not Found:perl - myとourとscopeと みんな難しく考えすぎです。 （例外については後で考えることにして）とりあえず以下の基本をおさえておけば混乱することはないと思います。 ■ our 宣言について our はグローバル変数をスマートに使用するための宣言です。our は use vars と等価と考えてください。 our $var; は use vars qw($var); と等価。 our $var = 1; は use vars qw($var); $var = 1; と同じ動きをするもの、と覚えておけばOKです。それ以上の違いは基本的にないと考えて構いません。 ひとつ実用上の違いがあるとすれば、our は Perl 5.6 以降の built-in なのに対して、use vars は vars.pm の Perlスクリプトで実装されています。し

2008年01月10日10:15 カテゴリLightweight Languages perl - myとourとscopeと うーん、微妙に違います。 local と my - IT戦記 our 名前をソース上のスコープに限定. local 値をスタック上のスコープに限定. my 名前と値の両方をソース上のスコープに限定 なら、理解しやすいと思います＞＜ 以下のコードを見てみましょう。何と表示されるでしょうか。 { package Foo; our $bar = 'baz'; } our $bar = 'drink'; warn $bar; warn $Foo::bar; 「ソースに限定する」あるいは「ファイルに限定する」のだとしたら、この挙動はありえないはずです。 ここで、Perlのスコープに関するルールを覚えておきましょう。すっごく簡単です。 {}は、問答無用でスコープを作る = b

すっきりした＞＜ - 宇宙行きたい このエントリの our 名前をスコープに限定. local 値をスコープに限定. my 名前と値の両方をスコープに限定 は、ものすごく分かりやすいし正しいと思うんですけど、たぶん昔の僕だったら理解出来なかったかもしれません＞＜ our 名前をソース上のスコープに限定. local 値をスタック上のスコープに限定. my 名前と値の両方をソース上のスコープに限定 なら、理解しやすいと思います＞＜ 今でも local 宣言のあるスコープ内で関数呼出しがあると混乱するの僕なのです＞＜ 追記 弾さんが反応してるので、追記 404 Blog Not Found:perl - myとourとscopeと えっと 僕の「ソース上のスコープ」という言葉が良くなかったです＞＜ごめんなさい そういう意味で言ったわけではなくて、「ソース上の（なんらかの記述の位置で決まる範囲の

1 :爆笑ゴリラ ★ 2022/01/23(日) 20:11:09.18 CAP_USER9.net 1/23(日) 19:57 オリコン えなこ、制服×猫耳でウインク　ファン歓喜「これは反則」 えなこ （C）ORICON NewS inc. 　コスプレイヤーのえなこが23日、自身のインスタグラムを更新。猫耳をつけ、下乳が

複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに

2007年05月28日03:30 カテゴリ一日一行野郎 Code Snippets - reduce(l|r)を実装汁! FizzBuzzにももうええかげん食傷してきたので、次のネタをないかと思ったら、yuguiさんがtwitterで私を登録したので、ごぶさた〜と思ってblogを見に行って格好の素材を(再)発見したという前回までのあらすじ。 inject + Symbol#to_proc = fold @ 2007年05月 @ ratio - rational - irrational @ IDM (1..10).inject(&:*) => 3628800 うーむ。素晴らしい。 reduce(l|r) というわけで問題。reducelとreducerを実装せよ。制限時間はあわせて10分。ただし、reducelとreducerは、Haskellにおいて次の挙動を示すものとする。 *Main

Twitterをはじめると、mixiの日記を書かなくなることが多い？なんて記事が出てくるくらいTwitterには中毒性があるようで、なら1日のTwitterをMixiに投げたら良いじゃん。それPla。というわけでPlaggerでやってみた。＜ Twitterでid:otsuneさんがいってたのをパクリました。すいません。 Frepaへの投稿ならPlagger で Twitter のステータスを Frepa に投稿 - HsbtDiary (2007-04-22)で良いみたいなので、まねして書いてみたら1Twit*1が1つの日記になってしまうので、1日分を夜にまとめてMixiへというのには向いてない。エントリをまとめる方法がわからなかったのでPlaggerのFilterを書いてみた。 Plagger::Plugin::Filter::AssembleEntries.pm （Plagger 0

2007年04月24日18:00 カテゴリLightweight Languages perl - parser書くならgoto しかし、本当の本当の本番はこちらだったりする。 404 Blog Not Found:perl - POO と goto Perl 5のgotoは、仕組みを理解した上で使いどころを誤らなければかのごとく強力なのである。 前回の例では、それでも"One of many ways to do it"で、「知らなくても困らない」レベルのものであった。しかし、今回の例は、gotoがなければ本当にきつい。 以下の例を考えてみよう。 入力: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 出力: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f

2007年04月23日22:45 カテゴリLightweight Languages perl - 万能なnewの書き方 Perl 5のOOは、慣れてしまうと簡単だ。 継承とか考えずに、普通にクラスを作りたければ、必要なのは以下の二行だけ。 package Klass; sub new { bless {} }; これだけでは何もできないので、とりあえずnameというアクセサーを追加してみる。これだけ。 sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } しかし、上の形式だと、継承をサポートしていない。だから、 package Klass; sub new { bless {} }; package Klass::Sub; our @ISA = qw/Klass/; # new

2007年04月21日20:30 カテゴリYAPC::Asia 正規表現を//で囲む理由 ktkt すでにYouTubeでご覧になった方も少なくないかと存じますが、完全版がGoogle Videoにうpされていたようなので。 にぽたん - 正規表現信者の憂鬱 - Google Video Enjoy! (Nipo)dan the Regular Expressionist 「YAPC::Asia」カテゴリの最新記事

Dan the suspenders in YAPC::Asia 2007

というわけで、Larry Wallの来日とともに、いきなり連載スタートです。3月29～30日に開催されたYAPC::Asia::2006に合わせて5年ぶりに来日したLarryは、実は我が家の賓客でもありました。またとない機会なのでインタビューしてみた次第。なお、Larryが日本語で話した部分は《～》でくくっています。 撮影：武田康宏 弾（筆者⁠）⁠：日本語はどれだけ話せるのですか？ ラ（Larry⁠）⁠：《簡単に会話を遅くします。でもペラペラじゃない。5年かけて少しずつ勉強しました。でも、練習することがあまりできません。本だけで簡単に…》 弾：ひょっとしてまだ1977年版Honda Accordに乗っているんですか？ ラ：はい。もう29歳です。廃車にすると、環境条例でカリフォルニア州が500ドルくれるのですが、まだ乗ってます。 弾：最近お気に入りのアニメは？ ラ：《あずまんが大王！ ちよち