unknownplace.org

qr/\.(css|js|swf)$/ みたいなのを YAML で書くにはどうしたらいいのだろうとおもって、とりあえず YAML モジュールを使って

use YAML;

my $data = {
    regex => qr/\.(css|js|swf)$/,
};

print Dump( $data );

こんなのをしてみる。

結果。

---
regex: !perl/regexp:
  REGEXP: \.(css|js|swf)$

こんな風に書くのか。これを LoadFile しても

$VAR1 = {
          'regex' => qr/(?-xism:(?:\.(css|js|swf)$))/
        };

となるのでちゃんと使えるようだ。

でも YAML::Syck だと Load Dump ともにうまく動かない。