Comment capturer la chaîne avant le symbole

Question

matin tout, Je veux capturer la chaîne avant les deux points: puis comparer la chaîne après les deux points et supprimer les valeurs qui sont égales aux valeurs avant le côlon.

Par exemple:

aaa:aaa-bbb-ccc 

Sortie:

aaa others:bbb,ccc 

mon code ci-dessous

$string = "aaa:aaa-bbb-ccc"; 
$first =~ /(:.*\)/; //get aaa before the colon 
$others =$string=~ s/$first//; remove the same values after colon 

Pouvez-vous s'il vous plaît me aider ?? Merci ..

Answer 1

Cela fonctionne:

use strict; 
use warnings; 

my $s='aaa:aaa-bbb-ccc'; 
if ($s=~/^([^:]+):/) { 
    my $first=$1; 
    $s=~s/\Q$1\E://; 
    print "$first others:" . join ',', grep { $_ ne $first } split '-', $s; 
} 
# aaa others:bbb,ccc