ランダムな文字列を生成するString::Random - Unknown::Programming
普段から良く使うんでメモ。 DBとかにユニークな値を突っ込む時とかにランダム文字列生成とかよくあること。 で、Perlでランダム文字列を生成しようと思ったらString::Randomがオススメ。 色々作り方があるんだけど一番便利なのはrandregexメソッド。 use String::Random; my $rand_str = String::Random->new->randregex('[A-Za-z0-9]{32}'); こんな感じで正規表現が指定できるので上記のように書くと32桁の英数字でランダムな文字列を生成してくれる。 ちなみにDBに突っ込む目的ならDBIx::Class::RandomStringColumnsってのがString::Randam使用して勝手に突っ込んでくれたりするので便利だったりする。
iandeth. - Benchmark モジュールの使い方、結果情報の読み方
仕事で Benchmark モジュールを使う機会があったので、使い方＆結果情報の読み取り方をまとめてみました。基本的には perldoc 読めばオールオッケーでしょ？と思っていたのですが、docs では結果情報の読み方についてはあんまり触れられていなかった為、ガッツリ補足してみました。 基本 とある２種類のコードの実行速度を比較計測するには以下のようなソースを記述します： bench.pl #!/usr/bin/perl use strict; use warnings; use Benchmark qw(timethese cmpthese); sub hogeLoop1 { my $str; for my $i (1 .. 10000){ $str .= $i } } sub hogeLoop2 { my $str; for my $i (1 .. 20000){ $str .= $i
調子にのってコイバナでもするか:ハムスター速報 ２ろぐ
露出激しい画像はURLで１クッションになっています。 1 ：以下、名無しにかわりましてVIPがお送りします。あと-52,468秒：2008/01/11(金) 20:34:47.91 ID:veY37TvY0 彼女との出会いは去年の夏。 ちょっとした遊び心で買ったオナニーグッズから始る。 http://www.imgup.org/iup536538.jpg 8 ：以下、名無しにかわりましてVIPがお送りします。あと-52,720秒：2008/01/11(金) 20:44:41.62 ID:3xofoznE0 不憫な>>1 4 ：1：2008/01/11(金) 20:41:00.67 ID:veY37TvY0 ダッチワイフなんかで立つかよｗ と鼻でわらってたけど、オナホのついでにネタで買った もったいないので膨らますことにしたのは買ってから １週間以上たってからだ 5 ：以下、名無しにかわり
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
株式会社スタイルズ
