[Perl] Compter nombre de lignes

Fermé
titexe2009 Messages postés 12 Date d'inscription dimanche 1 novembre 2009 Statut Membre Dernière intervention 15 novembre 2010 - Modifié par titexe2009 le 15/11/2010 à 12:02
Bonjour,

Merci de m'aider a faire ceci en perl :

j'ai le résultat suivant d'une commande que j'execute a partir du perl et que j'enregistre le resultat dans un fichier :

PrefetchSize = 1000
ConduitSubscriptions = false
Type = NetworkConnector
BridgeTempDestinations = true
DynamicOnly = false
NetworkTTL = 1
Duplex = false
Name = A_TO_B
DecreaseNetworkConsumerPriority = false
NetworkConnectorName = A_TO_B
DispatchAsync = true
BrokerName = FR

PrefetchSize = 1000
ConduitSubscriptions = false
Type = NetworkConnector
BridgeTempDestinations = true
DynamicOnly = false
NetworkTTL = 1
Duplex = false
Name = B_TO_C
UserName = system
DecreaseNetworkConsumerPriority = false
Password = *******
NetworkConnectorName = B_TO_C
DispatchAsync = true
BrokerName = FR


je veux compter combien de lignes contient "Type = NetworkConnector" si c'est moins de 2 j'affiche erreur et si c'est 2 c 'est OK

dans les 2 cas je veux aussi afficher les valeurs de "NetworkConnectorName" dans l'exemple c'est "A_TO_B" et "B_TO_C"

Merci d'avance