bind ゾーンファイルシリアルのカウントアップ

bindのzoneファイルをスクリプトで変更した際、
シリアルをカウントアップしたかったのですが、
自分で書けなかったので、ググって見つけました。

find /var/named/chroot/var/named/gakubu.net.db -exec perl -pi -e ‘if (/^\s+(\d{10})\s+;\s+serial/i) { my $i = $1+1; s/$1/$i/;}’ ‘{}’ \;