新手问题：如何将文件里两行合并为一行（含具体文件格式）？

jyleon24

文件格式如下，要处理大量这类数据，第一行开头有8个\s，第二行开头有22个\s
本人是perl新手，功力不够，请大侠指点，谢谢了
        chain "chain0" = "11011101110101101000101010000111100001000000110001\
                      10110010010010000011000011110010111101000110110001";

[ 本帖最后由 jyleon24 于 2009-3-25 13:50 编辑 ]

MMMIX

Perl 的功力先放一边，先把你描述问题的功力好好练练。

shucho

貌似再说第一行开头有8个空格，第二行开头有22个空格，接下来要解析出什么东西来呢？

chenzq1604

  怎么个处理法？

jyleon24

不好意思，就是如标题所说一样，把这两行并成一行，例如：
        chain "chain0" = "11011101110101101000101010000111100001000000110001\
                      10110010010010000011000011110010111101000110110001";
处理为：
        chain "chain0" = "11011101110101101000101010000111100001000000110001\10110010010010000011000011110010111101000110110001";

貌似页面可显示的长度不够，就是把第二行添加到第一行的末尾，把两行合并成一行

[ 本帖最后由 jyleon24 于 2009-3-25 14:39 编辑 ]

redmaple_v1

偶还是没有看懂呢。。

“忽略这句话”

[ 本帖最后由 redmaple_v1 于 2009-3-25 14:58 编辑 ]

jyleon24

我把数据改短一点，应该好一点：
原数据：
        chain "chain0" = "110011001000000110001\
                      101100100001100110001";

正如三楼说的一样，第一行开头有8个空格，第二行开头有22个空格
处理为：
        chain "chain0" = "110011001000000110001\101100100001100110001";

marscld

试试先 split(), 再 join(). 这两个函数在perl文档中可查

which

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. open FILE ,"text.txt";
   
5. read(FILE,$text,-s "text.txt");
   
6. print $text;
   
7. 
   
8. $text =~ s/(\t+)(.*?)(?:\n|\t)+(.*)/$1$2$3/s;
   
9. print $text;
   

复制代码

[ 本帖最后由 which 于 2009-3-25 15:03 编辑 ]

which

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. open FILE ,"text.txt";
   
5. read(FILE,$text,-s "text.txt");
   
6. print $text;
   
7. 
   
8. $text =~ s/(\t+.*?)(?:\n|\t)+(.*)/$1$2/s;
   
9. print $text;
   

复制代码