Bonjour,
J'ai un petit soucis concernant une expression régulière. J'ai en fait un texte du style :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Site-Id: belgique
Arc-ID: TEST1
System-Status: System Secure at 10:26:30 on 06-06-2005
Local-IP: 192.168.0.1
Activating-Channel: 4
Activating-Detector: 4
Response-Images: 4,4
Response-Area: Zone 4
Response-Level: YELLOW
Rec-Index: 08:26:30 on 06-06-2005
Alarm-Time: 10:26:30 on 06-06-2005
Je souhaite mettre tout ceci dans un hash. J'arrive au résultat suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
$VAR1 = {
',        'System-Exception' => ' END
',        'Local-IP' => ' 192.168.111.10
',        'Site-Id' => '
',        'Camera-Fail' => ' Camera 1 failed, reporting suspended
',        'System-Status: System Secure at 13:29' => '50 on 07-06-2005
',        'Alarm-Time: 13:32' => '06 on 07-06-2005
'         'Arc-ID' => ' DVIP
        };
j'aimerai "simplement que la séparation pour Alarm-Time et System-Status se face au premier ':' seulement.

je fais donc pour l'instant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
my @alarmaa = split(/\n/,$answer);
    foreach my $exp (@alarmaa){
   		$exp =~ m/^(.*):(.*)/;
    	$alarm{$1} = $2;
    }
Merci d'avance de vos réponses!!!