まあアルゴリズムはperlでFizzBuzz - だるろぐ跡地なわけだが。 ary3 = ['fizz', '', ''] ary5 = ['buzz', '', '', '', ''] (1..100).each do |i| v1 = i % 3 v2 = i % 5 #res = ary3[v1] << ary5[v2] res = ary3[v1] + ary5[v2] if res.length == 0 print i…

俺はほんの少し非常に少しつま先程度の少し同僚たちよりプログラムとかが出来るだけで、「アイツは出来る奴だ」とか「さすがだな」とかいうのは勿体無いというか身の丈に合わないというか期待しすぎというかそんな感じなんですよええ。 同僚たちと大差無いん…

何か見たこと無いのが出た。 % perl -le 'print ~0' 4294967295 % perl -le '$hoge = ~0; print $hoge' 4294967295 % perl -le '$hoge = ~1; print $hoge' 4294967294 % perl -le '$hoge = ~2; print $hoge' 4294967293 % perl -le '$hoge = ~3; print $hoge…

重い・よく落ちてる・不評大好き（はてなスターとかね）なはてなですが。テキストリンク (Text Link) – Firefox (ja) 向け拡張機能を入手 を自分は確かにブックマークしている。が、 はてなブックマーク - firefoxに関するfoosinのブックマーク をautopager…

何かこないだアップデートしてから動かなくなった。 バージョン 2.0.2008052801にしたら動いた。

\nじゃ駄目だと思ったらc-v returnだった。 ^M って記号が出たらそれが改行。

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer DWORD NoRecentDocsMenu 値は1

コンテキストメニューともいう。 regsvr32 /u wmpshell.dll

perl Parent.pm package Parent; use strict; use warnings; use base qw/Class::Accessor::Fast Class::Data::Inheritable/; use Data::Dumper; __PACKAGE__->mk_accessors(qw/name/); __PACKAGE__->mk_ro_accessors(qw/for_read/); __PACKAGE__->mk_wo_acc…

モダンPerl入門を早速読んだ。 Test::MoreよりTest::Baseを取り上げるべきでは p184 正というか正確に言うと真では 「ある数字nが偶数だったら正を返す」 use strict; use warnings; sub is_even { my $n = shift; return $n % 2 == 0; } qrをrefしたらRegex…

<button type="button" value="今日" onClick="setValue('today')">今日</button> <script type="text/javascript"> <!-- function setValue(type){ if (type == "today"){ document.getElementsByName("day")[0].value = "[% today %]"; } } --> </script> ほぼ初めてのjs。hello worldみたいなのでも動いたときはガッツポーズするくらい嬉しかったなあ。

プログラムに触れて数年。井戸の中の蛙だった大学時代を経て、社会人へ。 いやー社会広い広い。同じ歳からプログラム始めたのにあんなことやこんなことが出来る人、同じ歳なのに能力が比べ物にならない人、更にネットの向こうを見ればきりが無い。 んで凄い…

備忘録。404 Blog Not Found:perl - $scalarの中身が数値か否かを判定する 実は、これが一番高速だったりします。 sub is_a_num { $_[0] != 0 } よし確かめてみよう。ネタを見つけたら試す俺子供 #!/usr/bin/env perl use strict; #use warnings; use Benchm…

敷居低いよ！って言われても過去のレポート見たら皆凄いことやってるので尻込みする俺へたれ そもそも作りたいものがないってエンジニアとしてどーなのか俺。仕事では「こんなん作ってー」を受けてるだけだからなー

perlのインタラクティブシェルのperlsh便利ーって言ってたら、otsuneさんからDevel::REPLを教えてもらったので試した。 perlshはモジュール作者のデバッグツールとか聞いた。だからモジュール入れただけじゃperlsh使えるようにならないとか。 そんならソース…

これまではViewはMyApp::View::TTしか作ったことが無かった。csv出力することになったので、 package MyApp::View::CSV; use strict; use base 'Catalyst::View::Download::CSV'; 1; を作ったところ、MyApp::View::TTのprocessにいかなくなった。 多分、明示…

rubyでirbがあるんで、perlにもインタラクティブシェルあるだろーと思ったらperlshを見つけた。 使うまで # cpan cpan[1]> install Term::ReadLine::Gnuこのソースの中に含まれてるので手動コピー。どうせならWeb::Scraper入れたらscraper使えるようになるみ…

catalyst使って色々できるようにはなったけど、自分のコードに自信が無い。 出来る人はどこで何やってんだろか？

webをうろついてると、MyApp::SchemaとかMyApp::Model::DBICとかにDBのアドレスをべたっと書いてる人が多いんだけど、開発環境と本番環境が同じなんだろうか？サンプルで書いてるだけ？ うちではmyapp_devel.yamlとmyapp_production.yamlを用意してCatalyst:…

追記 誤解でした -> http://d.hatena.ne.jp/foosin/20090712/1247367730 モバイル開発してたら気がついた。ただでさえモバイルは主要3キャリアの色んな仕様がバラバラだが、中でも最低に酷いあの、 guidってパラメータつけなければ端末IDが取得できない クッ…

catalystで定数の扱い方に悩む。簡単なのはuse constantだが、 package MyApp::Constant; use strict; use warnings; use base "Exporter"; our @EXPORT = qw/ SCA ARR HAS /; use constant SCA => 'hoge'; use constant ARR => qw/hoge huga foo bar/; use …

「歯ぁ食いしばれぇ！」って言うから身構えたら相手がデンプシーロールしてた 日本で会社クビになったらオーストラリア行けばいいよ 10時に起きて「やべえ寝過ごした！起きろおい！日曜が終わっちまうぞ！」って起こそうとしたら「俺の日曜日は永遠だぁ」と…