This is the mail archive of the
cygwin-apps@cygwin.com
mailing list for the Cygwin project.
Re: as one gets roots - rights ...
- From: "Max Bowsher" <maxb at ukf dot net>
- To: "Norbert Pfeiffer" <pfeiffer at itbw dot de>,<cygwin-apps at cygwin dot com>
- Date: Thu, 25 Jul 2002 12:05:56 +0100
- Subject: Re: as one gets roots - rights ...
- References: <00b201c233c9$f0ba9d00$1f00a8c0@npf>
'Help me' requests are off-topic for cygwin-apps@. I've already seen and
answered your question on cygwin@. Yes, if we get into discussing the
Cygwin-specific modifications to Net::Ping that I hinted at in my reply to you
at cygwin@, it may be appropriate to move this discussion here, but only in that
case.
Max.
Norbert Pfeiffer wrote:
> 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.