use Devel::Size qw(size total_size); my $foo = {a => [1, 2, 3]}; print size($foo)," ",total_size($foo), "\n"; $foo->{b} = {c => [4, 5]}; print size($foo)," ",total_size($foo), "\n"; shift @{$foo->{a}}; print size($foo)," ",total_size($foo), "\n";
119 267 142 549 142 529
管理職3万人を指導してきたコンサルタントの秘訣
メンバーがみずから動き出すしくみを7つのステップできっちり解説!
リーダーとしての不安・焦り・失敗をくぐりぬけ、現在は経営者として活躍する著者の体験をもとに、リーダーシップを無理なく発揮するための49のコツを伝授。
勘・根性・度胸だけに頼らない最強チームのつくり方を、7つのステップに沿って学びます。
職場で今日からすぐに使えるワークやシート、セッションなど37点を掲載しています。