免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3271 | 回复: 3

合并文本不换行求救.... [复制链接]

论坛徽章:
0
发表于 2014-12-01 16:32 |显示全部楼层
求救........
怎么 实现文本 a1.txt=(
123
a11
c466
b762
);

文本 a2.txt=(
923
311
t466
e762
);

怎么合并成a3文本呢?
a3.txt=(
123 923
a11 311
c466 t466
b762 e762
);
   合并两个文本不换行.......

论坛徽章:
8
技术图书徽章
日期:2013-08-22 11:21:28未羊
日期:2015-01-19 22:22:25巳蛇
日期:2014-08-11 16:53:08子鼠
日期:2014-05-29 09:04:44摩羯座
日期:2014-04-11 14:15:07丑牛
日期:2014-01-24 12:41:28金牛座
日期:2013-11-21 17:38:28射手座
日期:2015-01-21 08:50:32
发表于 2014-12-01 22:46 |显示全部楼层
文本不大,用hash,以列为key,合并。
文本比较大,用Tie::File或者IO::File

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2014-12-02 09:15 |显示全部楼层
$i=0;
while(<>){
    chomp;

    if(++$i == $.){
        push @a1, $_;
    }
    else{
        print $a1[$. -1]," ", $_,"\n";        
    }
} continue{
    close ARGV if eof;
}



论坛徽章:
0
发表于 2014-12-03 09:11 |显示全部楼层
感谢 huang6894 、ntwarren两位热心朋友的解答,受教了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP