Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: General perl question. Multiple servers.

by mwah (Hermit)
on Oct 06, 2007 at 16:05 UTC ( #643113=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
     ...
     # $addr is the actual subnet, e.g. "192.168.1.0"
     ...
     my $output = qx{nmap -sP ${addr}/24};
     my @nodes= $output =~ /(?<=\s)c\w+\b/g;
    
  2. or download this
     ... 
     print header('text/html');
     print h1('Local Network: '. $addr . '/24');
     print map "$_ appears to be up<br />", @hosts
     ...
    
  3. or download this
     ...
     my ($exe, $cmd) = ('/usr/bin/rsh', 'ps -fl r -u username');
    ...
      ...
      ++$cnt
      ...
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://643113]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2021-01-25 01:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?