Linux за българи: Форуми

GeSHi (Bash):
#!/bin/bash
echo "Въведи пълният път до фаила с IP адресите : "
read path
for file in `cat $path`
do
ping -c 1 -A $file | grep ttl
done

GeSHi (Perl):
#!/usr/bin/perl -w
 
print "Въведи точният път до фаила с IP адресите : ";
$path = <STDIN>;
 
open(IPlist ,$path) or die $!;
while($IP = <IPlist>) 
{ 
if (`ping -c 1 "$IP" | grep ttl`) {
 print "-" x 80;
 print "$IP :Host is Alive\n"; } else {
 print "-" x 80;
 print "$IP :Host is Dead\n";}
}
close(IPlist);

GeSHi (C++):
#include <iostream>
#include <fstream>
#include <string.h>
#include <stdlib.h>
 
 
int main ()
{
  char str[15];
  char IP[15];
  char* path;
 
  std::cout<< "Въведи точния път до фаила с IP адресите : ";
  std::cin>> path;
  strcpy(str,"ping -c 1 ");
 
  std::fstream iplist(path,std::ios::in);
        while(iplist >> IP)
 { strcat(str,IP);
   system(str);
   strcpy(str,"ping -c 1 ");
   }
return 0; }