Perl 初心者コーナー Part23

[0982 nobodyさん 03/06/07 19:13 ID:???]

>>967
どうやってできなかったのかな？うちでは両方できたけど。
%list = (
    '(^-^)', 'kao1.gif',
    '(T-T)', 'kao2.gif',
);
$msg =~ s/\Q$_\E/$list{$_}/g for(keys %list);