Perl

IF avec 3 condtions

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : IF avec 3 condtions

Mustaal

Je ne cherche pas à connaître

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 :

#!/usr/bin/perl
use Net::Telnet;
unless (open ($file, "switch.txt" )) { die ("cannot open file Switch.txt\n" ); } #fichier qui contient les adresses et noms des switchs
unless (open ($logfile, ">>syslog.txt" )) { die ("cannot open file Log.txt\n" ); } #fichier qui contient les sessions telnet échouées
while ($line = <$file> )
{
($HOST, $NAME, $CODE, $RADIUS) = split(/;/, $line);
if ($TELNET->open($HOST) && $CODE eq 'switch' && $RADIUS eq 'yes' )
{
.
.
.
.
.
}
else
{
.
.
}
}
close ($file);
<>; #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 :

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

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

Publicité

Mustaal

Je ne cherche pas à connaître

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

Merci.

Perl

Sujets relatifs
Nombre négatif dans un IF	Double condition IF
Problème sur une fonction IF	[VBA]Comment traduire If A1=A2=.... Then
[VBS] If ligne = xxx sauter	Fichier .bat avec IF successifs [Résolu]
Batch GOTO et IF	Utiliser IF pour affiner un ORDER BY en MySQL
[Script Batch] Un /p dans un IF EXIST ?	programmer fonction If-Thene-Else pour des fonction booleene
Plus de sujets relatifs à : IF avec 3 condtions

Page générée en 0.040 secondes