Perlゼミ(サンプルコードPerl入門)
Perlå…¥å¦å¼ å…¨6回ã®Perl入門講座。æ±äº¬ã€å¤§é˜ªã€æ²–縄ã€æœå¹Œã§é–‹å‚¬ã€‚(æ±äº¬ã¯4月ã¨10月スタートã€ãれ以外ã¯5月スタート) YAPC::Japan Perlを軸ã¨ã—ãŸITã«é–¢ã‚ã‚‹å…¨ã¦ã®äººã®ãŸã‚ã®ã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€‚ æ±äº¬ å‰ç¥¥å¯º.pm 五åç”°.pm 大阪 ãªã«ã‚Perl 沖縄 沖縄.pm
Class::Accessor can has “has†– ãƒã‚«ãªç«æ˜Ÿäºº
I maintain the Class::Accessor module. It appears to be used a lot, but the API is a bit ugly. In YAPC::Asia the ugly API was criticised in at least three different talks, and each time it was compared to the fashionable Moose API. In one of these talks JRockway asked Shawn Moore how to turn a bad API into a good API, so I’m going to try that: adding antlers to Class::Accessor! So now instead of w
オブジェクト指å‘プãƒã‚°ãƒ©ãƒ ã®ãŸã‚ã®ãƒ‘ターン言語ã®ä½¿ç”¨
以下ã®æ–‡ç« ã¯ã€Kent Beckã€Ward Cunninghamã«ã‚ˆã‚‹ã€ŒUsing Pattern Languages for Object-Oriented Programsã€ã®æ—¥æœ¬èªžè¨³ã§ã‚る。 Ward Cunninghamæ°ã®è¨±å¯ã‚’å¾—ã¦ã€ã“ã“ã«æŽ²è¼‰ã™ã‚‹ã€‚ Kent Beck, Apple Computer, Inc. Ward Cunningham, Tektronix, Inc. Technical Report No. CR-87-43 September 17, 1987 Submitted to the OOPSLA-87 workshop on the Specification and Design for Object-Oriented Programming. æ¦‚è¦ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã¸ã®ãƒ‘ターン言語ã®é©åˆã«ã¤ã„ã¦æ¦‚説ã™ã‚‹ã€‚ウィンドウ・ベースã®
Perl5 ã®ã‚ªãƒ–ジェクト指å‘ã‚’ç†è§£ã™ã‚‹ - モダンãªPerl入門
Inside Perl5 OO 対象èªè€…： ä»–ã®è¨€èªžã§ OO ã—ãŸã“ã¨ã‚ã‚‹ã£ã½ã„ã²ã¨/Perl4 ã§ã¨ã¾ã£ã¦ã‚‹ã²ã¨ Class ã‚’ã¤ãã‚‹ ã¾ãšã¯ç‚¹ã‚¯ãƒ©ã‚¹ã‚’ã¤ãã£ã¦ã¿ã¾ã—ょㆠpackage Point; sub new { my ($class, %args) = @_; # 第１引数ã¯ã‚¯ãƒ©ã‚¹å bless({%args}, $class); # データを bless ã™ã‚‹ã¨ã€ã‚ªãƒ–ジェクトã«ãªã‚‹ } sub x { my $self = shift; # 第１引数ã¯ã€ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ $self->{x} = shift if @_; # 引数ãŒã‚ã‚Œã°ã‚»ãƒƒã‚¿ãƒ¼æ‰±ã„ã«ãªã‚‹ $self->{x}; } sub y { my $self = shift; $self->{y} = shift if @_; $self->{y}; } ã“ã®ã‚ˆã†ã«ã—ã¦ä½œã£ãŸã‚¯ãƒ©ã‚¹ã¯ã€ä¸‹è¨˜ã®ã‚ˆã†ã«ã—ã¦å‘¼ã³å‡ºã™ã“ã¨ãŒã§ãã¾
perl - no accessor; # ã ã£ã¦é…ã„ã‚“ã ã‚‚ã‚“ : 404 Blog Not Found
2008å¹´07月08æ—¥15:30 カテゴリLightweight Languages perl - no accessor; # ã ã£ã¦é…ã„ã‚“ã ã‚‚ã‚“ ã¾ãšã¯DCONWAY先生ã®ãŠè¨€è‘‰ã‹ã‚‰ã€‚ Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] Always use fully encapsulated objects. オブジェクトã¯å¸¸ã«ã‚«ãƒ—セル化ã—ã¦ç”¨ã„よ ã“ã‚Œã¯perlã®å¸¸è˜ã¨ã„ã†ã‚ˆã‚Šã€OOã®å¸¸è˜ã§ã‚ã‚‹ã®ã ã‘ã©ã€ã“ã‚ŒãŒperlã®å®Ÿè£…ã¨é‡ãªã‚‹ã“ã¨ã«ã‚ˆã‚Šã€perlã«ãŠã„ã¦ã¯ä»–ã®è¨€èªžã‚ˆã‚Šã‚‚ä½œæ³•ã‚’ç ´ã‚ŠãŸããªã‚‹ã‚¤ãƒ³ã‚»ãƒ³ãƒ†ã‚£ãƒ´ãŒå¤§ãã„ã®ã¯å¦ã‚ãªã„。 カプセル化ã®ã‚³ã‚¹ãƒˆãŒã€ã‚ã¾ã‚Šã«å¤§ãã„ã®ã 。 以下ã¯ã€ãƒãƒƒã‚·ãƒ¥ã€ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ãã—ã¦ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«ã‚ˆã‚‹ã‚ªãƒ–ジェクトã®æ€§èƒ½ã‚’ベンãƒãƒžãƒ¼ã‚¯ã—ãŸã‚‚ã®ã 。最åˆãŒåˆæœŸåŒ–ã€æ¬¡ãŒ accessor ã¨
perl - Inside-out Object : 404 Blog Not Found
2007å¹´03月11æ—¥03:30 カテゴリLightweight Languages perl - Inside-out Object ã¨ã“ã‚ãŒã€ãã®ãªã„ã¯ãšã®éš 蔽化を強制ã™ã‚‹ä»•çµ„ã¿ãŒã™ã§ã«ç™ºè¦‹ã•ã‚Œã¦ã„ã‚‹ã®ã§ã™ã€‚ Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] ビンゴä¸è¥¿ã®ã»ã’ã»ã’ Kansai.pm第8回ミーティングã«è¡Œã£ã¦ãã¾ã—ãŸ@è·é€ ã‚Šä¸ãã—ã¦ã€Perlã®ã‚ªãƒ–ジェクト指å‘ã«ã¯ éš è”½åŒ–ã‚’å¼·åˆ¶ã™ã‚‹ä»•çµ„ã¿ã¯ãªã„ ã„ã¤ã‹æ›¸ã“ã†ã¨æ€ã£ã¦ã„ãŸã‘ã©ã€ã¡ã‚‡ã†ã©ã„ã„機会ãªã®ã§ã€‚ ã“ã“ã§ã¯ä¾‹ã¨ã—ã¦ã€name,uriã¨ã„ã†äºŒã¤ã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹å¤‰æ•°ã‚’æŒã¤ã‚ªãƒ–ジェクトを実装ã—ã¦ã¿ã¾ã™ã€‚ InsideOut.pm { package InsideOut; use strict; use warnings; my %objects; sub new { my
404 Blog Not Found:perl - POO 㨠goto
2007å¹´04月24æ—¥00:45 カテゴリLightweight Languages perl - POO 㨠goto ã¨ã„ã†ã‚ã‘ã§ã€æœ¬ç•ªã€‚ 404 Blog Not Found:perl - 万能ãªnewã®æ›¸ãæ–¹ ã“ã“ã‹ã‚‰ãŒé¢ç™½ããªã‚‹ã®ã ãŒæ¬¡ã®Entryã¸è²ã‚‹ã“ã“ã«ç€ç›®ã—ã¦ã„ãŸã ããŸã„。 sub init { my $self = shift; $self->{$_} = $default{$_} for keys %default; $self->SUPER::init(); } åˆæœŸåŒ–ã«é™ã‚‰ãšã€è‡ªåˆ†ã§ä½•ã‹ã‚’ã—ãŸã‚‰æ¬¡ã®ãƒ¡ã‚½ãƒƒãƒ‰ã«æŒ¯ã‚‹ã¨ã„ã†ã®ã¯ã€OOã§ã¯éžå¸¸ã«ã‚ˆã見られる光景ã 。特ã«pluginãªã©ã‚’使ã£ã¦ã„ã‚‹å ´åˆã€ãã‚ŒãŒè‘—ã—ã„。 ã—ã‹ã—ã€ã“ã®ã‚³ãƒ¼ãƒ‰ã€æ¬¡ã®ãƒ¡ã‚½ãƒƒãƒ‰ã«æŒ¯ã£ã¦ã„ã‚‹ã®ã¯ã„ã„ã®ã ã‘ã©ã€æŒ¯ã£ã¦ã‹ã‚‰æˆ»ã£ã¦ãã‚‹ã®ã 。メソッド呼ã³å‡ºã—も関数呼ã³å‡ºã—ã«éŽãŽãªã„ã®ã ã‹ã‚‰ã€å½“然ã¨ã„ãˆã°å½“然ã
404 Blog Not Found:perl - 万能ãªnewã®æ›¸ãæ–¹
2007å¹´04月23æ—¥22:45 カテゴリLightweight Languages perl - 万能ãªnewã®æ›¸ãæ–¹ Perl 5ã®OOã¯ã€æ…£ã‚Œã¦ã—ã¾ã†ã¨ç°¡å˜ã 。 継承ã¨ã‹è€ƒãˆãšã«ã€æ™®é€šã«ã‚¯ãƒ©ã‚¹ã‚’作りãŸã‘ã‚Œã°ã€å¿…è¦ãªã®ã¯ä»¥ä¸‹ã®äºŒè¡Œã ã‘。 package Klass; sub new { bless {} }; ã“ã‚Œã ã‘ã§ã¯ä½•ã‚‚ã§ããªã„ã®ã§ã€ã¨ã‚Šã‚ãˆãšnameã¨ã„ã†ã‚¢ã‚¯ã‚»ã‚µãƒ¼ã‚’è¿½åŠ ã—ã¦ã¿ã‚‹ã€‚ã“ã‚Œã ã‘。 sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } ã—ã‹ã—ã€ä¸Šã®å½¢å¼ã ã¨ã€ç¶™æ‰¿ã‚’サãƒãƒ¼ãƒˆã—ã¦ã„ãªã„。ã ã‹ã‚‰ã€ package Klass; sub new { bless {} }; package Klass::Sub; our @ISA = qw/Klass/; # new
404 Blog Not Found:オブジェクトã¯é›£ã—ããªã„。難ã—ã„ã®ã¯ã‚¯ãƒ©ã‚¹
2006å¹´11月16æ—¥16:55 カテゴリLightweight Languages オブジェクトã¯é›£ã—ããªã„。難ã—ã„ã®ã¯ã‚¯ãƒ©ã‚¹ 大人ã ã‹ã‚‰ã‚ªãƒ–ジェクトã¯é›£ã—ããªã‚‹ã€‚åä¾›ã«ã¨ã£ã¦ã¯å®Ÿã¯ã‚ªãƒ–ジェクトã¯è‡ªç„¶ã§è‡ªæ˜Žã§ç°¡å˜ã 。 オブジェクト指å‘ã‚’æ£ã—ãç†è§£ã™ã‚‹ï¼šITpro オブジェクト指å‘ã¯ã—ã°ã—ã°ï¼Œã¨ã£ã¤ãã¥ã‚‰ã難ã—ã„技術ã¨è¨€ã‚ã‚Œã¾ã™ã€‚ãã®ç†ç”±ã®ä¸€ã¤ã«ã¯ï¼Œå¯¾è±¡ã¨ã™ã‚‹åˆ†é‡ŽãŒåºƒã，ãã‚Œãžã‚Œã«æ·±ã¿ãŒã‚ã‚‹ã“ã¨ãŒæŒ™ã’られã¾ã™ã€‚ã—ã‹ã—，ãれ以上ã«ã“ã®æŠ€è¡“を難ã—ãã—ã¦ã„ã‚‹è½ã¨ã—ç©´ã¨ã‚‚言ã†ã¹ãåŽŸå› ãŒäºŒã¤ã‚ã‚‹ã¨ç†è€…ã¯è€ƒãˆã¦ã„ã¾ã™ã€‚ãã‚Œã¯æ¯”喩を乱用ã™ã‚‹èª¬æ˜Žã®ä»•æ–¹ã®å•é¡Œã¨ï¼Œã€Œã‚‚ã®ä¸å¿ƒã€ã‚’æ„味ã™ã‚‹ã‚³ãƒ³ã‚»ãƒ—ト自体ã®å•é¡Œã§ã™ã€‚事実ã€ã‚ªãƒ–ジェクト指å‘ã¨ã„ã†ã®ã¯æœ€åˆã¯åä¾›å‘ã‘ã ã£ãŸã®ã 。 ã“ã®ã“ã¨ã‚’ã€ç¾åœ¨ã€Œã‚ªãƒ–ジェクトã¨ã¯ãªã‚“ãžã‚„ã€ã¨ã„ã†å¤§äººãŸã¡ã¯å¿˜ã‚Œã¦ã—ã¾ã£ã¦ã„る。 ãã‚Œã§ã€ã‚ªãƒ–ジェクトã¨ã¯ä½•ã‹ã€ã¨ã„ãˆã°ã€ã€Œè‡ªåˆ†ãŒä½•ãŒå‡ºæ¥ã‚‹
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Perlã§OOPã‚’ã—ã¦ã„ã‚‹ãªãã¨æ€ã†çž¬é–“ï¼ ã®ã¶ã‚ã
{{#tags}}- {{label}}
{{/tags}}