perl正则表达式来分隔文本中的每个字母

Question

如何使用perl正则表达式转换以下文本：

1100101
1100111
1110001
1110101

到

1 1 0 0 1 0 1
1 1 0 0 1 1 1
1 1 1 0 0 0 1
1 1 1 0 1 0 1

我尝试使用

perl -pe 's// /g' < text.txt

但它给了我一些有趣的结果：

 1 1 0 0 1 0 1
  1 1 0 0 1 1 1
  1 1 1 0 0 0 1
  1 1 1 0 1 0 1

Answer 1

perl -pe 's/(?<=[^\n])([^\n])/ \1/g'

Answer 2

为什么要使用正则表达式？

perl -pe '$_ = join " ", split ""'

Answer 3

使用预见：

perl -pe 's/(\d)(?=.)/$1 /g'

使用前瞻和后视：

perl -pe 's/(?<=\d)(?=.)/ /g'

Answer 4

使用自动拆分的另一种方法：

 perl -F// -ane 'print "@F";' file

Answer 5

或者像这样...

$ perl -pe 's/(?<!^)(\d)/ \1/g' input
1 1 0 0 1 0 1
1 1 0 0 1 1 1
1 1 1 0 0 0 1
1 1 1 0 1 0 1

......这里对负面正则表达式有一个很好的解释： negative regex for perl string pattern match

Answer 6

你快到了：

perl -pe 's/(.)/$1 /g' your_file

测试如下：

> cat temp
1100101
1100111
1110001
1110101
> perl -pe 's/(.)/$1 /g' temp
1 1 0 0 1 0 1 
1 1 0 0 1 1 1 
1 1 1 0 0 0 1 
1 1 1 0 1 0 1