追加n個爲整

Question

的前綴我有一個CSV文件中的以下數據。

2454,"dum my" 
12345,"dummy" 
300001,"du m m y" 

我想知道，我可以用什麼正則表達式，把它們變成

002454,"dummy" 
,"dummy" 
300001,"dummy" 

感謝。

Answer 1

我建議你閱讀並分別改寫CSV使用文本:: CSV_XS文件和操作的領域，但如果你必須只使用正則表達式，像這樣：

sub strip_spaces { my $str = shift; $str =~ y/ //d; $str } 
s/(\d+)/ sprintf '%.6d', $1 /e; 
s/("[^"]+"$)/ strip_spaces($1) /e;