記号の前に文字列を取り込む方法

Question

朝、すべて コロンの前の文字列をキャプチャする： コロンの後の文字列を比較し、コロンの前の値と等しい値を削除します。例えば

：

aaa:aaa-bbb-ccc 

出力：

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

以下

aaa others:bbb,ccc 

私のコードあなたは私を助けてくださいことはできますか？ （。* \）..

Answer 1

ありがとうこの作品

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