Discussion :

[jean tof]

Bonjour,

Voila mon souci, j'ai une chaine de caractere comme ceci

Cisco Internetwork Operating System Software
IOS (tm) C2950 Software (C2950-I6Q4L2-M), Version 12.1(13)EA1, RELEASE SOFTWARE
(fc1)
Copyright (c) 1986-2003 by cisco Systems, Inc.
Compiled Tue 04-Mar-03 02:14 by yenanh
Image text-base: 0x80010000, data-base: 0x805A8000

ROM: Bootstrap program is CALHOUN boot loader

SW3 uptime is 2 days, 1 hour, 57 minutes
System returned to ROM by power-on
System image file is \"flash:/c2950-i6q4l2-mz.121-13.EA1.bin\"

cisco WS-C2950-12 (RC32300) processor (revision J0) with 20839K bytes of memory.

Processor board ID FOC0716Z1J7
Last reset from system-reset
Running Standard Image
12 FastEthernet/IEEE 802.3 interface(s)

32K bytes of flash-simulated non-volatile configuration memory.
Base ethernet MAC Address: 00:0C:CE:61:9D:C0
Motherboard assembly number: 73-5782-11
Power supply part number: 34-0965-01
Motherboard serial number: FOC07160KH4
Power supply serial number: PHI07060E7M
Model revision number: J0
Motherboard revision number: A0
Model number: WS-C2950-12
System serial number: FOC0716Z1J7
Configuration register is 0xF

provenant d'un switch Cisco 2950 et j'aimerais pouvoir recupérer la version de l'IOS soit "12.1(13)EA1" (ligne 2). Je pensais faire une recherche du mot "version" puis recupérer tout ce qu'il y a après jusqu'a ce que l'on trouve un virgule, mais je n'y arrive pas
Donc si quelqu'un a une idée, merci de m'en faire part.

P.S. Je débute en perl

[TedTed]

C'est très simple mon petit Jean-Tof, tu n'as qu'à faire une expression régulière. Tu récupères tes lignes dans une variable.

$x=ce que tu récupères de ton switch;

if ($x =~ /Version\s*(.+)\s*,/)
{ $version = $1; print $version; }

#Tu récupères ce qui se trouve entre "Version" et la virgule qui suit "," grâce aux "(" ")" et la variable $1.

A++

[jean tof]

Merci bien mon p'tit TedTed