2011-08-01から1ヶ月間の記事一覧

Getopt::Long を使う

Getopt::Long モジュールのGetOptions関数は コマンドラインオプションを作成してくれる。オモシロ。 use Getopt::Long;my $a = 0; my $b = 0;GetOptions('all' => \$a, 'u' => \$b);print "$a,$b\n"; というスクリプトを作成し、 コマンドラインで実験 :~> …

Data::Page

ページングをしたいとき。 今まで、DBからデータ取得のときにlimito offsetを駆使して SQl文投げて処理していた。がしかし、、こんなモジュールがあった。。。。 use Data::Page;

良いコードを書くぞ!!

意識するべきポイントをまとめてみた。 ■変数名・「何のため」の変すかを明記する × $languages ⇒なんの言葉だよ。。。◯ $availableLanguages ⇒なるほど。利用できる言葉ですね。 コードの量が多くなってくると、自分自信でもなんの変数・モジュールだったか…

perl -d をつかう 

s 一歩進む感じ (同時に一階層深く潜る)n 潜りすぎたときに一階層浮かぶ感じb b 行数 みたくしとくとそこで止まってくれるp p $var で変数をみるx x @ary とかで Dumper みたいなR 最初からやり直し. (dot) 今みてる行を表示v 押下ボタン s # ステップイン n…

List::MoreUtils を使う

配列等の中身をまとめて評価したいってことがよくあるんだこれが。例えば... ある配列の中に格納してあるid達のうち、一つでも条件に当てはまったときはほげほげしたい とか。とか。そんとき、List::MoreUtilsが便利という(・∀・) <特定のメソッド(例はany…

正規表現のリファレンスを変数に格納 !!

my $ref = qr/A/i;これで正規表現をリファレンスとして渡せるらしい。 my $a = qr/a/i; my $b = "aaaab"; my $c = "AAAaab";$b =~ s/$a/b/g; $c =~ s/$a/b/g; print "$b\n $c";出力--- bbbb bbbbbb こんな感じになります。普通、正規表現の式自体を渡したい…

この間の日曜日の話

家族 + おばあちゃんとでお墓参りに行った!まず、お迎えをしにおばあちゃん家へ。 自分「お邪魔しますぅ」おば「あら、はじめまして?」 そうなんです。認知症になっちゃったんです。。。 どーにかして回復できないかな---も-----(T_T)趣味があるって重要。…