作者firegsh (~\cite{yaranaiga})
看板Perl
标题[问题] 另一个字串处理+正规表示的问题
时间Fri Oct 7 13:45:22 2011
打扰大家，目前又碰到另一个资料处理的新问题
我大致描述一下这个问题：
有一个档案内容是这样的
(start
(1 (1.1 ...
(2 (2.2 ...
...
...
...
(end
(start
...
(end
它是一个项目式的内容，以(start和(end做分隔，逐行读入
(start和(end不会做处理，只会当成是判断档案分隔的依据
然後我目前想要做的是把它进行两个处理
一是根据每一行前面空白的数量来计算，这里以$count举例
(start #$count=0
(1 (1.1 ... #$count=1
(2 (2.1 ... #$count=2
...
(7 (7.1 ... #$count=1
这里我要做的是，除了$count=0的情形，
所有的$count数相同的资料都归类到$count数少一的那个资料底下
print後结果会像是
(1:(2,(5,(6
用':'和','进行分隔
这里(1的$count=1而(2 (5 (6的$count=2，以此类推
二是我希望这读入的档案中同一行也归类到那一行的第一个资料底下
以下为例子
(1 (1.1 (1.2 ... #$count=1
处理之後会print
(1:(1.1,(1.2,(1.3...
因为count数相同所以放在一起，而同样用':'和','进行分隔
以上一跟二的case是独立去进行的
目前大概只能做出个不能执行的雏型，还不确定正不正确...请大家解惑，谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.117.169.190