酒飲んで2時寝の6時起き。
Utauyo!!MIRACLE をエンドレスで流していたら出発時刻になったので出社して、
コーヒーを飲んで、
以前の仕事のエンドユーザー様から例によって複数の段階をすっ飛ばしての直通電話がかかってきたので「モノは準備できてるけど契約関係の調整をしているところだからちょっと待っててね！」と返答して。実際は平身低頭ですけど。
現行の仕事の元請担当者殿がホワイトボードに書き殴っているグラフをぼけと眺めたり、
わかめそば食ったり、
薬膳天のまずさに毒づいたり、
コーヒー飲んだり、
設計したり、
設計したり、
設計したり、
半額からさらに値引きされたイサキを買って帰ってきて酒を飲んでいたらまた2時。
寝よう。
そしてまた6時に起きる。洗濯して出社。
お得なセットメニューを食べて満腹になったせいか単なる寝不足か、昼下がりに猛烈に眠くなったので眠気覚ましにワンライナー。
$ perl -e 'for(1..$ARGV[2]){for(0..1){$ARGV[$_]=~/(\d+):(\d+)~(\d+):(\d+)/&&sub{printf"%02d:%02d%s",$_[0]+int($_[1]/60),$_[1]%60,$_[2]}->($1,int(rand($4-$2+($3-$1)*60))+$2,$_?"\n":"\t")}}' 9:00~10:00 17:30~19:00 10
09:47 17:35
09:41 18:51
09:43 18:39
09:16 17:56
09:08 17:46
09:03 18:56
09:54 18:36
09:02 17:32
09:41 18:57
09:04 17:31
$
$ perl -e 'for(1..$ARGV[2]){for(0..1){$ARGV[$_]=~/(\d+):(\d+)~(\d+):(\d+)/&&sub{printf"%02d:%02d%s",$_[0]+int($_[1]/60),$_[1]%60,$_[2]}->($1,int(rand($4-$2+($3-$1)*60))+$2,$_?"\n":"\t")}}' 9:30~9:50 20:00~22:00 20
09:36 20:55
09:44 20:35
09:41 21:30
09:30 20:10
09:32 20:51
09:49 20:51
09:35 21:35
09:33 21:35
09:43 20:16
09:38 20:37
09:33 20:53
09:36 21:16
09:30 20:35
09:32 21:00
09:49 20:17
09:47 20:44
09:37 20:26
09:40 21:33
09:43 20:33
09:46 20:03
$
- スペースを使用しない
- セミコロンを使用しない
- 特殊変数以外の変数を使用しない
縛りにしたので、わけわかんないですね。
就業時間を指定時間範囲で指定日数分、捏造します。
これでタイムカード要らずだよ！やったね！
RSS1.0
2010/07/23 01:57:48