MySQLとか(Tokyo|Kyoto)ナントカのserver_idを計算するために使ってたコマンド

server_id

#!/usr/bin/perl -l
use strict;
use warnings;

$ENV{LANG}   = "C";
$ENV{PATH} ||= "/usr/local/bin:/usr/bin/:/bin";

my $eth = shift || "eth0";

`ip addr list dev $eth|grep 'inet '` =~ m{\.(\d+?)\.(\d+?)\/};

print $1 * 1000 + $2;

@dankogai ダメじゃないですよ！僕のユースケースでは第1オクテット第2オクテットが同じネットワーク構成上にDB等のミドルウェアサーバがいたのと、第3オクテット*1000 + 第4オクテットをserver_idとすると人間が見たときの見た目がIPと一致して人間がこのサーバーのserver_idはいくつになるべきかの検算がしやすかったのでこうしていました。