BEGIN Perl - Qiita
Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? Gotanda.pm #17 での発表を記事化しました. Perl を学ぶ際の参考になればうれしいです. Perlとは何か 汎用プログラミング言語 当初は, テキスト処理のため 現在は, システム管理, Web開発, ネットワークプログラミングなど様々な用途 経緯 1987年、Larry Wall によって公開 sed, awk よりも強力なテキスト処理ができ、C言語よりも簡単に開発できるような言語として開発された SEE: perldoc perlhist 哲学 "There's more than one way to do it"
Perl の built-in の上書き - Qiita
rand の返り値を固定してあげて、テストしたい時などに行う Perl の built-in 関数の上書きについて書いてみます 前置き まずは簡単な上書きの例を紹介してみます 重み付け抽選をしてくれる Data::WeightedRoundRobin を使うコードのテストを見てみます 次のコードは、rand を 1 で固定しているので、常に抽選結果はbar になります BEGIN { *CORE::GLOBAL::rand = sub { 1 } } use Test::More; use Data::WeightedRoundRobin; my $dwr = Data::WeightedRoundRobin->new([qw/foo bar/]); is $dwr->next, 'bar' for 0..10; # 何回回したって平気..!! done_testing;
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl で (a == 1 && a == 2 && a == 3) を true にしてみる - Qiita
Perl のエラーメッセージをちょっときれいにしてくれるツールを書いた - Qiita