忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 806 | 回复: 5

空内容的处理 [复制链接]

论坛徽章:
0
发表于 2017-10-18 15:48 |显示全部楼层
本帖最后由 LT2016 于 2017-10-18 22:03 编辑

请教各位,我写了一个perl程序,用途是在每一行最后添加一列内容。如果原文件最后一列或几列是空的,我的程序添加后列会错乱,而我想保留原来空的列,这种情况如何处理?
我输出这样写的 print "$line,\t$new\n"

比如文件如下,添加一列T:
B    B    B
B    B
我的输出会变成,
B    B    B    T
B    B    T

但是我希望得到如下,
B    B    B    T
B    B           T

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2017-10-18 16:37 |显示全部楼层
先不说怎么用 Perl 实现,
你用汉语先说一遍,这种情况应该怎么办呢?

论坛徽章:
0
发表于 2017-10-18 22:04 |显示全部楼层
回复 2# flw

我说的不清楚吗?

论坛徽章:
45
15-16赛季CBA联赛之广夏
日期:2017-06-02 21:46:59天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:452015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2017-10-19 10:31 |显示全部楼层
写两个程序,一个把原文件用空格补齐了,再用你现在的方法添加

论坛徽章:
0
发表于 2017-10-19 17:17 |显示全部楼层
perl有什么方法在print的时候,打印行尾的空值吗?

论坛徽章:
10
子鼠
日期:2014-10-11 16:46:482016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:5315-16赛季CBA联赛之山东
日期:2017-11-10 14:32:14
发表于 2017-10-19 17:33 |显示全部楼层
本帖最后由 523066680 于 2017-10-19 18:34 编辑

load each line of the file, delete \r and \n at the end of line,
get string length of each line,
get max one,
print each line with formated %-${max}s\t$newstr\n

跛脚英语,就这样
稍微绕一下:
  1. use List::Util qw/max/;

  2. sub get_each_line { (<DATA>) }
  3. sub get_each_len_of { map { $_=~s/\r?\n$//; length($_) } @_ }
  4. sub print_each_of { grep { printf "%-${_[2]}s    %s\n", $_, $_[4] } @{$_[0]}; }

  5. $newstr = "T";
  6. my @lines = get_each_line;
  7. my $max   = max get_each_len_of @lines;
  8. print_each_of \@lines, set_length => $max, append => $newstr;

  9. __DATA__
  10. B    B    B    B
  11. B    B    B
  12. B    B
  13. B
复制代码

您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP