perl 格式化显示

xiaomifeng789

大神们好，有个数据格式化显示的问题搞不定，麻烦大家帮忙一下。

具体数据如下：

--data--
aa: 上海市儿童医院 bb: 上XX路1400弄24号 cc:  021-62474880（总机） dd: 呼吸科 ee: 国营 ff: http://www.shchildren.com.cn
aa: 上海长征医院 bb: 上XX415号 cc:  021-81886999（总机）；021-63586818，63586828（咨询） dd: 心血管内科 ee: 国营 gg: 021-63520020 hh: 1@1.cn
aa: 复旦XX bb: XX180号(住院部) cc:  021-64041990(总机)；64041990-2008,2009,2010(预约) dd: 病理科、核医学科 ee: 国营 ff: http://www.zs-hospital.sh.cn
aa: 上海市第一XX bb: 浦西总院： cc:  021-54035206（浦西总院）；021-58838888（浦东分院） dd: 新生儿科 ee: 国营 ff: http://www.51mch.com
aa: 上海市精神卫生中心 bb: 总院：XX号 cc:  021-64387250，34289888（总院）；021-64901737（分院） dd: 急重症病房 ee: 国营 gg: 200030 ff: http://www.smhc.org.cn/
aa: 上海交通XX bb: 上海市1665号 cc:  021-55571133(预约挂号)；021-25078999(总机)；021-69692701(崇明分院) dd: 皮肤科、临床营养科 ee: 国营 hh: webmaster@xinhuamed.com.cn ff: http://www.xinhuamed.com.cn/Web/FirstPage.aspx
aa: 上海中XX（龙华医院） bb: 上海725号 cc:  021-64385700（总机） dd: 儿科 ee: 国营 gg: 021-64398310 hh: longhua@longhua.net（全院) ff: http://www.longhua.net

想要的结果是这样的，
aa                         bb                         cc                                    dd            ee                  ff                                                       gg                        hh
上海市儿童医院        上XX路1400弄24号   021-62474880（总机）      呼吸科       国营                 http://www.shchildren.com.cn               
上海长征医院           上XX415号              021-81886999（总机）；   心血管内科  国营                http://www.shczyy.com                      021-63520020       1@1.cn

xiaomifeng789

想到的方法是要用到hash，但是我技术能力，半天，因为有中文的原因，显示的结果不对。大神帮忙啊。

sunzhiguolu

1. perl format.pl | column -t

复制代码

xiaomifeng789

回复 3# sunzhiguolu

没有代码吗？我现在认为是使用hash或数据，但是不知道怎么来定位数据的位置。

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDOUT, ':encoding(utf8)');
   
7. print join ("\t", 'aa', 'bb', 'cc', 'dd', 'ee', 'ff'), "\n";
   
8. while (<DATA>){
   
9.     s/[a-z]+://g;
   
10.     print;
    
11. }
    
12. 
    
13. __DATA__
    
14. aa: 上海市儿童医院 bb: 上XX路1400弄24号 cc:  021-62474880（总机） dd: 呼吸科 ee: 国营 ff: http://www.shchildren.com.cn
    
15. aa: 上海长征医院 bb: 上XX415号 cc:  021-81886999（总机）；021-63586818，63586828（咨询） dd: 心血管内科 ee: 国营 gg: 021-63520020 hh: 1@1.cn
    
16. aa: 复旦XX bb: XX180号(住院部) cc:  021-64041990(总机)；64041990-2008,2009,2010(预约) dd: 病理科、核医学科 ee: 国营 ff: http://www.zs-hospital.sh.cn
    
17. aa: 上海市第一XX bb: 浦西总院： cc:  021-54035206（浦西总院）；021-58838888（浦东分院） dd: 新生儿科 ee: 国营 ff: http://www.51mch.com
    
18. aa: 上海市精神卫生中心 bb: 总院：XX号 cc:  021-64387250，34289888（总院）；021-64901737（分院） dd: 急重症病房 ee: 国营 gg: 200030 ff: http://www.smhc.org.cn/
    
19. aa: 上海交通XX bb: 上海市1665号 cc:  021-55571133(预约挂号)；021-25078999(总机)；021-69692701(崇明分院) dd: 皮肤科、临床营养科 ee: 国营 hh: webmaster@xinhuamed.com.cn ff: http://www.xinhuamed.com.cn/Web/FirstPage.aspx
    
20. aa: 上海中XX（龙华医院） bb: 上海725号 cc:  021-64385700（总机） dd: 儿科 ee: 国营 gg: 021-64398310 hh: longhua@longhua.net（全院) ff: http://www.longhua.net

复制代码

perl format.pl | column -t

sunzhiguolu

回复 4# xiaomifeng789

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDOUT, ':encoding(utf8)');
   
7. print join ("\t", 'aa', 'bb', 'cc', 'dd', 'ee', 'ff'), "\n";
   
8. while (<DATA>){
   
9.     s/[a-z]+://g;
   
10.     print;
    
11. }
    
12. 
    
13. __DATA__
    
14. aa: 上海市儿童医院 bb: 上XX路1400弄24号 cc:  021-62474880（总机） dd: 呼吸科 ee: 国营 ff: http://www.shchildren.com.cn
    
15. aa: 上海长征医院 bb: 上XX415号 cc:  021-81886999（总机）；021-63586818，63586828（咨询） dd: 心血管内科 ee: 国营 gg: 021-63520020 hh: 1@1.cn
    
16. aa: 复旦XX bb: XX180号(住院部) cc:  021-64041990(总机)；64041990-2008,2009,2010(预约) dd: 病理科、核医学科 ee: 国营 ff: http://www.zs-hospital.sh.cn
    
17. aa: 上海市第一XX bb: 浦西总院： cc:  021-54035206（浦西总院）；021-58838888（浦东分院） dd: 新生儿科 ee: 国营 ff: http://www.51mch.com
    
18. aa: 上海市精神卫生中心 bb: 总院：XX号 cc:  021-64387250，34289888（总院）；021-64901737（分院） dd: 急重症病房 ee: 国营 gg: 200030 ff: http://www.smhc.org.cn/
    
19. aa: 上海交通XX bb: 上海市1665号 cc:  021-55571133(预约挂号)；021-25078999(总机)；021-69692701(崇明分院) dd: 皮肤科、临床营养科 ee: 国营 hh: webmaster@xinhuamed.com.cn ff: http://www.xinhuamed.com.cn/Web/FirstPage.aspx
    
20. aa: 上海中XX（龙华医院） bb: 上海725号 cc:  021-64385700（总机） dd: 儿科 ee: 国营 gg: 021-64398310 hh: longhua@longhua.net（全院) ff: http://www.longhua.net

复制代码

perl format.pl | column -t

xiaomifeng789

回复 6# sunzhiguolu

首先，谢谢，我的数据您没仔细看明白，我例出来的，aa,bb，这些数据，也许是在第1行的第2，第3的做位置，也许在第2行的第5，第7位置，还会有可以，aa在第4位有数据，BB却没有数据。这种情况，
简单点说，总列数是固定的，但是第一行的列数不固定，而且第一行这些列的位置也不固定，我现在想要整理成固定的。

sunzhiguolu

回复 7# xiaomifeng789
能否给个具体的示例数据, 将预期的结果贴出来?