[見栄え] 変数定義はできるだけ見やすく揃える

$aho = 100;
$ulman = 200;
$rudo = 1;

$aho   = 100;
$ulman = 200;
$rudo  = 1;

ただし、ぱっと見渡せる短い関数については変数宣言をまとめておいてよいの ですが、長い関数については異なります。あまりやりすぎると変数の寿命が長 くなるだけでエラーの元になります。変数の寿命を短く、論理的なブロックを まとめるようにして下さい。

            my $log_file = $config->{ log_file };
            my $size     = $config->{ log_rotate_size_limit };
            my $total    = $config->{ log_rotate_archive_file_total };

            $log->set_size_limit($size);
            $log->set_archive_log_total($total);
            if ($log->is_time_to_rotate($log_file)) {
                $log->rotate($log_file);
                $curproc->log("log files rotated.");
            }

my $a = 1;
$a をつかうステートメント

	...

my $b = 1;
$b をつかうステートメント

	...

my $c = 1;
$c をつかうステートメント