тут скорее всего загвоздка в твоем хосте.. по дефолту протокол для создаваемого object ping - tcp, на него хост видать не отвечает.. можно сделать например $p = Net:ing->new('icmp', 10); но тогда потребуются рут-привилегии, чтоб скрипт рабтоал.. так же пробуй поизменять таймаут - по умолчанию он 5, но у меня, например, тока с 10 более-менее нормально работает..
При увеличения таймаута не чего не выдается... вообще не чего не выводиться... Если бы не савмоде в пшп то можно было бы system и все дела... Даю вообще забить на это...
так и на перл можно ведь "system и все дела".. непонял, у тебя и "Content-type: text/html\n\n" не выводится? (так и не понял к чему это : ) ) дело в том, что у меня скрипт вполне нормально работет..
Если не подходит Net:ing; то имхо можно чтонить в духе: my $ping = `ping --args`; print "$ping<br>\n";
гы про систем уже говорили жешь -- если кто не в курсе текст между `текст` выполняется через ком интерпритатор
Допустим дан массив с N кол-вом записей. Массив стринговый. Как узнать кол-во записей в массиве? add: Отобразить слово наоборот. Т.е. я ввожу test, он делает из этого tset. Есть ли специальная функция? А то свой алгоритм писать влом.
Уже нашёл до ответа. Но толку 0. #!/usr/bin/perl use strict; my $var = $ARGV[0]; print reverse($var); C:>perl.pl test test
Хм....странно, но еще страннее, если не print reverse($var); а print reverse($var)."\n"; Тогда можно без кавычек брать аргв ) ))
".\n" - сцуко:/ Всё работает: PHP: #!/usr/bin/perl use strict; my $var = $ARGV[0]; print reverse($var)."\n";
нафлудили без меня тут.. ) "\n" тут, кстати говоря, абсолютно непричем.. вариант 1: Code: $a = reverse $ARGV[0]; print $a; вариант 2: Code: print reverse split //, $ARGV[0]; вариант 3. наверно, самым правильным было бы написать так: Code: print scalar reverse $ARGV[0]; но можно и так, к примеру (вариант 4): Code: print eval reverse $ARGV[0]; +)
Web Server Пытаюсь написать простенький сервер))) Чтоб просто возвращал запрос в html обёртке. Проблема: не конектиться. И вообще ничего не print'ует.Может вечный цикл ему не по душе. Хотя компилируется. Бред. Подскажите Code: #!/usr/bin/perl -w use IO::Socket; my $sock = new IO::Socket::INET ( PeerAddr => 127.0.0.1, PeerPort => 8080, Proto => 'tcp', Listen => 1 ) or die "$! fucking socket"; while(5==5) { $sock->listen(); print "<html>"; print "<head> <title>Server Answer</title> </head>"; print "<body>"; $acc = $sock->accept(); while(<$acc>) { print $_; } print "</body></html>"; }
это жесть чувак perldoc IO::Socket Code: #!perl use strict; use warnings; use IO::Socket; my $sock = IO::Socket::INET -> new(LocalAddr => '127.0.0.1', LocalPort => 8080, Listen => 1) || die $!; while(1) { next unless my $conn = $sock -> accept; while($conn -> connected) { ... } }
Вопрос: Допустим такую ситуацию: PHP: my $var = '55.55'; my ($VR, $VRR) = split(/./,$var); Следовательно у переменных $VR, $VRR значения == 55 . Но, в скрипте они имеют вид стринговых. Как мне перевести их в целочисленные?
