IF avec 3 condtions

IF avec 3 condtions - Perl - Programmation

Marsh Posté le 17-06-2013 à 10:39:10    

Bonjour à tous,
 
Pour le besoin de mon script j'aimerai  faire un if avec 3 conditions mais je bloque un peu là :cry:
 
Merci d'avance pour votre aide!

Code :
  1. #!/usr/bin/perl
  2. use Net::Telnet;
  4. unless (open ($file, "switch.txt" )) { die ("cannot open file Switch.txt\n" ); } #fichier qui contient les adresses et noms des switchs
  5. unless (open ($logfile, ">>syslog.txt" )) { die ("cannot open file Log.txt\n" ); } #fichier qui contient les sessions telnet échouées
  7. while ($line = <$file> )
  8. {
  9.     ($HOST,  $NAME, $CODE, $RADIUS) = split(/;/, $line);
  11.         if ($TELNET->open($HOST) && $CODE eq 'switch' &&  $RADIUS eq 'yes' )
  12.             {
  13.             .
  14.             .
  15.             .
  16.             .
  17.              .
  19.             }
  21.         else     
  22.             {
  23.             .
  24.             .
  25.             }
  27. }
  28. close ($file);
  29. <>; #Garde la fenêtre ouverte après la fin de l'exécution du script


 
 
Depuis que j'ai mis use warning;
 
j'ai ce message qui apparait:

Code :
  1. Name "main:ASSSWITCH" used only once: possible typo at C:\Perl\Scriptperl\TFTP
  2. .pl line 25.
  3. Name "main::YES" used only once: possible typo at C:\Perl\Scriptperl\TFTP.pl lin
  4. e 16.


Message édité par Mustaal le 17-06-2013 à 11:42:02
Reply

Marsh Posté le 17-06-2013 à 10:39:10   

Reply

Marsh Posté le 17-06-2013 à 13:25:46    


Problème résolu grâce à chmod();
 
Merci.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed