  |
はてなキーワード: PODとは
紛失したと思っていたi Pod touchは会社の自席に置き忘れていただけだった。
機内モード解除し、携帯にWiFi接続したところ、紛失アラーム(サウンド再生)がけたたましく鳴った。
すでにパスロックが外れた状態なので、音の止め方が分からない。
iPhoneを探すに接続しても止まらなかった。ホームボタン長押ししたり、あれこれやった。どうやって止めたかは覚えてない。
止めると、紛失モード用のメッセージが出た。アラーム音の最中にもでた。
「このデバイスは紛失されたものです、持ち主に連絡してください 090-****-****」
誰かが拾った場合、すぐにネットワークにつながる状態でなければサウンド再生はしない。紛失モードのメッセージも出ない。
機内モードの場合は拾った人がパスコードを突破し、WiFi等のネットワークにつなげた場合に、紛失モードのメッセージが表示される。
YouTubeやフォト蔵なんかに動画や画像を投稿したいとふと思い立つ。
よく考えたら、ちょっとした時に織り出して撮影するとしたらカメラでは不便だ。
よってI pod touchにすることにした。
当方はガラケーを使っており、パソコンでのネットはWiMaxだ。
WiMaxを持ち歩いて、I pod touchをやろうと考えている。
あるいは、I pod touchで撮影し、それを家でアップロードすればいい。
ヤフオクを見てみたら、かなりの数のI pod touchが出店されており、
機種の世代によるが、大体最大12000円ほどあれば良さそうなのが買えそうだった。（たまに高いのもあるが・・・プレミアだろうか？）
しかし、いかんせん私はヤフオクを利用するのが久しぶりすぎる。
２週間ほど前の日経で「地方発・地方を拠点にしたミュージシャンが増えている」
というネタがあった。
その背景としては、
「地方はクルマの移動が多いので、カーステレオで音楽を聴く、というライフスタイルが
定着しているのではないか？」という憶測が書かれていた。
確かに、首都圏では、ケータイ片手に通勤というのが日常光景で、
その気になればＩpodで音楽通勤というのもできなくはないが、サウンドレスな
ケータイ画面の方が楽しかったりして、どうしても音楽と「疎遠」になる。
「ケータイ等で情報収集⇒自己啓発なり、次のビジネスチャンスに繋がる」のに対し、
地方民は移動時に
「カーステレオ⇒脳の安息にはなるが、次のビジネスチャンスには繋がらない」
ということにならないか？
首都圏民の電車通勤１時間は「次のビジネスの準備時間」なのであり、決して時間の浪費ではない。
となると、実は時間浪費しているのは「クルマ通勤の最中に音楽しか聴いていない地方」
ということにならないか？
ttp://blogs.itmedia.co.jp/fukuyuki/2010/03/lgipod-3aec.html
Podの発売日、ハードウェア担当たちは、恐る恐るiPodを分解した。Appleはどんな衝撃対策やデータ保護対策をしているのだろう…。どんな未知のテクノロジーを使ってユーザーのデータを保護しているのだろうか？
結果は…iPodの中に裸のハードディスクがゴロンと入ってるだけだった。加速度センサー？そんなものは微塵も無かった。衝撃対策は、ゴムみたいな何かを挟んでる以外は何もしてなかった。「データは消えても知らん」という設計思想だった。実際、iPodはデータが飛ぶことがあった。
iTuneも著作権保護もぐだぐだで、国内メーカーがこぞって進めていた「自称」世界標準の著作権保護規格であったSDMI規格も100%無視されていた。CDに焼いたり複数のiPodにコピーできたりなんでもアリすぎて、これもびっくりした。
「こんなん、ウチではだされへんがな。」
iPodが売れるに従い、我々がこだわっていたことは一体なんだったのかと思うようになった。
元ネタ http://phpspot.org/blog/archives/2009/12/phpjavascriptph_1.html
面白そうだと思ったので僕もやってみた。モジュールはPerl5.8系の標準モジュールのみ利用可という制限。
全部はキツイので関数処理関係の関数(http://php.benscom.com/manual/ja/ref.funchand.php)だけ実装してみた。
use strict; use warnings; =head2 call_user_func $ret = call_user_func($function,@param); $ret = call_user_func([$class,$method],@param); example1 sub plus { $_[0] + $_[1] } print call_user_func('plus',10,20); # 30 example2 package Foo; sub plus { $_[1] + $_[2] } package main; print call_user_func(['Foo','plus'],10,20); # 30 =cut sub call_user_func { my $proto = shift; if ( ref $proto eq 'ARRAY' ) { return $$proto[0]->${\$$proto[1]}(@_); } else { require Pod::Functions; if ( $Pod::Functions::Flavor{$proto} ) { return eval qq{$proto(\@_)}; } else { no strict 'refs'; return $proto->(@_); } } } =head2 call_user_func_array $ret = call_user_func_array($function,\@param); $ret = call_user_func_array([$class,$method],\@param); example sub plus { $_[0] + $_[1] } print call_user_func_array('plus',[10,20]); # 30 =cut sub call_user_func_array { return call_user_func(shift,@{+shift}); } =head2 create_function $code = create_function($args_str,$code_str); example $code = create_function('$c,$d=1','print $c+$d'); $code->(10); # 11 =cut sub create_function { my $args = shift; my $code = shift; my $default = 0; my @args = split /,/,$args; my $code_str = 'sub {'; for my $arg (@args) { if ( $arg =~ /^\s*(\$[a-zA-Z][\w]*)\s*(?:=\s*(.+))?\s*$/ ) { my $val = $1; my $def = $2; if ( defined $def ) { $default = 1; $code_str .= qq{my $val = \@_ ? shift : $def;\n}; } else { die 'parse error' if $default; $code_str .= qq{my $val = shift;\n}; } } } $code_str .= $code . '}'; my $sub = eval $code_str; die $@ if $@; return $sub; } =head2 forward_static_call $ret = forward_static_call($function,@param); $ret = forward_static_call([$class,$method],@param); =cut sub forward_static_call { call_user_func(@_); } =head2 forward_static_call_array $ret = forward_static_call_array($function,\@param); $ret = forward_static_call_array([$class,$method],\@param); =cut sub forward_static_call_array { call_user_func_array(@_); } =head2 func_get_arg $arg = func_get_arg($no) example sub foo { print func_get_arg(1) } foo(100,200); # 200 =cut sub func_get_arg { my $n = shift; package DB; @DB::args = (); () = caller(1); return defined $DB::args[$n] ? $DB::args[$n] : undef; } =head2 func_get_args @args = func_get_args() example sub foo { print join ':', func_get_args() } foo(11,22,33); # 11:22:33 =cut sub func_get_args { my $n = shift; package DB; @DB::args = (); () = caller(1); return @DB::args; } =head2 func_num_args $arg_count = func_num_args() example sub foo { print func_num_args() } foo(11,22,33); # 3 =cut sub func_num_args { my $n = shift; package DB; @DB::args = (); () = caller(1); return scalar @DB::args; } =head2 function_exists $bool = function_exists($func) example sub foo {} print function_exists('foo'); # 1 print function_exists('bar'); # 0 print function_exists('rand'); # 1 =cut sub function_exists { my $func = shift; return 1 if exists &$func; require Pod::Functions; return $Pod::Functions::Flavor{$func} ? 1 : 0; } =head2 get_defined_functions $funcs = get_defined_functions() =cut sub get_defined_functions { require Pod::Functions; return { internal => [ keys %Pod::Functions::Flavor ], user => [ grep { exists &$_ } keys %:: ], }; } =head2 register_shutdown_function register_shutdown_function($func,@param); register_shutdown_function([$class,$method],@param); =cut { my $REGISTER_SHUTDOWN_FUNCTION = []; sub register_shutdown_function { my $proto = shift; push @$REGISTER_SHUTDOWN_FUNCTION, [ do { if ( ref $proto eq 'ARRAY' ) { $$proto[0]->can($$proto[1]); } else { require Pod::Functions; if ( $Pod::Functions::Flavor{$proto} ) { sub { eval qq{$proto(\@_)} }; } else { no strict 'refs'; \&$proto; } } }, [@_] ] } END { $_->[0]->(@{$_->[1]}) for @$REGISTER_SHUTDOWN_FUNCTION; } }
思ったよりも難しかった。標準関数一覧を取る手段がなかったので標準モジュールを利用して標準関数の一覧を取得した。
あと文字列から標準関数を呼び出すスマートな手段が思いつかなかったのでeval便りに。
create_functionはかなりゴリ押し。myを勝手に付けたりデフォルト引数にも対応してたり細かい芸が光る（自分で言うな）
forward_static_callはぶっちゃけPerl的にcall_user_funcと殆ど処理が変わらないのでそのまま利用。
func_get_arg系は結構クリティカルだなー。@DB::argsをリアルに使ったの初めてだよ。
register_shutdown_functionはちょっとねー。ENDブロックを利用してるわけなんだけど当然mod_perlとかではうまく動かない。あとシグナルとか使った方が良いのかもしれない。
ヒマがあったら他の関数とかも実装してみたいかも。
(For Beginners)
(For Windows)
(For Mac)
(In case you are using shared computer)
(Information)
（語学学習サイト個人的リンクメモ / Lists of Language Learning Links）
●3-01 [小3目標70%]デシリットル2112[27] 198 ：名無しさんにズームイン！：2009/01/03(土) 19:20:34.65 ID:N8oX0/X9 でしりっとる
●02 さんづくり[多分けかざり][3] 245 ：名無しさんにズームイン！：2009/01/03(土) 19:21:42.93 ID:tSjlkgbc さんづくり
●03 2657球根[27] 344 ：The King Of 2channeler（２ちゃんの王様） ◆KINGv8V.1M ：2009/01/03(土) 19:26:13.28 ID:9iEo95qs 球根
●04 2853[22]v 397 ：名無しさんにズームイン！：2009/01/03(土) 19:27:33.56 ID:tSjlkgbc v
●05 3126反復横とび[22] 472 ：名無しさんにズームイン！：2009/01/03(土) 19:29:44.49 ID:b5gojdqH 反復横とび
●06 3603場[13] 545 ：名無しさんにズームイン！：2009/01/03(土) 19:32:00.19 ID:bgij+NGC 場
●07 白地図 3802[19] 636 ：名無しさんにズームイン！：2009/01/03(土) 19:36:37.14 ID:b5gojdqH 白地図
(こっち・そっち など 注ぐ 4本)
●4-01 [小4目標60%](風の力で)発電4203[20] 804 ：名無しさんにズームイン！：2009/01/03(土) 19:40:48.98 ID:b5gojdqH 風力発電
●02 差4628[17] 907 ：名無しさんにズームイン！：2009/01/03(土) 19:43:00.22 ID:eSz76ImY さ
●03 明後日4558[22] 16 ：名無しさんにズームイン！：2009/01/03(土) 19:46:51.81 ID:oW6ZhHe+ 明後日
●04 5041シリウス 等[3] 66 ：名無しさんにズームイン！：2009/01/03(土) 19:49:25.15 ID:hpK5K2HZ シリウス 等
●05 5134 240(度)[28] 132 ：名無しさんにズームイン！：2009/01/03(土) 19:51:07.39 ID:N8oX0/X9 240
●06 こやり5632[13] 168 ：名無しさんにズームイン！：2009/01/03(土) 19:52:19.29 ID:POdd+Yon こやり
●07 訓(読み)5746[30] 365 ：The King Of 2channeler（２ちゃんの王様） ◆KINGv8V.1M ：2009/01/03(土) 19:57:19.46 ID:9iEo95qs 訓読み
●5-01 [小5目標50%]0136三角州(|デルタ)[15] 488 ：名無しさんにズームイン！：2009/01/03(土) 20:00:15.95 ID:AdzCgPJd 三角州
●02 折れ線(グラフ)0550[20] 584 ：名無しさんにズームイン！：2009/01/03(土) 20:02:11.07 ID:FFWtidDN 折れ線グラフ
●03 暑さ寒さも)彼岸(まで0737[21] 743 ：The King Of 2channeler（２ちゃんの王様） ◆KINGv8V.1M ：2009/01/03(土) 20:06:16.22 ID:9iEo95qs 彼岸
●04 1004[25]水草(藻でも正解扱) 848 ：名無しさんにズームイン！：2009/01/03(土) 20:08:29.79 ID:POd +Yon 水草
●05 季節風[モンスーンでもOKかと]143 79 ：名無しさんにズームイン！：2009/01/03(土) 20:10:46.18 ID:bgij+NGC 季節風
●06 坊っちゃん[20] (きびしめ?) 232 ：名無しさんにズームイン！：2009/01/03(土) 20:15:55.12 ID:bgij+NGC ぼっちゃん
●07 1858底辺×高さ [12] 347 ：名無しさんにズームイン！：2009/01/03(土) 20:18:07.17 ID:bgij+NGC 底辺かける高さ
(たまどめ 1.2 しんにょう)
●6-01 出島 3208[19] 708 ：名無しさんにズームイン！：2009/01/03(土) 20:30:44.79 ID:2Zr7Aa9R 出島
●02 353 四(方)八(方)[29] 813 ：名無しさんにズームイン！：2009/01/03(土) 20:32:48.54 ID:POdd+Y on 四方八方
●03 3747さんようちゅう[11] 921 ：名無しさんにズームイン！：2009/01/03(土) 20:36:40.05 ID:FFWtidDN 三葉虫
●04 394薩長(同盟)[20] 226 ：名無しさんにズームイン！：2009/01/03(土) 20:38:41.00 ID:FFWtidDN 薩長同盟
●05 4239酸素 [8] 385 ：名無しさんにズームイン！：2009/01/03(土) 20:41:07.77 ID:POdd+Yon 酸素
●06 90立法センチメートル [25] (きびしめ)506 ：名無しさんにズームイン！：2009/01/03(土) 20:43:21.54 ID:8Fs6bM/Y 90cm3
(*** 省略 DACB)
●10 今こそ)別れめ(いざさらば 5106[18] 719 ：The King Of 2channeler（２ちゃんの王様） ◆KINGv8V.1M ：2009/01/03(土) 20:48:53.57 ID:9iEo95qs 今こそわかれめ
http://anond.hatelabo.jp/20090103203152
計算中
ここみる http://d.hatena.ne.jp/h_kenan/20080717
apt-get から install Encode
svn から Encode
cd [Encode Dir] してから sudo perl Makefile.PL
モジュール一括インストール？ sudo -H cpan App::Mobirc
make && make test して出てきた not installed を f**k
=> install Test::Spelling
sudo gnome-terminal
cd /home/pc/.cpan/build/HTML-DoCoMoCSS-0.01
・・・いけたか？
・・・
・・・
・・・
はいむりー
一応、行われるのが仏式か神式かくらいの情報は入手しておき、マナー講座みたいのに一通り目を通しておくんだぜ。
社長の代理で行くってことは、焼香だけってことか？それとも最初から最後まで付き合うのか。数珠は持ってるな。百均の数珠とかじゃ見劣りするぜ、一応。
受付に行ったら香典出して「本日はご愁傷様です」って言うんだぜ。で、記帳。「故人の遺志で香典はお断りを…云々」言われるケースも最近増えたから、その場合には名前書いておけば充分だぜ。
会場に入ったら、ｉpodで音楽聴いたり携帯ゲーム機取り出したりするなよ。本とかも読まない方が良い。悲しみに耽ってろとは言わないが、お喋りしすぎるのも基本的にはＮＧだ。とにかく大人しく座ってお経聞いて、で神妙な顔持ちでつつがなく焼香済ませたら基本的にはお役ご免だからな。
Amazon.co.jp： 電波利権 (新潮新書): 池田 信夫: 本
Amazon.co.jp： 新・電波利権ver.2 (アゴラPODシリーズ): 池田 信夫: 本
ネット広告費がテレビ抜く 英国で - ITmedia News
全録機「ガラポンTV」 iOS、Android、PCで外出先から視聴可能
テレビ局の敵か味方か、ガラポンTVの衝撃 過去90日の全番組、スマホでいつでもどこでも
書評「文系の僕はテレビ視聴の革命めざし家電メーカーを起業した」TVの未来を設計する人の自伝
Amazon.co.jp： 文系の僕はテレビ視聴の革命めざし家電メーカーを起業した: 保田 歩: 本
日本のテレビがリアルタイムで見れるP2Pソフト「KeyHoleTV」！ - 裏技shop DD
テクノロジーの世界では、常にローエンドがハイエンドを食っている。
安価な製品をより強力にするほうが、強力な製品を安くするよりも簡単なのだ。
一方、
Skypeを内蔵した無線LAN電話端末「LAN-WSPH01WH」ハードウェアレポート
【レビュー】Skype専用無線LAN携帯端末「LAN-WSPH01WH」をW-ZERO3と比較する (1) Skypeを持ち歩く | マイナビニュース
クロスオーナーシップの問題点〜図解版 - 情報流通促進計画 by ヤメ記者弁護士（ヤメ蚊）日隅一雄
クロスオーナーシップ問題〜３つの問題点 - 情報流通促進計画 by ヤメ記者弁護士（ヤメ蚊）日隅一雄
