Код: Выделить всё
#!/usr/bin/perl
$sock = `sockstat | grep vpnd`;
`sleep 4`;
if ($sock) {
('')
} else {
print "'/usr/local/etc/rc.d/000.vpnd.sh start'";
}
<>;
ps aux | grep vpnd?Если vpnd в процессах не видем. То сделать то-то.. если видем .. то ничего не делать.
Во-первых, возможно понадобиться не $sock, а @sock, потому что `sockstat | grep vpnd`, наверное, может вернуть несколько строк.Как указать в perl что бы он полученные данныу $sock сравнил с тем что в процессах на freebsd запущены.
Я типа вот так пробую сделатьГость писал(а):Вместо `sleep 4`; можно использовать встроенную в перл функцию: sleep(4);
ps aux | grep vpnd?Если vpnd в процессах не видем. То сделать то-то.. если видем .. то ничего не делать.
Во-первых, возможно понадобиться не $sock, а @sock, потому что `sockstat | grep vpnd`, наверное, может вернуть несколько строк.Как указать в perl что бы он полученные данныу $sock сравнил с тем что в процессах на freebsd запущены.
Во-вторых, полученные данные от sockstat и от ps aux с помощью split разбиваем на подстрочки и сравниваем нужные между собой.
Код: Выделить всё
#!/usr/bin/perl
@sock = `sockstat | grep vpnd`;
print @sock;
sleep (4);
@array = split(/\//,@sock);
print "@array\n";
sleep (4);
@psvpn = `ps aux | grep vpnd`;
sleep (2);
print "@psvpn\n";
sleep (2);
@arvpn = split(/\//,@psvpn);
print "@arvpn\n";
) 0А сравнение и выполнение определенных действий. Это я так понимаю управляющая конструкция if () {....} тут надо сравнить @array и @arvpn - в зависимости от результата сделать действие??Во-вторых, полученные данные от sockstat и от ps aux с помощью split разбиваем на подстрочки и сравниваем нужные между собой
Код: Выделить всё
print (@array > @arvpn);
Код: Выделить всё
if ($array[0] gt $arvpn[0]) {
print "VPND rabotaet\n";
}
elsif ($array[0] lt $arvpn[0]) {
print `/usr/local/etc/rc.d/000.vpnd.sh start`
} else {
print `/usr/local/etc/rc.d/route.sh start`
}
Тунель запуститься, но вот таблица с маршрутами не запускаетсяelsif ($array[0] lt $arvpn[0])
else {
print `/usr/local/etc/rc.d/route.sh start`
}
доА сравнение и выполнение определенных действий. Это я так понимаю управляющая конструкция if () {....} тут надо сравнить @array и @arvpn - в зависимости от результата сделать действие??
print (@array > @arvpn) при false ничего не выведется, а при true выведется 1. Ибо в перле false являются значения 0, '0', '', undef. В данном случае print выводит ''.Почему при попытке сравнить два массива ничего не выходит.
Ведь в данном примери если условие не соблюдено то будет фаль и должен выдаваться 0 на экран
@array = 2
@arvpn = 1
else ведь выполнится, если не выполнились другие два условия. Если надо, чтобы после запускалась табл. с маршрутами сразу после запуска туннеля, то уберите строчку } else {.Если тунель упал то сработает условиеТунель запуститься, но вот таблица с маршрутами не запускаетсяКод: Выделить всё
elsif ($array[0] lt $arvpn[0])Код: Выделить всё
} else { print `/usr/local/etc/rc.d/route.sh start` }
Спасибо )) докумекал я про связку ..Гость писал(а):доА сравнение и выполнение определенных действий. Это я так понимаю управляющая конструкция if () {....} тут надо сравнить @array и @arvpn - в зависимости от результата сделать действие??
print (@array > @arvpn) при false ничего не выведется, а при true выведется 1. Ибо в перле false являются значения 0, '0', '', undef. В данном случае print выводит ''.Почему при попытке сравнить два массива ничего не выходит.
Ведь в данном примери если условие не соблюдено то будет фаль и должен выдаваться 0 на экран
@array = 2
@arvpn = 1
else ведь выполнится, если не выполнились другие два условия. Если надо, чтобы после запускалась табл. с маршрутами сразу после запуска туннеля, то уберите строчку } else {.Если тунель упал то сработает условиеТунель запуститься, но вот таблица с маршрутами не запускаетсяКод: Выделить всё
elsif ($array[0] lt $arvpn[0])Код: Выделить всё
} else { print `/usr/local/etc/rc.d/route.sh start` }
Просто как пособие использую "Изучаем Perl" Рэндал Шварц Том Феникс 5-е изданиеif () {
elsif
else {
}
}