This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
as one gets roots - rights ...
- From: "Norbert Pfeiffer" <norbert at itbw dot de>
- To: <cygwin at cygwin dot com>
- Date: Thu, 25 Jul 2002 02:08:20 +0200
- Subject: as one gets roots - rights ...
Hi,
so far I did not have problems with CygWin.
My new Script places me before a problem.
Output:
Norbert@NORBERT ~/perl
$ ./subnet.pl 192.168.0. 50
icmp ping requires root privilege at ./subnet.pl line 9
Norbert@NORBERT ~/perl
$
Source code:
#!/usr/bin/perl -w
use strict;
use Net::Ping;
my $i = 0;
my $png = 0;
my $prot = "icmp"; <========================= the cause
my $tout = 1 / $ARGV[1];
my $subn = $ARGV[0].".";
my $obj = Net::Ping->new($prot, $tout); <==== error line
for ($i=0; $i<256; $i++)
{if (0 < $obj->ping($subn.$i))
{print $subn.$i."\n";
}
}
$obj->close();
print "Time: ".(time() - $^T)." s.\n";
Which one can do there...
m. b. G. Norbert
_____________________
normal: 02292-681769
Notruf: 0177-2363368
---------------------
e.o.m.
m. b. G. Norbert
_____________________
normal: 02292-681769
Notruf: 0177-2363368
---------------------
e.o.m.
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Bug reporting: http://cygwin.com/bugs.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/