如何使用perl将空格转换为新行？

Question

---

我有以下输入存储在名为$ var1的单个标量变量中。

输入（即存储在$ VAR1）

Gain Dead_coverage Export_control Functional_coverage Function_logic top dac_decoder Datapath System_Level Black_DV Sync_logic temp1 temp2 temp3 temp4 temp5 temp6 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 

预期输出：

Gain 
Dead_coverage 
Export_control 
Functional_coverage 
Function_logic 
top 
dac_decoder 
Datapath 
System_Level 
Black_DV 
Sync_logic 
temp1 
temp2 
temp3 
temp4 
temp5 
temp6 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 

我的代码：

我试过以下的正则表达式。

$var1=tr{\s}{\n}; 

上面的正则表达式不会带来我的预期输出。

注意：数字的范围可能高达n个数字，字符可能以大写或小写字母开头或结尾。无论我需要带来如预期的输出。对于那个正则表达式我可以使用它。

要求：

1.split space into new line. 
2.for numbers(i.e 123456789101112.....) it should be considered as follows 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
. 
. 
. 
so on,... 

After digit 9 the other numbers should be considered as double digit. 

Answer 1

tr

是音译。这只适用于个人角色，而不是模式。您需要使用s///和/g修饰符。

$var1 =~ s/\s/\n/g; 

您还可以split和join做到这一点。

$var1 = join "\n", split//, $var1; 

它不应该在性能方面的差异，即使有字符串很多。