perl - 勝手に添削 - ニコニコ動画ダウンローダー : 404 Blog Not Found
2007年08月04日04:30 カテゴリLightweight Languages perl - 勝手に添削 - ニコニコ動画ダウンローダー スライドもなんとか上がったので、リハビリもかねて久々の添削。 Perlでニコニコ動画のflvとコメントxmlをダウンロードする (Yusukebe::Tech) さんざん既出かもしれないけどPerlでニコニコ動画のflvファイルとコメントのxmlファイルをダウンロードするスクリプト。まずは結果から。 #!/usr/bin/env perl # # $Id: nicoget.pl,v 0.1 2007/08/03 19:26:19 dankogai Exp dankogai $ # original: http://yusukebe.com/tech/archives/20070803/124356.html # use strict; use wa
責任は現金払いじゃないよ : 404 Blog Not Found
2007年07月21日01:00 カテゴリLove 責任は現金払いじゃないよ これほどおじさんには正しくて若人には正しくないのに、その逆に誤解されていることはないのではないか。 Bad dreams also come true - 自分の童貞についてちょっと語ってみる 少なくとも自分でやったことの責任を取れないうちにやるのはちょっとおかしくねぇか？と思ってるんです。だって、最悪の場合相手が妊娠しちゃうわけですよね？ そうなったとき出産or中絶のどちらをするにせよ、結局自分（たち）だけでは責任取りきれないですよね。責任というのは、実は「見込み」でいい。 今は負いきれなくても、将来それを負えるようになるという見込みがあればいい。 家一つ買うのだって、別に家一軒分の金が手元にある必要はないではないか。 そして責任というのは、「見込み」まで込みである以上、当然若ければ若いほど「頭金」は少なくて済
404 Blog Not Found:怠翻 - 読書を一生の習慣にするための14の心がけ
2007年06月26日22:00 カテゴリ翻訳/紹介 怠翻 - 読書を一生の習慣にするための14の心がけ 本の虫にふさわしい話題。 14 Ways to Cultivate a Lifetime Reading Habit - lifehack.org Set times - 時間割りに読書を設定する。 一回5分から10分程度の読書のための時間を、一日数回作っておきましょう。この時間は、何が何でも読書以外は何もしないという時間です。食後と就寝前にその時間を割り当てれば、一日40分は読書専用の時間になります。 本中の訳注:私の一日平均の読書時間も、実はこんな感じだったりします。フィクションかノンフィクションかによっても違うのですが、一日平均５冊程度でしょうか。ただし、「ながら」も出来るので、意識して時間を作るというところまでは言っていません。 Always carry a book - 本を
404 Blog Not Found:やっちゃうとバカにみえちゃう英文法の間違い10選
2007年05月17日17:30 カテゴリLogos やっちゃうとバカにみえちゃう英文法の間違い10選 元ネタはこちら。 10 Grammar Mistakes That Make You Look Stupid 「グッドラッパー英語」でやろうと思ったけど、そちらはオリジナルねたにしときたいので。 でも例文はすべて書き下ろし。 Loose for lose この二つ、発音も違うのにとりちがえをかなり見かけます。looseは「ルーズソックス」のルーズですが発音は「ルース」。濁りません。loseは「負け犬(loser)」のloseで、こちらが「ルーズ」。時間にルースな人は信用をルーズします:-)。 Wrong:If you are lose on time, you loose credit. Right:If you are loose on time, you lose credit. I
OS X tips - ファイルの開き方 : 404 Blog Not Found
2007年04月29日15:00 カテゴリTips OS X tips - ファイルの開き方 Mac OS Xがファイルとアプリケーションをどう関連づけているかに関しての備忘録。 普通に開く この場合、Finderからダブルクリックすればよいのは、我が家の娘達も三歳になる前から知っている。Windowsでも同様なのはご存じのとおり。 アプリケーションを指定して開く この場合、使いたいアプケーションのアイコンにドラッグ＆ドロップするか、ctrl-クリックして[Open With...]メニューを出せばよい。マウスボタンが複数ある場合は、右クリックでもOK。これまたWindowsと同じ。 openコマンド Mac OS X ならでは、というと、openというコマンドがある。これを使うと、shellからFinderと同じことができる。 % open Usage: open [-e] [-t] [
自分がおっさんであることを自覚させられる時 : 404 Blog Not Found
2007年04月23日19:00 カテゴリLightweight Languages 自分がおっさんであることを自覚させられる時 全国3000万のおっさんのみなさん、こんにちわ。 おっさんの小飼弾です。 みなさんは、どんな時に自分がおっさんであることを自覚させられますか？ よくお読みください。「自覚する」ではなく「自覚させられる」、です。 つい先ほど小用をすませに近くのコンビニに行ってきたのですが、ご存じでしょうか？コンビニのレジでは、金額だけではなく客の性別と年齢を入力していることを。コンビニでバイトしたことがある方はよくご存じだと思いますが、見た目性別と見た目年齢をいっぺんに入力するキーが、たいていのコンビニのレジにはついています。四半世紀以上前からあったのですが、今もそうなのですね。 で、私の応対をした店員さんは、新人の女の子。店長らしいおにいちゃんが手取り足取り対応を教えていました
404 Blog Not Found:perl - warn()とdie()の振る舞いを変更する
2007年04月12日01:30 カテゴリLightweight Languages perl - warn()とdie()の振る舞いを変更する こういった場合の対処法です。 shag の日記 - inetd 経由で起動されても peeraddr は取得可能 ところで Perl で inetd 起動のスクリプト書くと STDIN から入力を読み取って, STDOUT に出力すれば良いだけなんだけど、実は STDERR も inetd を通してネットワークストリームに出力されるので use warnings; する人は注意が必要です。これは、例を見てもらうのが一番速いでしょう。 #!/usr/local/bin/perl use strict; use warnings; use Fcntl; # for sysopen our $LOGFILE = 'warn.log'; warn $0;
twitterはじめてみた : 404 Blog Not Found
2007年04月11日20:30 カテゴリiTech twitterはじめてみた というわけで、遅ればせながらTwitterをはじめてみた。 Twitter Twitter / dankogai Twitter / dankogai - with friends 一言で言うと、インスタントメッセージのみのSNS。でもSNSでは「ともだち」になるのに相互承認が必要なのに対し、片方向承認、それもクリック一発で「ともだち」になれる点がすごいというかなんというか。あっという魔に50+人の"friends"が出来たのにはあぜ〜ん。もっともほとんどblogなどですでに知っている人でもあるのだが。 APIも竹を割ったように簡単で、コマンドラインツールも簡単に作れた。 Twitterがらみの物置 twget twpost ソースを見れば明らかだけど、使い方は以下のとおり。 ~/.twitterに以下のYA
404 Blog Not Found:Apache - proxyを使って人様のアクセスをログする
2007年04月07日22:15 カテゴリiTech Apache - proxyを使って人様のアクセスをログする そんなPHPなんて使わなくても、Apacheだけでできますがな。 企業イントラネットのちょっとグロイ小話4本*ホームページを作る人のネタ帳 かなり簡単な構造です。 検索ボックスから http://(自社グループウェアドメイン)/get.php に対して、検索ボックスからクエリを送信する。 ここで、サーバーに検索キーワード履歴を保存します。 その後、何事もなかったかのように header("Location: http://www.google.co.jp/search?q=".$q."&hl=ja&ie=EUC-JP"); をPHPに書き込んでおくだけで、Googleの検索結果に移行する。 以下はApache 2.0.xにおける方法ですが、1.3.xでも2.2.xでも違いはほ
404 Blog Not Found:perl+apache - LWPを責めないで
2007年04月10日18:00 カテゴリLightweight LanguagesBlogosphere perl+apache - LWPを責めないで これはPerl Mongerとして一言言っておかねばなるまい。 Googleにもアクセス拒否され、スパム送信源と化した「libwww-perl」とは？ - GIGAZINE スパム対策をして気がついたのですが、どうやらスパムトラックバックを送信してくるリモートホスト（IPアドレスなど）はバラバラであっても、ユーザーエージェント、いわゆるブラウザの名称部分に「libwww-perl/5.805」というように「libwww-perl」と入っているものが多く、結果として、Googleなどは検索結果ページに対してこのユーザーエージェント名の一部「libwww」が含まれているとアクセス拒否しているようです。LWPことlibwww-perlは、We
Apache - ホットリンクを禁止する : 404 Blog Not Found
2007年04月08日16:30 カテゴリiTech Apache - ホットリンクを禁止する それでもホットリンク禁止にしたい人向け。 404 Blog Not Found:To hot-link or not to hot-link, that is NOT the question ちなみにWebサーバーの設定でホットリンクを謝絶するというのは、明示の形体の一つである。以下のページからは、ちゃんと画像が見える。 How to Prevent People from Hot-Linking Your Contents しかし、画像をホットリンクすると、この通り。 やり方 httpd.confないし.htaccessで以下のように設定するだけ。 Document Root: SetEnvIfNoCase Referer "^http://www\.dan\.co\.jp/\~dankog
404 Blog Not Found:perl - "STR" ^ "ing" eq "::5" # 文字列のXOR
2007年03月13日02:00 カテゴリLightweight Languages perl - "STR" ^ "ing" eq "::5" # 文字列のXOR perlにも昔からInline::Cというモジュールがありましたが、こちらの事例ではご利益にあずかれません。 netswitch! | RubyInlineがすごい 長さ10000の文字列同士のxorを1000回取る、というプログラムでテスト。 なぜなら、perlでは文字列どおしのXORが最初からサポートされているからです。 本当かどうか、試してみましょう。 % perl -le 'print "STR" ^ "ing"' ::5 % perl -le '$a="UPPERlower"; print $a ^ " " x length $a' upperLOWER 実はperlではxorに限らず、ビット演算は全て文字列に対応し
Google AnalyticsのAnalysis、そして滞在時間のウソ : 404 Blog Not Found
2007年03月11日17:00 カテゴリiTech Google AnalyticsのAnalysis、そして滞在時間のウソ 簡単で奇麗で便利なGoogle Analyticsですが、閲覧時間に関しては信用しない方が賢明です。 あとで読む いつまでたっても あとで読む - FIFTH EDITION これ見ればわかりますが、9割以上のアクセスが、１０秒以内で、うちのサイトを離脱しているわけです。（１０秒しか閲覧してない） そのことを示す前に、Google Analyticsがどんな仕組みで動いているのかを見てみましょう。 Google Analyticsに加入すると、解析したいサイトに、以下のJavaScript Codeを埋め込むよう言われます。 <script src="http://www.google-analytics.com/urchin.js" type="text/jav
404 Blog Not Found:勝手に添削 - Ajaxでデバッグしよう - ＠IT
2007年03月07日11:00 カテゴリLightweight Languages 勝手に添削 - Ajaxでデバッグしよう - ＠IT 記事そのものはまあいいのだけど、CGIの部分があまりにひどいので。 Ajaxでデバッグしよう - ＠IT 私の仕事の現場ではJavaを開発言語として使用することが多いので、JSPやServletとして実装していますが、今回はレンタルサーバでも利用しやすいようにPerlで作成しました。以下のソースを参考にしてください。 Before まあご覧下さい。前世紀末においてすら[これはひどい]レベルです。著者はJava屋さんとのことなのでその点を甘く見ても、一体何を参考にして書いたのか是非お聞かせください。 local %params; # エージェントはGETメソッドだけを使用するのでPOSTは考慮しない # リモートログエージェントから送られてたログ情報を環
perl - CSVはText::CSV(_XS)?で : 404 Blog Not Found
2007年02月16日14:30 カテゴリLightweight Languages perl - CSVはText::CSV(_XS)?で このことに異論はないのだけど、 CodeZine：PerlによるCSVファイルの高速集計（CSV, 入門, Perl） 特によく利用されるテキストファイルとして、CSV形式が挙げられます。CSVを集計したい場合、Excelに読み込ませて集計関数やマクロを駆使しているという人も多いかと思いますが、Perlを利用することで、高度な集計作業を簡単かつ高速にできます。 これはちょっと問題。 my @d = split(/,/, $_); 実はCSVというのは以外と扱いにくいフォーマットで、例えば"I, Robot","Robots and Empire"とあったら、I, RobotとRobots and Empireと取り出すフィールドは二つでなければならな
TSV vs CSV : 404 Blog Not Found
2006年05月27日00:20 カテゴリLightweight Languages TSV vs CSV その通りです、otsuneさん。 404 Blog Not Found:たった一つの冴えたMicrosoft製品 ItoGさんのコメント typo: tsv → csv otsuneさんのコメント >typo: tsv → csv tsvって「タブ区切りテキスト」のことだよね？ 表計算をtextとしてpasteするとTSV(Tab Separated Values)に、ExcelでText FileにsaveするとCSV(Comma Separated Values)になるのですが、私はTSV派です。 なんといっても、TSVの方が、圧倒的に処理が楽なのです。CSVは、実はきちんと処理するのが難しく、「CSVを処理するにはどうしたらいいの?」というのはPerlに限らず、スクリプト言語の
プログラマーって本当に労働者なのか? : 404 Blog Not Found
2007年02月17日05:00 カテゴリCode プログラマーって本当に労働者なのか? X=労働者ならこれは正しいし、プログラマー⊂労働者なら元の文も正しい事になるけど、プログラマー⊂労働者って本当なのだろうか。 人月の神話 Brooks,Frederick Phillips,Jr. 分裂勘違い君劇場 - プログラマの労働条件を過酷にしているのは、過酷な労働条件を受け入れるプログラマです を改変 本来、Xは、サービス残業を強要されたら、それを拒否すべきです。 あらかじめ無理なスケジュールだとわかっているプロジェクトも、拒否すべきです。 安い賃金で働くことも拒否すべきです。 確かに、労働者を「労働に対して対価を受け取る人」と定義するなら、アスリートもプログラマーも立派な労働者なのだけど、「その労力に比例して対価を支払う」という狭義の労働者モデルをあてはめるには、労力と生産の関係があまりに非
perl - for(1..1e10) と Iterator : 404 Blog Not Found
2006年12月22日11:00 カテゴリLiving on the Edge perl - for(1..1e10) と Iterator いい点に気づかれました。 perl の配列とメモリー: 国民宿舎はらぺこ 大浴場 面白いな、と思ったのは、上記リンク先の話題を手元で試していたときに、 @data = map { rand 10 } (1..1e7); $sum += $_ for @data; だとメモリーを喰いまくるのに、 $sum += rand 10 for 1..1e7; だとほとんどメモリーを喰わないこと。 実は、foreach($from..$to)は、Perl 5.005以来最適化されています。 perl5005delta - what's new for perl5.005 - search.cpan.org foreach (1..1000000) optimiz
perl - Tie::Array::Pack 0.01 Released! : 404 Blog Not Found
2006年12月22日07:00 カテゴリLightweight Languages perl - Tie::Array::Pack 0.01 Released! これを見ていたたまれなくなったのでこさえました。 みかログ: Mathematicaプログラミング 100万要素で0.4秒くらい．1000万要素にしたらスワップが入ってしまいしばらく待っても終わらなかったので中止． Tie::Array::Pack at CPAN (will be available soon) http://www.dan.co.jp/~dankogai/cpan/Tie-Array-Pack-0.01.tar.gz (available now!) NAME Tie::Array::Pack - An array implemented as a packed string SYNOPSIS use Tie
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
404 Blog Not Found:正規表現を//で囲む理由