同意 / そしてPerlオブジェクト汎用のtoString書いたのでメモ。DEEPな動作はしないけど。Builderなくて良さそう「sub toString {my $this = shift; join("\n\t", (ref($this).' ('.sprintf('0x%0x', $this+0).')', (map {"$_ = $this->{$_}"} sort keys %$this)))."\n"}」

kiyo_hiko のブックマーク 2012/03/06 17:42

<blockquote class="hatena-bookmark-comment"><a class="comment-info" href="https://b.hatena.ne.jp/entry/84157601/comment/kiyo_hiko" data-user-id="kiyo_hiko" data-entry-url="https://b.hatena.ne.jp/entry/nwing.knowd.co.jp/yamazaki/index.php?q=node/208" data-original-href="http://nwing.knowd.co.jp/yamazaki/index.php?q=node/208" data-entry-favicon="https://cdn-ak2.favicon.st-hatena.com/64?url=http%3A%2F%2Fnwing.knowd.co.jp%2Fyamazaki%2Findex.php%3Fq%3Dnode%2F208" data-user-icon="/users/kiyo_hiko/profile.png">Perl: オブジェクティブな操作 | WebLog about me.</a><ul class="comment-tag" style="list-style: none; margin: 0px;"><li style="float: left">[<a href="https://b.hatena.ne.jp/q/perl">perl</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/oop">oop</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/style">style</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/tostring">tostring</a>]</li></ul><br><p style="clear: left">同意 / そしてPerlオブジェクト汎用のtoString書いたのでメモ。DEEPな動作はしないけど。Builderなくて良さそう「sub toString {my $this = shift; join(&quot;\n\t&quot;, (ref($this).' ('.sprintf('0x%0x', $this+0).')', (map {&quot;$_ = $this-&gt;{$_}&quot;} sort keys %$this))).&quot;\n&quot;}」</p><a class="datetime" href="https://b.hatena.ne.jp/kiyo_hiko/20120306#bookmark-84157601"><span class="datetime-body">2012/03/06 17:42</span></a></blockquote><script src="https://b.st-hatena.com/js/comment-widget.js" charset="utf-8" async></script>

このブックマークにはスターがありません。
最初のスターをつけてみよう！