ヒアドキュメントの中でPerlの式を書く
初代新幹線「0系」最後のラストランの日に、新幹線N700系のぞみでイーモバイルしながらこの記事を書いているid:TAKESAKOです。 Perlのヒアドキュメントを使うと複数行にわたる文字列を一気に代入したりするときに楽なので、使っている人も多いと思います。 my $foo = "bar"; my $tmp = time(); # ←関数の実行結果 print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF しかし、ヒアドキュメントの途中でサブルーチンの実行結果も一緒に埋め込みたいときがでてくるときがあります。 @{[ Perlの式 ]} そのようなときは、@{[ リスト ]} というイディオムを使うと非常に便利です。 print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim
Object::InsideOut - インサイドアウトオブジェクト包括的支援モジュール - perldoc.jp
名前¶ Object::InsideOut - インサイドアウトオブジェクト包括的支援モジュール バージョン¶ この文書はObject::InsideOutバージョン1.52について記述しています。 概要¶ package My::Class; { use Object::InsideOut; # get+set兼用アクセサを持つ数値フィールド my @data :Field('Accessor' => 'data', 'Type' => 'NUMERIC'); # 'DATA' (または'data'等) を->new()の必須引数とする my %init_args :InitArgs = ( 'DATA' => { 'Regex' => qr/^data$/i, 'Mandatory' => 1, 'Type' => 'NUMERIC', }, ); # クラス固有の引数を->new()
スカラーの無名リファレンスでぶつかった謎 - the code to rock
あ、リファレンス少しわかったかも？！ と思った直後、いや・・やっぱわかってないな・・と思われる事象があったので、ご相談用エントリーです。 最初、@bayashiさんの以下の記事でリファレンスを復習していて、 http://bayashi.net/diary/2012/0428 おお、なるほどなるほど、ああそういうことか・・！ とか色々わかった気になっていたのですが、 それをじゃあ手元で、ある意味一番原理みたいなところかと思われるスカラーのリファレンスで試してみようと思って、以下のようなものを書いてみました。 my $foo = \'sushi'; #スカラーの無名リファレンスを作る print "1: $$foo\n"; my $bar = $foo; #別のスカラー変数にコピー $$bar = 'curry'; #コピー先をデリファレンスして中身変更 print "2: $$bar\n"
cat1/perldiag.1
perldiag - Perl の診断メッセージ（Ｍ〜Ｏ） 説明ページ Method for operation %s not found in package %s during blessing (F) 多重定義テーブルで、有効なメソッドを指していないエントリを指定しようとしました。perlovl manpage を参照してください。 Might be a runaway multi-line %s string starting on line %d (S) ようやく現在行になって、文字列やパターンの終わりが見つかったことから、先のエラーが、文字列やパターンのデリミタが、見つからなかったことで起ったかもしれないことを、補足的に示しています。 Misplaced _ in number (W) 十進数定数で下線が、3 桁ごとでありませんでした。 Missi
Perl - リファレンスの説明（２） - skaji's blog
Perl 初心者が初心者なりにリファレンスを説明してみるの２回目。前回はリファレンスを取得することと、そのリファレンスから元のものにアクセスする（デリファレンスする）方法を書いた。今回は無名配列、無名ハッシュ、無名サブルーチン、無名スカラーについて。特に無名配列、無名ハッシュについて例を挙げて説明する。 前回同様、丸括弧()、ブラケット[]、ブレース{} の違いを意識しながら読んでほしい。 目次 復習 無名配列、無名ハッシュ、無名サブルーチン、無名スカラー 例 １．復習 変数からリファレンスをとるには前にバックスラッシュ（Windows は円マーク）を付ければよかった。 my $s = "This is a pen."; my @a = ("Apple", "Orange", "Melon"); my %h = (jp => 'Japan', kr => 'South Korea'); s
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
プログラミングの生産性を上げるには - かなりすごいブログ
Modification of a read-only value attempted - Pixel Pedals of Tomakomai
Noisli をご紹介する - 103