ledCtrl.pl

#!/usr/bin/perl

$sndir = "/var/www/rfoutlet";
$bldir = "/home/matsushi/IoT/Etekcity/wiringPi/examples";

$rfs = "$sndir/RFSniffer";
$bl = "$bldir/blinkRGB";

$led = 0;
$brPid;
while (1) {
    open(SN, "$rfs 1 2>&1 |") or die "Cannot start $rfs: $?";
    while (<SN>) {
        printf("%d: %s", SN, $_);
        if (m/275715/) {
            if ($led == 0) {
                if ($brPid = fork()) {
                    # parent process
                    printf("blinkRGB(pid=%d) is started.\n", $brPid);
                    $led++;
                } else {
                    # child process
                    exec("$bl");
                }
            }
        }
        if (m/275724/) {
            if ($led == 1) {
                printf("blinkRGB (pid=%d) stopped.\n", $brPid);
                kill(9,$brPid);
                $led = 0;
            }
        }
    }
}