なんで＿＿＿するかといえば、管理者としてそうするのが当然の行為だから、
ではなく、＿＿＿と文句を言ううるさい人と関わり合いになりたくないから。
＿＿＿という考え方には異を唱えるが、
さりとて＿＿＿という考えを持ってるわけでもなく、
動作に影響がないならどっちでもいいんじゃね、という程度でしかない。
めんどくさいから＿＿＿なんかやりたくないんだけど、
痛くもない腹を探られるのもうっとうしいから＿＿＿おくというだけのこと。
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0;
my $foo = [ 0, [1,2,3], "hello", {one => 1, two => 2} ];
my $text = Dumper($foo); # シリアライズ
print "\$foo = $text\n";
my $bar = eval $text; # もどす
print "\$bar = ", Dumper($bar), "\n";
print "test : ";
print $bar->[0], " ";
print join(",", @{$bar->[1]}), " ";
print $bar->[2], " ";
print join(",", map {"$_:$bar->[3]{$_}"} keys %{$bar->[3]}), "\n";
実行結果：
% perl dd.pl
$foo = [0,[1,2,3],'hello',{'one' => 1,'two' => 2}]
$bar = [0,[1,2,3],'hello',{'one' => 1,'two' => 2}]
test : 0 1,2,3 hello one:1,two:2
Terse をセットすると最初に出てくる変数($VAR1など)が出なくなり、アメリカのテレビ局や映画制作者たちが、自分たちのコンテンツも
この流れにのせればリターンが得られると思ったのに対し、
日本の著作権利保持者がYouTubeを見たときには「俺たちが制作した
コンテンツを勝手にアップロードして皆で見ているだけじゃないか」
と考えた。
冒頭で紹介したYouTubeの創業者2名の笑顔の映像を見たときに、もし彼らこれはいかにもありそう！
が日本人であれば翌週の週刊誌などで「YouTube創業者、学生時代の悪評？」
といった記事が出るんじゃないかと思いました。
首都圏の大学で、無料で利用できるコピー機「タダコピ」が人気を
集めている。仕掛けたのは、学生のベンチャー企業。コピー用紙の
裏面に企業広告を載せることで、コピー代をタダにした。４月、
慶応大に置いたところ好評で、今では設置大学は九つになった。
他の大学からも設置を求める声が上がっている。
Cache::FileでStoreblaを使いたいのだが、できそうもないので
（何か良い方法があったら教えて下さい）、
出来ます、というよりCacheははじめからStorableをサポートしてます。
#!/usr/bin/perl
use strict;
use warnings;
use Cache::File;
my $cache = Cache::File->new(cache_root => "/var/tmp/cache",
default_expires => '1 hour');
my $foo = $cache->thaw("test");
if ($foo) {
print "out : ";
} else {
print "in : ";
$foo = [ 0, [1,2,3], "hello", {one => 1, two => 2} ];
$cache->freeze("test", $foo);
}
#$cache->clear();
print $foo->[0], " ";
print join(",", @{$foo->[1]}), " ";
print $foo->[2], " ";
print join(",", map {"$_:$foo->[3]{$_}"} keys %{$foo->[3]}), "\n";
以下、実行結果。一回目の実行でキャッシュに入れて、それ以降の実行で% perl test.pl in : 0 1,2,3 hello one:1,two:2 % perl test.pl out : 0 1,2,3 hello one:1,two:2 % perl test.pl out : 0 1,2,3 hello one:1,two:2