設定ファイルをperlで書き換える

gistfile1.pl

use strict;
use warnings;
use File::Copy;

open my $conf, '<', '/etc/my.cnf' or die;
open my $conf_new, '>', '/tmp/my.cnf' or die;

while (<$conf>) {
    chomp;
    my $line =
        /innodb[_-]buffer[_-]pool[_-]size/ ? "aaaaaa" :
        /innodb[_-]data[_-]file[_-]path/   ? "bbbb" :
...
        $_;
    print $conf_new "$line\n";
}
close $conf; close $conf_new;
File::Copy::move('/tmp/my.cnf', '/etc/my.cnf');