PerlのモダンなOOPを学んでいく過程のメモ。 Roleについて。手っ取り早く言えばInterfaceの機能、と解釈しています。。 以下はベーシックな使い方。 #!/usr/bin/perl package Breakable; use Moose::Role; has 'is_broken' => ( is => 'rw', isa => 'Bool', ); sub break { my $self = shift; print "I have break\n"; $self->is_broken(1); } package Car; use Moose; with 'Breakable'; has 'engine' => ( is => 'rw', ); package main; use strict; use warnings; my $car = Car->new(eng
perlの備忘録。 qw/hoge moge foo bar/ といった構文はよく使っていたが、その他のものはどうっだたかと思いちょっと調べた。 use strict; use warnings; my $foo = 'foo'; my @q_list = q/hoge moge 'aaa' "bbb" $foo/; my @qq_list = qq/hoge moge 'aaa' "bbb" $foo/; my @qw_list = qw/hoge moge 'aaa' "bbb" $foo/; my $info = `ps $$`; my $info_qx = qx(ps $$); print "$_\n" for @q_list; print "$_\n" for @qq_list; print "$_\n" for @qw_list; print $info,"\n"; prin
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く