perl

Text::CSVでエクセルが吐き出すふざけたCSVを処理するメモ

エクセルはいい子ちゃんなので、とっても素敵なCSVを作ってくれます。例えばこんなの "7","sample","あいうえお?","か","きくけこ <a href="foo.html">さしすせそ</a> <a href="bar.html">たちつてと</a>なにぬねの","はひふへほ""〜"の中の「"」をエスケープしてくれないという素晴らしい仕様。 と思った…

Mooseが流行っているらしいじゃねえか

http://search.cpan.org/~stevan/Moose-0.43/lib/Moose.pmインストールしてみて、ほんのちょっぴり使ってみた。Numという親クラスは、numberというInt型のリードオンリープロパティアクセサを持っていて、sayというメソッドを実行すると、numberプロパティの…

続、ourにmyにlocalか

もう一つスコープをネストしてみた。 #!/usr/bin/perl use strict; use warnings; $\ = "\n"; our $var = 'our'; sub func() { $var = 'func'; print $var; } print $var; scope_a: { local $var = 'local'; print $var; func(); print $var; scope_a_a: { l…

ourにmyにlocalか

まんどくさいから、あえてlocalに関しては無視してきた。どうしても必要な箇所って今までなかったしなあ。プログラミングperlには、 ourは名前をスコープ内に限定し、localは値をスコープ内に限定し、myは名前と値の両方をスコープ内に限定する。 とある。す…