刪除製表符 - perl的

Question

我用下面的Perl表達式刪除選項卡從here

$text =~ s{(.*?)\t}{$1.(' ' x ($g_tab_width - length($1) % $g_tab_width))}ge; 

我已經簡化我的理解和翻譯下面的這個（假定四個空格的標籤寬度）

$text =~ s/(.*?)\t/' '/; 

，但我覺得我打破了愛因斯坦的指令

讓事情就這麼簡單possib樂，但並不簡單。

我用下面的輸入字符串測試。

"\t \t" 
"\t\t \t" 
"\t\t \t\t \t" 
"\t\t \t\t  \t" 

有人可以證明輸入字符串，會給這兩個不一致的結果嗎？

Answer 1

（除去標籤的問題空間內）我即認爲你的第二簡化的表達被認爲是：

$text =~ s/(.*?)\t/$1 /g; 
# four spaces -------^^^^ 

和$g_tab_width爲四個;在這裏沒有別的東西對我有意義，所以我會過着危險的生活，並認爲事情應該是有道理的。

鑑於這種情況，幾乎任何標籤會產生不同的結果。例如：

"where\tis pancakes house?" 

可生產這些結果：

"Where is pancakes house?" # Long method. 
"Where is pancakes house?" # Simplified method. 

直播版本：http://ideone.com/LbnNx

他們都會產生相同的結果是，當你的非標籤組件都是4唯一的一次* n個字符長，例如：

"xxxx\tyyyy\tzzzz" 

直播版本：http://ideone.com/Kvp3l