Hachioji.pm #2

Size: px

Start display at page:

Download "Hachioji.pm #2"

たみじろうしろみず
4 years ago
Views:

1 Kichijoji.pm # まかまか般若波羅蜜

2 Perl で試行錯誤すれども

3 自己紹介 : 名前 : まかまか ( 略

4 自己紹介 : 名前 : まかまか ( 略所属 : 株式会社フォーザウエルネス

5 主に Perl がらみのお仕事が多い職場です

6 未来ある若手エンジニアの海外研修サポートなども!

8 募集中 : Perl, Pythonなどのプログラミング PostgreSQLなどのDB 運用業務システム企画構築などに興味のある方 ( バイト非常勤など )

9 宣伝終了

10 Perl で試行錯誤すれども

11 自分のこれまでの Perl との関わりを振り返って

12 自分のこれまでのPerlとの関わりを振り返ってあんまり試行錯誤しないで適当に生きてきたわー

13 試行錯誤というかどういうときにどういうモノで学んできたかについて

14 1. 前史

15 リファレンスと正規表現の勉強 Effective Perl( アスキー, 1999)

16 2. 仕事がらみ

17 仕事始めてからはクックブックが大変重宝しました ( オライリージャパン, 2004)

18 オブジェクト指向は ( ピアソンエデュケーション, 2001)

19 ネットワーク関連は ( ピアソンエデュケーション, 2002)

20 3. OSS 的なの

21 最初の OSS 的な活動 perldoc.jp( ドキュメント翻訳 ) への参加

22 最初の OSS 的な活動 perldoc.jp( ドキュメント翻訳 ) への参加 Games:: 系や MIDI など Parse::RecDescent ithreads 関連

23 ドキュメント翻訳作業は良い

24 ドキュメント翻訳作業は良い読む力がつく

25 ドキュメント翻訳作業は良い読む力がつく訳せるためには勉強

26 Parse::RecDescent コンパイラ原理技法ツール ( サイエンス社, 1990)

27 ithreads 関連 Pthreads プログラミング ( オライリージャパン, 1998)

28 最初のモジュール公開

29 最初のモジュール公開 JEncode.pm

30 最初のモジュール公開 JEncode.pm Jcode の Encode 実装

31 最初のモジュール公開 JEncode.pm Jcode の Encode 実装かの UTF8 フラグと向き合う

32 最初のモジュール公開 JEncode.pm JcodeのEncode 実装かのUTF8フラグと向き合う Devel::Peek 大事

33 $ perl -MDevel::Peek -e"use utf8; Dump(' あ ')" SV = PV(0xa72d898) at 0xa741f98 REFCNT = 1 FLAGS = (POK,READONLY,pPOK,UTF8) PV = 0xa " " 0 [UTF8 " x{3042}"] CUR = 3 LEN = 8

34 初めての CPAN モジュール

35 初めての CPAN モジュール JSON.pm

36 初めての CPAN モジュール JSON.pm decode 部分は Parse::RecDescent で実装

37 初めての CPAN モジュール JSON.pm その後独自実装

38 初めての CPAN モジュール JSON.pm JSON::XSにあわせるために再度 UTF8フラグと向き合う

39 初めての CPAN モジュール JSON.pm JSON::XSにあわせるために再度 UTF8フラグと向き合うちゃんと理解してなかった

40 再度各種ドキュメントを読み直す perlunicode, perlunitut, perluniintro, Encode, utf8

42 というわけで今更誰も知りたくない最高に COOL な ithreads の話

43 Perl で試行錯誤スレドも

44 Perl には Cool な ithreads(i スレッド ) という機能がある

45 Perl には Cool な ithreads(i スレッド ) という機能がある注 :Perl 5.20 で公式に ithreads の利用は discouraged になっています

46 use threads; my $thr = threads->create( &foo); print "main thread n"; sub foo { sprint("foo! in thr(tid=%d) n", threads->tid); }

47 use threads; my $thr = threads->create( &foo); print "main thread n"; sub foo { sprint("foo! in thr(tid=%d) n", threads->tid); } 注 :Perl 5.20 で公式に ithreads の利用は discouraged になっています

48 元々は Windows 版 Perl で fork をエミュレートするためのもの (Win32 Thread) それが逆輸入され pthread で実装された 5.5 時代は Thread というモジュールがあった (5005threads)

49 threads->new( &foo) すると pthread_createされて &fooを実行するperlインタプリタが生成される

50 threads->new( &foo) すると pthread_createされて &fooを実行するperlインタプリタが生成されるそして親スレッドの一切合財 ( シンボルテーブル変数ファイル ) が子スレッドにコピーされる

51 threads->new( &foo) すると pthread_createされて &fooを実行するperlインタプリタが生成されるそして親スレッドの一切合財 ( シンボルテーブル変数ファイル ) が子スレッドにコピーされる

52 my $hoge; threads->create(sub{ })->join; # スレッド内に $hoge はコピーされている!

53 大抵のスレッドの売り軽い

54 大抵のスレッドの売り軽い i スレッドの売り重い

55 大抵のスレッドの売り軽い i スレッドの売り重いメモリ的及び速度的に

56 Tips: 何もuseしてない変数宣言してない段階で必要なだけ予めスレッドを生成しておくとよいよ!

57 コピーなので変数がスレッド間で共有されることもない既存のコードも安心だぜ!

58 コピーなので変数がスレッド間で共有されることもない既存のコードも安心だぜ! 個人の感想です

59 ちなみに bless された変数があれば子スレッドの数だけ DESTROY が呼ばれるよ!

60 ちなみに XS モジュール内部の変数とかはコピーされない CLONE サブルーチン使う sub CLONE { }

61 では変数の共有は?

62 では変数の共有は? threads::shared を使う

63 use threads; use threads::shared; my $foo : shared = 1; my $bar; share($bar);

64 share された変数は裏では tie され共有変数用スレッドにリンクされる

65 shareされた変数は裏ではtie され共有変数用スレッドにリンクされる STOREやFETCHを通じてデータがやり取りされる! 遅い!

66 スレッド A 共有変数用スレッドスレッド B $foo = 1 $foo say $foo

67 shareされた変数は裏ではtie され共有変数用スレッドにリンクされる tieされるので既存のtie 変数に対しては共有化できない

68 スレッドのコンテキスト

69 スレッドのコンテキスト new (create) した時のコンテキストがjoin 時のコンテキストになる

70 use threads; my $th1 = threads->new( sub{return 1,3,5;} ); say $th1->join; # 5 を表示 ( スカラーコンテキストだから ) my ($th2) = threads->new( sub{return 1,3,5;} ); say $th2->join; # 135 を表示 ( リストコンテキストだから )

71 Cool!

72 なお初期の頃は

73 なお初期の頃は threads に is_joinable とか is_detached などがなかった

74 私の初めての XS モジュールは Thread::State

75 use threads; use Thread::State; my $thr = threads->new(sub {... }); while ( $thr->is_running ) {...} if( $thr->wantarray ){...} if ($thr->is_joined) {... } if ($thr->is_joinable) {...}

76 現在は core で実装されてます

77 その他昔の色々は下記サイトにあるよ

78 お家に帰ったら早速試してみたくなったでしょ?

79 お家に帰ったら早速試してみたくなったでしょ? useithreadオプションつけてコンパイルしてみてね!

80 公式に ithreads の利用は discouraged になっています

81 Perl で試行錯誤スレドもおしまい

Microsoft PowerPoint pptx

Microsoft PowerPoint pptx PFCore(RT ミドルウェア ) トレーニング中級編 10:00-11:00 第 1 部 :RT コンポーネントプログラミングの概要担当 : 安藤慶昭 ( 産業技術総合研究所 ) 概要 :RT コンポーネントの作成方法, 設計時の注意点などの概要について解説します第 2 部 :RT ミドルウェア (PFcore) 開発支援ツールと RT コンポーネントの作成方法 11:00-12:00 12:00-13:00