2022/1/13をもって お客様がご利用中のブラウザ (Internet Explorer) のサポートを終了いたしました。 (詳細はこちら) クックパッドが推奨する環境ではないため、正しく表示されないことがあります。 Microsoft Edge や Google Chrome をご利用ください。 (Microsoft Edgeでクックパッドにログインできない場合はこちら)
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
初代新幹線「0系」最後のラストランの日に、新幹線N700系のぞみでイーモバイルしながらこの記事を書いているid:TAKESAKOです。 Perlのヒアドキュメントを使うと複数行にわたる文字列を一気に代入したりするときに楽なので、使っている人も多いと思います。 my $foo = "bar"; my $tmp = time(); # ←関数の実行結果 print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF しかし、ヒアドキュメントの途中でサブルーチンの実行結果も一緒に埋め込みたいときがでてくるときがあります。 @{[ Perlの式 ]} そのようなときは、@{[ リスト ]} というイディオムを使うと非常に便利です。 print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim
自転車を運転中、後方を確認せずに道路を横切り、オートバイと事故を起こして逃げたとして、奈良県警は20日、奈良市の無職の男(61)を150日間の運転免許停止処分にした。 「車の運転でも危険を引き起こす恐れがある」と判断したという。 県警によると、男は5月10日午後7時頃、自転車で同市内の市道を走行中、後方の安全を確かめずに道路を横断。後ろから来たオートバイとの衝突事故を招き、運転していた男性(37)に重傷を負わせて逃げ、約2時間後に出頭したという。 事故の際、男も自転車ごと転倒したが、けがはなかったという。県警は道交法違反(ひき逃げ)と重過失傷害の容疑で書類送検している。 自転車への処分を巡っては、昨年5月、大阪市浪速区でタンクローリーが歩道に乗り上げ2人が死亡した事故でも、直前に自転車で道路を横断した男(重過失致死罪で実刑)が180日間の免停処分を受けている。
Cache::LRU::WithExpires - can set an expiration for the Cache::LRU - metacpan.org Cache::LRU に expires の機能をつけただけのモジュールですね。 最初はプロダクトのコードで使っていましたが、だれか (たしかグニャラくん?) がコピペして再利用していたという話を聞いて、まぁ需要あるなら出すかーって感じで考えててすっかり忘れてたんですが思い出したので出しましたっていうストーリーです。 使い方は簡単で、オケツに expires を指定するだけです。Time::HiRes しているので、ミリ秒も OK。 use Cache::LRU::WithExpires; my $cache = Cache::LRU::WithExpires->new; $cache->set('hirose', '31',
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く