3-1 カレントディレクトリのファイルリストを読み込み、名前をフルパスに変換して表示する。 #!/usr/bin/perl use strict; use warnings; use Cwd qw/ abs_path /; print map { q/ / x 4 . abs_path($_) . qq/\n/ } glob '*'; 問題文にはFile::SpecとCwdが役…

1章はイントロダクションなので2章から。 2-1 コマンドラインからファイル名のリストを受け取り、grepで1,000バイト未満のファイルを選択し、mapを使って先頭にスペース4文字、末尾に改行をつけて表示する。 #!/usr/bin/perl use strict; use warnings; # my…

発売予定日が20日なので届くの再来週くらいかなと思ってたらもう来た！

http://headlines.yahoo.co.jp/hl?a=20061011-00000043-jij-soci うちの大学こういう事件多いなぁ…。

別にプログラミングとか関係なく、ブラウザは何使ってるとか音楽プレーヤは何とかちょっとした文章を書くなら何とかそういうの。デスクトップ晒しスレとか大好き。デスクトップの様子から性格を読んだりとか楽しい。

VMware PlayerからcoLinuxに戻した。VMwareと比べるとかなり軽いなぁ。インストーラから入れられるデフォルトの状態からいきなりsidにアップグレードしたらなんかエラーでておかしなことになったので、なにもいじらずまずsargeにアップグレードしてからsidに…

何となく必要なさそうなやつ以外。スーパーpre記法のシンタックスハイライト機能ダイアリーにもつかないかなぁ。

たとえ本当に興味が無くても興味がないとわざわざ書くのは良くないな。本当に興味がないというわけではないけど。ってややこしい。

.xyzzy/siteinit.lの整理 VMware PlayerからcoLinuxに戻す（やっぱサービスで動かせた方が楽） 初めてのPerlの残ってる練習問題を解く（本自体は一週間くらい前に読み終えた） グループの日記とこことを分ける意味無いなと思ったのであっちの日記をここにマ…

この予想が見事に的中していた件について（泣）

キーワードから飛んでくる人おおすぎ。大人気ですね（顎の下の肉が）

あの顎の下の肉には非常に興味がある。

昼はサンドイッチ1パックかおにぎり2個。 帰りにゲーセンに寄らない。TEKKEN-NETも解約した。

朝日新聞デジタル：どんなコンテンツをお探しですか？

#!/usr/bin/perl use strict; use warnings; $_ = '1234567890'; tr/1234567890/abcdefghij/; print $_, "\n"; print int(rand(10)), "\n"; print "こんにちは\n";

ワンダとワッタって字面が似てるよね。

日付を見なくても今日の列がどこか確認できるようになったので、このアドレスを直接開いてみられるようになった。まともに動く保証はないので使う場合は自己責任で。 // ==UserScript== // @name FOX channel list highlight // @namespace http://d.hatena.…

左の時間部分の現在時間を強調して、その少し上へスクロールする。上の日付が、番組表は27時台まであるのに、24時を過ぎるとすぐ変わっちゃうのでそこもいじるかな。 // ==UserScript== // @name FOX channel list highlight // @namespace http://d.hatena.…

バグが。てことで上のはちゃんと動きません。

を書いてみた。自分以外に需要があるか激しく不明だけど。xpathを使う練習。んで、xpathを調べるのにはこの拡張を使った。 Not Found すげー便利。 // ==UserScript== // @name FOX channel list highlight // @namespace http://d.hatena.ne.jp/KGA/ // @au…

3-1 #!/usr/bin/perl -w chomp(@lines = <STDIN>); foreach (reverse @lines) { print "$_ "; }foreachが余計だった。 3-2 #!/usr/bin/perl -w @person = qw(fred betty barney dino wilma pebbles bamm-bamm); chomp(@lines = <STDIN>); foreach (@lines) { print "$perso</stdin></stdin>…

1-1 #!/usr/bin/perl print "Hello, world!\n"; 1-3 #!/usr/bin/perl -w @lines = `perldoc -u -f atan2`; foreach (@lines) { s/\w<([^>]+)>/\U$1/g; print; }<>で囲まれた部分の直前の文字が消え大文字になった。

2-1 #!/usr/bin/perl -w $r = 12.5; print "enshu:", 2 * 3.141592654 * $r, "\n"; 2-2 #!/usr/bin/perl -w chomp($r = <STDIN>); print "enshu:", 2 * 3.141592654 * $r, "\n";模範解答では円周率の方を変数に入れてた。定数だからか。 2-3 #!/usr/bin/perl -w cho</stdin>…

さんざん既出だろうけど、短くすっきり書く練習ということでひとつ。 // ==UserScript== // @name Get YouTube flv // @namespace http://d.hatena.ne.jp/KGA/ // @author watta // @description Create link to download flv. // @include http://*.youtube…

MELON LOUNGE Vol.2 ゲスト決定！ DJとかもやる人たちなんだろうか。早速コメント欄にファンとおぼしき人の書き込みが。

先日書いた通り初めてのPerlを読み始めた。JavaScriptの数倍の早さで読み進んでる。今8章。トレーニングコースのテキストが元になっているだけあって内容がわかりやすく、しかも文章がかなり読みやすい。少し不満なのは練習問題が少ないことかな。そこで、練…

mixiニュースでハロプロの話題が出ると「モー娘ってまだいたんだ…」って書くやつ mixiニュースでアイドルの話題が出ると「どうでもいい」って書くやつ どの記事かは忘れたけど浜崎某の発言を知ってか知らずか「モーどうでもいいよ娘」と書いている人がいて吹…

任天堂株式会社 Wii Preview 64→GCの進化の百億兆万倍くらいGC→Wiiは進化してると感じられる。操作性がどうなのかは触らないとわからないけど、上の岩田社長のプレゼン見ると感動しまくれること請け合い。

JavaScript作者: デイビッドフラナガン,David Flanagan,村上列,垰井正雄,安藤進出版社/メーカー: オライリー・ジャパン発売日: 2000/12メディア: 単行本購入: 2人 クリック: 60回この商品を含むブログ (102件) を見る ようやく読み終わった。だらだらと読ん…

Apple - Colorful iPod shuffle with VoiceOver, playlists, and more. 小せぇぇぇ！！欲しいかもと思ったけどこれってドック必須ぽいな。しかしこの大きさでアルミで1GBで9800円は訴求力ありまくりだなぁ。いつまでも外出時に音楽のない生活をするのも寂し…