Faites partager vos programmes !

#!c:/perl/bin/perl -w
$| = 1 ;

# Variable globale

# ... avec petite initialisation pour ne pas partir d'un tableau vide



use Net::Ping;


@Adr = (

  [192,168,2,21] ,

  [192,168,2,7] ,

  [192,168,2,254]

) ;

# Fonctions/ProcÈdures


sub PosAdrIP

{

  my($adresse)=@_;

  my $pos =-1;

  my $i=0;

  while ($i<=$#Adr and $pos==-1)

  {

    if($adresse eq join (".",@{$Adr[$i]}))

    {

      $pos=$i;

    }

    else

    {

        $i++;

    }

  }

    return $pos

}


# ProcÈdure AfficherMenu()
sub AfficherMenu
{
  print <<FIN_MENU;

                            ---- MENU ----

                    m(E)moriser l'adresse d'un poste

                    (S)upprimer une adresse

                    (M)odifier une adresse

                    (A)fficher les adresses

                    (N)ombre d'adresses par classe(A,B et C)

                    (P)ostes connectes

                    (Q)uitter

                            --------------



FIN_MENU
}


# ProcÈdure MemoriserAdresse()

sub MemoriserAdresse

{

  print "Saisir l'adresse IP du poste : ";

  my $adresse=<STDIN>; chomp $adresse;

  my @oct=split (/\./,$adresse);

  push (@Adr,\@oct);

}



# ProcÈdure SupprimerAdresse()

sub SupprimerAdresse

{

  &AfficherAdresses();

  print "Saisir l'adresse a Supprimer : ";

  my $adresse=<STDIN>; chomp $adresse;

  my $pos=&PosAdrIP($adresse);

  splice(@Adr,$pos,1);

  print "Supression bien effectuee\n\n";

}



# ProcÈdure ModifierAdresse()

sub ModifierAdresse

{

  &AfficherAdresses();

  print "Saisir l'adresse IP a modifie : ";

  my $ip=<STDIN>; chomp $ip;

  my $pos=&PosAdrIP($ip);

  if($pos!=-1)

  {

    print "Saisir le numero de l'octet a modifier : ";

    my $num_octet=<STDIN>; chomp $num_octet;

    print "Saisir la nouvelle valeur de l'octet a modifier : ";

    my $val_octet=<STDIN>; chomp $val_octet;



    $Adr[$pos]->[$num_octet-1]=$val_octet;

    print "Votre adresse est desormais modifiee ! \n\n";

  }

 

}



# ProcÈdure AfficherAdresses()

sub AfficherAdresses

{

  print ".....\n\n";

  for (my $i=0 ; $i<=$#Adr ; $i=$i+1)

  {

    print join (".", @{$Adr[$i]}),"\n";

  }

  print ".....\n\n";

}



# ProcÈdure NbAdresses()

sub NbAdresses

{

  my ($classe,$cpt,$cpt1,$cpt2,$l);

  $cpt=0;

  print "Quelle classe voulez vous connaitre ? (A,B ou C) : ";

  $classe=<STDIN>;

  chomp $classe;

  print "\n";

  if ($classe eq 'A' or $classe eq 'a')

  {

      for ($l=0; $l<=$#Adr; $l=$l+1)

      {

        if ($Adr[$l]->[0] >=1 and $Adr[$l]->[0]<= 126)

        {

          $cpt=$cpt+1;

        }

      }

      print "$cpt\n\n" ;

    }

    elsif ($classe eq 'B' or $classe eq 'b')

    {

      for ($l=0; $l<=$#Adr; $l=$l+1)

      {

        if ($Adr[$l]->[0] >=128 and  $Adr[$l]->[0] <=191)

        {

          $cpt=$cpt+1;

        }

      }

      print "$cpt\n\n" ;

    }

    elsif ($classe eq 'C' or $classe eq 'c')

    {

      for ($l=0; $l<=$#Adr; $l=$l+1)

      {

        if ($Adr[0]->[0] >=192 and $Adr[0]->[0] <=223)

        {

          $cpt=$cpt+1;

        }

      }

      print "$cpt\n\n" ;

    }

    else

    {

      print " Classe inconnue \n\n";

    }

}



# ProcÈdure PosteConnectes()

sub PostesConnectes

{

  $cmd=Net::Ping->new('icmp');

  for ($l=0; $l<=$#Adr; $l=$l+1)

    {

      my $adresse=join(".", @{$Adr[$l]});

      if($cmd->ping($adresse))

        {

        print "$adresse est connecte \n";

        }

      else

        {

          print "$adresse n'est pas connecte pour le moment \n";

        }

    }

$cmd->close();



}


# ProcÈdure Aiguiller(e choix:CaractËre)
sub Aiguiller
{
  my($choix) = @_ ;
  if($choix eq 'E')
  {
    &MemoriserAdresse() ;
  }
  elsif($choix eq 'S')
  {
    &SupprimerAdresse() ;
  }
  elsif($choix eq 'M')
  {
    &ModifierAdresse() ;
  }
  elsif($choix eq 'A')
  {
    &AfficherAdresses() ;
  }
  elsif($choix eq 'N')
  {
    &NbAdresses() ;
  }
  elsif($choix eq 'P')
  {
    &PostesConnectes() ;
  }
  elsif($choix eq 'Q')
  {
    print "A une prochaine...\n" ;
  }
}



# Fonction SaisirChoix():CaractËre
sub SaisirChoix
{
  my($choix) ;
  do
  {
    print "Choix > " ;
    $choix = <STDIN> ;
    chomp $choix ;
    $choix = uc($choix) ;
  } until(length($choix) == 1 and index("EAMSPNQ",$choix,0) >= 0) ;
  return $choix ;
}


# main

my($choix) ;
print "\n\n";
print "                          Ping Corporation\n" ;

print "                              By GuiGui \n";
print "              Gestion d'adresses IP - version 0.0.1\n\n" ;

print "\n\n";

do
{
  &AfficherMenu() ;
  $choix = &SaisirChoix() ;
  &Aiguiller($choix) ;
} until($choix eq "Q" ) ;