ネオ撲滅党

#!/usr/bin/perl
$VERSION =      "/proc/version";
@DISTRIBUTION = (
                "plamo",        "/usr/lib/setup/plamo-version",
                "slackware",    "/usr/lib/setup/slack-version",
                "debian",       "/etc/debian_version",
                "vine",         "/etc/vine-release",
                "suse",         "/etc/SuSE-release",
                "turbo",        "/etc/turbolinux-release",
                "kondara",      "/etc/kondara-release",
                "redhat",       "/etc/redhat-release",
                );

sub IsLinux {
        open(VER, $VERSION) || return undef;
        while (<VER>) {
                return 1 if (($k_ver[0], $k_ver[1], $k_ver[2], $_)
                        = /^Linux version (\d*)\.(\d*)\.(\d*)\s*(.*)/i);
        }
        return undef;
}

sub Distribution {
        for ($i=0;$i<$#DISTRIBUTION;$i+=2) {
                ($system, $file) = @DISTRIBUTION[$i, $i+1];
                return $system if (<$file*>);
        }
        return undef;
}

#
# Sample Main
#
unless (IsLinux()) {
        printf("not linux system.\n");
        exit(-1);
}
unless ($system = Distribution()) {
        $system = "other";
}
printf("%s linux kernel version=%d.%d.%d\n",
        $system, $k_ver[0], $k_ver[1], $k_ver[2]);