<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: Perl, Net::Ping, syn</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html</link>
    <description>Разрабатывал сканер локалки - искал активные ftp-серверы. Скрипт корректно работал в winXP. &lt;br&gt;В GNU/Linux - этот скрипт показывает _все_ активные компы (те все включенные), а меня интересуют только хосты с включенным ftp-сервером. беда&lt;br&gt;&lt;br&gt;&amp;lt;code&amp;gt;&lt;br&gt;use Net::Ping;&lt;br&gt;&lt;br&gt;$p = Net::Ping-&amp;gt;new( &apos;syn&apos; );&lt;br&gt;&lt;br&gt;$p-&amp;gt;&#123;&apos;port_num&apos;&#125; = getservbyname( &apos;ftp&apos;, &apos;tcp&apos; );&lt;br&gt;&lt;br&gt;$p-&amp;gt;ping( $host, 1 );&lt;br&gt;&lt;br&gt;if ( ( $host, $rtt, $ip ) = $p-&amp;gt;ack )&#123; print &quot;$host&#092;n&quot; &#125;&lt;br&gt;&amp;lt;/code&amp;gt;&lt;br&gt;</description>

<item>
    <title>Perl, Net::Ping, syn (pheonix)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#11</link>
    <pubDate>Wed, 30 Apr 2008 14:43:55 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;&amp;gt;if ( ( $host, $rtt, $ip ) = $p-&amp;gt;ack )&#123; print &quot;$host&#092;n&quot; &#125;&lt;br&gt;&amp;gt;&amp;gt;&amp;gt;&amp;lt;/code&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;Добавь: &lt;br&gt;&amp;gt;&amp;gt;$p-&amp;gt;service_check(1);&lt;br&gt;&amp;gt;&amp;gt;после конструктора &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;вот теперь корректно работает. огромное спасибо. всетаки надо внимательно Description читать :( &lt;br&gt;&amp;gt;&lt;br&gt;&lt;br&gt;у меня именно для этих же целей и прекрасно работает всё что написал я именно&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (JIP)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#10</link>
    <pubDate>Wed, 30 Apr 2008 12:11:49 GMT</pubDate>
    <description>&amp;gt;&amp;gt;&amp;gt;Может подойдёт лучше стандартное nmap -sT -p 21 192.168.25.0/24 ? &lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;этот вариант был опробован и использовался некоторое время. отказался от него по &lt;br&gt;&amp;gt;&amp;gt;причине плохой переносимости - юзеру прийдется ставить nmap и тд и &lt;br&gt;&amp;gt;&amp;gt;тп &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Ну ActivePerl, тоже на в каждой Windows установлен и ставить его придётся &lt;br&gt;&amp;gt;пользователю. &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;P.S. И вообще тут &quot;программирование под UNIX&quot; вроде как..&lt;br&gt;&lt;br&gt;написал многопоточный сканер с Net::Ping - вроде корректно работает. средств Perl&apos;а оказалось достаточно :)&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (phpcoder)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#9</link>
    <pubDate>Wed, 30 Apr 2008 08:39:37 GMT</pubDate>
    <description>&amp;gt;&amp;gt;Может подойдёт лучше стандартное nmap -sT -p 21 192.168.25.0/24 ? &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;этот вариант был опробован и использовался некоторое время. отказался от него по &lt;br&gt;&amp;gt;причине плохой переносимости - юзеру прийдется ставить nmap и тд и &lt;br&gt;&amp;gt;тп &lt;br&gt;&lt;br&gt;Ну ActivePerl, тоже на в каждой Windows установлен и ставить его придётся пользователю.&lt;br&gt;&lt;br&gt;P.S. И вообще тут &quot;программирование под UNIX&quot; вроде как..&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (JIP)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#8</link>
    <pubDate>Wed, 30 Apr 2008 07:17:09 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;&amp;gt;$p-&amp;gt;&#123;&apos;port_num&apos;&#125; = getservbyname( &apos;ftp&apos;, &apos;tcp&apos; );&lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;$p-&amp;gt;ping( $host, 1 );&lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;if ( ( $host, $rtt, $ip ) = $p-&amp;gt;ack )&#123; print &quot;$host&#092;n&quot; &#125;&lt;br&gt;&amp;gt;&amp;gt;&amp;lt;/code&amp;gt;&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;Добавь: &lt;br&gt;&amp;gt;$p-&amp;gt;service_check(1);&lt;br&gt;&amp;gt;после конструктора &lt;br&gt;&lt;br&gt;вот теперь корректно работает. огромное спасибо. всетаки надо внимательно Description читать :(&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (JIP)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#7</link>
    <pubDate>Wed, 30 Apr 2008 06:59:57 GMT</pubDate>
    <description>&amp;gt;Может подойдёт лучше стандартное nmap -sT -p 21 192.168.25.0/24 ? &lt;br&gt;&lt;br&gt;этот вариант был опробован и использовался некоторое время. отказался от него по причине плохой переносимости - юзеру прийдется ставить nmap и тд и тп&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (JIP)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#6</link>
    <pubDate>Wed, 30 Apr 2008 06:57:09 GMT</pubDate>
    <description>&amp;gt;&amp;gt;&amp;gt;дак ты туда заломись вот так &lt;br&gt;&amp;gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&amp;gt;в этом случае всплывает проблема с таймаутом у виндового эктивперла - приходится &lt;br&gt;&amp;gt;&amp;gt;долго ждать ответа если сервер оффлайн. еще можно сокет создавать - &lt;br&gt;&amp;gt;&amp;gt;аналогичная проблема с таймаутом. &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;какие проблемы выставь Timeout в 3 секунды и не мучайся &lt;br&gt;&lt;br&gt;таймаут включал. этот функционал неработоспособен как для модуля Net::FTP так и для сокетов (эктивперл) - приходится ждать 10-15 секунд (возможно это дефолтный таймаут)&lt;br&gt;&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (NuINu)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#5</link>
    <pubDate>Wed, 30 Apr 2008 05:40:28 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;use Net::Ping; &lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;$p = Net::Ping-&amp;gt;new( &apos;syn&apos; );&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;$p-&amp;gt;&#123;&apos;port_num&apos;&#125; = getservbyname( &apos;ftp&apos;, &apos;tcp&apos; );&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;$p-&amp;gt;ping( $host, 1 );&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;if ( ( $host, $rtt, $ip ) = $p-&amp;gt;ack )&#123; print &quot;$host&#092;n&quot; &#125;&lt;br&gt;&amp;gt;&amp;lt;/code&amp;gt;&lt;br&gt;&lt;br&gt;Добавь:&lt;br&gt;$p-&amp;gt;service_check(1);&lt;br&gt;после конструктора&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (anonymous)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#4</link>
    <pubDate>Tue, 29 Apr 2008 22:10:44 GMT</pubDate>
    <description>Может подойдёт лучше стандартное nmap -sT -p 21 192.168.25.0/24 ?&lt;br&gt;</description>
</item>

<item>
    <title>Perl, Net::Ping, syn (pheonix)</title>
    <link>https://www.opennet.me/openforum/vsluhforumID9/7342.html#3</link>
    <pubDate>Tue, 29 Apr 2008 16:24:46 GMT</pubDate>
    <description>&amp;gt;&amp;gt;дак ты туда заломись вот так &lt;br&gt;&amp;gt;&amp;gt;&lt;br&gt;&amp;gt;&lt;br&gt;&amp;gt;в этом случае всплывает проблема с таймаутом у виндового эктивперла - приходится &lt;br&gt;&amp;gt;долго ждать ответа если сервер оффлайн. еще можно сокет создавать - &lt;br&gt;&amp;gt;аналогичная проблема с таймаутом. &lt;br&gt;&lt;br&gt;какие проблемы выставь Timeout в 3 секунды и не мучайся&lt;br&gt;</description>
</item>

</channel>
</rss>
