始めてのPerlより。たまーに使うことがありそうなので、忘れないようにメモがわり。 コード use Data::Dumper; my $text = "Barney Rubble Fred Flintstone Wilma Filntstone"; my ( $first, $second, $third ) = ( $text =~ /(\b\w+\b) \s \b\w+\b \s?/gx )…

勉強＆刺激になるかなと思い、常駐することにしようかと。 設定した項目 サーバ:irc.freenode.net ポート:6667 チャンネル:#perl-casual 文字コード:UTF-8

Sample.pm package Sample; sub new { my $class = shift; bless {}, $class; } 1; sample.pl #!/usr/bin/perl use Sample; my $obj = (); # NG $obj = Samplｅ::new; # OK $obj = Sample::new('Sample'); $obj = Sample->new; 参考 http://www.rwds.net/kur…

MacBook Air 11インチ欲しい！当たらなくても今年中には買いたいなぁ。

for と foreach は同じ for my @countries = qw/ Japan Korea China /; for my $country ( @countries ) { print "$country\n"; } 結果 Japan Korea China foreach my @countries = qw/ Japan Korea China /; foreach my $country ( @countries ) { print "$…

Test::Exceptionで、Error.pmの例外をチェックするサンプルがあったのでError.pmを使ってみる。 use Error qw(:try); # 引数が偶数の場合は真を返す。ただし、引数が整数でない場合は例外を返す。 sub is_even { my $n = shift; try { if ( $n != int($n) ) …

Test::Exception というモジュールが出てきたので使い方を調べてみた。 Test::Exception CPANからインストール throws_ok throws_ok { $foo->method } qr/division by zero/, 'zero caught okay'; 与えた正規表現が標準エラーにマッチするかチェックする thr…

今年の抱負でも。 このブログを更新し続ける 自分の行動もスケジューリングして行う Webサービスを作る 勉強会に参加し、いろいろな人とコミュニケーションを取る 自分のプライドをへし折る こんな感じで、１年頑張りたいと思います。 あと一つ大きな目標も…