ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
12.10.2007, 16:37
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
Сообщение от DIAgen
Вот есть скриптик
Код:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
my $host = "89.108.80.80";
use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
Вот только он не чего не выводит... Библиотека Net::Ping установлена, выводит пустую стрницу и все... в чем может быть загвоздка?
тут скорее всего загвоздка в твоем хосте.. по дефолту протокол для создаваемого object ping - tcp, на него хост видать не отвечает.. можно сделать например
$p = Net::Ping->new('icmp', 10);
но тогда потребуются рут-привилегии, чтоб скрипт рабтоал.. так же пробуй поизменять таймаут - по умолчанию он 5, но у меня, например, тока с 10 более-менее нормально работает..
|
|
|
12.10.2007, 17:24
|
|
Познавший АНТИЧАТ
Регистрация: 02.05.2006
Сообщений: 1,191
Провел на форуме:
7364332
Репутация:
1276
|
|
При увеличения таймаута не чего не выдается... вообще не чего не выводиться...
Если бы не савмоде в пшп то можно было бы system и все дела...
Даю вообще забить на это...
|
|
|
|
12.10.2007, 17:27
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
так и на перл можно ведь "system и все дела"..
непонял, у тебя и "Content-type: text/html\n\n" не выводится? (так и не понял к чему это : ) )
дело в том, что у меня скрипт вполне нормально работет..
Последний раз редактировалось Digimortal; 12.10.2007 в 17:34..
|
|
|
|
15.10.2007, 18:12
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Если не подходит Net::Ping;
то имхо можно чтонить в духе:
my $ping = `ping --args`;
print "$ping<br>\n";
|
|
|
|
15.10.2007, 20:15
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
гы про систем уже говорили жешь -- если кто не в курсе текст между `текст` выполняется через ком интерпритатор
|
|
|
|
16.10.2007, 10:10
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Допустим дан массив с N кол-вом записей. Массив стринговый. Как узнать кол-во записей в массиве?
add:
Отобразить слово наоборот. Т.е. я ввожу test, он делает из этого tset. Есть ли специальная функция? А то свой алгоритм писать влом.
Последний раз редактировалось [sL1p]; 16.10.2007 в 10:43..
|
|
|
|
16.10.2007, 10:28
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Если правильно тебя понял, то scalar(@mas);
|
|
|
|
16.10.2007, 11:55
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
>> Есть ли специальная функция?
reverse
|
|
|
|
16.10.2007, 12:02
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Сообщение от Digimortal
>> Есть ли специальная функция?
reverse
Уже нашёл до ответа. Но толку 0.
#!/usr/bin/perl
use strict;
my $var = $ARGV[0];
print reverse($var);
C:>perl.pl test
test
|
|
|
|
16.10.2007, 12:21
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Последний раз редактировалось biophreak; 16.10.2007 в 12:25..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
