用perl

Question

替換單杆串

我輸入：

my $tmp = "rrccllrrc"; 

預期輸出：

$tmp = "right right center center left left right right center"; #End should not be spaced definitely. 

我的代碼：

$tmp=~s/c/center /g; 
$tmp=~s/l/left /g; 
$tmp=~s/r/right /g; 

有人可以幫助縮短的方式來代替正則表達式儘可能多。

Answer 1

可以不用正則表達式以及

my %repl = (c => 'center', l => 'left', r => 'right'); 

$tmp = join ' ', map { $repl{$_} } split '', $tmp; 

的split與''斷線到它的字符的列表，並使用map哈希通過其完整的字來代替每個圖案。輸出列表map由空格連接。

---

更新後評論

如果原始字符串包含另一些字符，可以過濾出來第一

$tmp = join ' ', map { $repl{$_} } grep { /c|l|r/ } split '', $tmp; 

，或者在map使用空列表任何ISN沒有在散列中定義

$tmp = join ' ', map { $repl{$_} //() } split '', $tmp; 

這可以完全除去c|l|r以外的所有內容。將它們保留在結果中

$tmp = join ' ', map { $repl{$_} // $_ } split '', $tmp; 

它們以空格分隔。保持它們在一起需要進一步調整。

Answer 2

您可以替代使用替代品的哈希：

#! /usr/bin/perl 
use warnings; 
use strict; 
use feature 'say'; 

my $tmp = "rrccllrrc"; 

my %replace = (r => 'right', 
       c => 'center', 
       l => 'left'); 

$tmp =~ s/(.)/$replace{$1} /g; 
chop $tmp; 
say "<$tmp>";