Perlのpackage入門

自己紹介

• TwitterID

  @techno_neko

• お仕事

  組み込み系

• 所属

  Hokkaido.pm

Perlのpackage入門

• packageを使わないと？

  良くあるPerlスクリプト

• packageを使うと？

  再利用する準備

• 5.16の場合

  packageブロックが使える

packageを使わないと？

• ここはどこ？

  カレントパッケージを出力する

        use strict;

        sub hello {
            print 'Hello! from ' . __PACKAGE__ . "\n";
        }

        hello(); # Hello! from main
    

packageを使わないと？

• とりあえず関数を定義する

  RGB値が分かるようにダンプする関数

        use strict;

        sub to_rgb {
            return
                'R: ' . (($_[0] >> 16) & 0xFF) . ', '
              . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
              . 'B: ' . (($_[0] >>  0) & 0xFF);
        }

        print to_rgb( 0xFF0000 ); # R: 255, G: 0, B: 0
    

packageを使わないと？

• いろんなフォーマットでダンプしたい・・・

  • R: 255, G: 0, B: 0
  • 255,0,0
  • #FF0000

• to_xxxを量産する

  • to_rgb
  • to_csv
  • to_css_color

• フォーマット文字列渡した方が良さそう。。。

• まだ、packageは関係ないよ！

packageを使うと？

• packageを使ってみる

  こんな風に書ける

        use strict;

        package ColorDumper;
        sub to_rgb {
            return
                'R: ' . (($_[0] >> 16) & 0xFF) . ', '
              . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
              . 'B: ' . (($_[0] >>  0) & 0xFF);
        }

        package main;
        print ColorDumper::to_rgb( 0xFF0000 ); # R: 255, G: 0, B: 0
    

packageを使うと？

• パッケージColorDumperにto_xxxを量産

  • ColorDumper::to_rgb
  • ColorDumper::to_csv
  • ColorDumper::to_css_color

• mainで変換関数を選択して使う

packageを使うと？

• 関数リファレンスを使ってみる

  こんな風に書ける

        use strict;

        package ColorDumper;
        sub to_rgb {
            return
                'R: ' . (($_[0] >> 16) & 0xFF) . ', '
              . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
              . 'B: ' . (($_[0] >>  0) & 0xFF);
        }

        package main;
        my $func = \&ColorDumper::to_rgb;
        print $func->( 0xFF0000 ); # R: 255, G: 0, B: 0
    

packageを使うと？

• パッケージを指定するだけならこんな風に書ける

  何事もやり方は一つじゃない

        use strict;

        sub ColorDumper::to_rgb {
            return
                'R: ' . (($_[0] >> 16) & 0xFF) . ', '
              . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
              . 'B: ' . (($_[0] >>  0) & 0xFF);
        }

        my $func = \&ColorDumper::to_rgb;
        print $func->( 0xFF0000 ); # R: 255, G: 0, B: 0
    

5.16の場合

• packageブロックを使ってみる

  5.16で追加された書き方

        use strict;
        package ColorDumper {
            sub to_rgb {
                return
                    'R: ' . (($_[0] >> 16) & 0xFF) . ', '
                  . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
                  . 'B: ' . (($_[0] >>  0) & 0xFF);
            }
        }

        my $func = \&ColorDumper::to_rgb;
        print $func->( 0xFF0000 ); # R: 255, G: 0, B: 0
    

まとめ(1)

• パッケージColorDumperのコードを、
  "ColorDumper.pm"に書き出す

  最後の行の"1;"をお忘れなく

        package ColorDumper;
        use strict;

        sub to_rgb {
            return
                'R: ' . (($_[0] >> 16) & 0xFF) . ', '
              . 'G: ' . (($_[0] >>  8) & 0xFF) . ', '
              . 'B: ' . (($_[0] >>  0) & 0xFF);
        }

        1;
    

まとめ(2)

• "use ColorDumper;"で読み込む

  モジュール完成！

        use strict;

        use ColorDumper;

        my $func = \&ColorDumper::to_rgb;
        print $func->( 0xFF0000 ); # R: 255, G: 0, B: 0
    

まとめ(3)

1. 「続・初めてのPerl」がオススメ！

   このスライドのネタ元はこの本

2. 次は、Exporter？

   どなたかお願いします

宣伝

8/24発売予定！（北海道は入荷が少し遅れるよ！！）

ご静聴、ありがとうございました