免费注册 查看新帖 |

Chinaunix

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

求助,麻烦大家,一个插入问题~老折腾不好! [复制链接]

论坛徽章:
0
发表于 2016-04-20 07:15 |显示全部楼层
输入:
a 3 20
a 6 50
b 5 60
b 7 30

输出:
a
1 0
2 0
3 20
4 0
5 0
6 50

b
1 0
2 0
3 0
4 0
5 60
6 0
7 30

就是 第二列 按顺序 补齐 空位0

请大神帮忙~~指点!~  先感谢了!!!

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2016-04-20 08:24 |显示全部楼层
回复 1# xiayuu119

$ perl put0.pl
a
1 0
2 0
3 20
4 0
5 0
6 50
b
1 0
2 0
3 0
4 0
5 60
6 0
7 30


$ cat put0.pl
use strict;
use warnings;

my $sLast_name  = "";
my $sLast_item  = "";
while(<DATA>){
  my($sName, $sItem, $sValue) = split;
  my $sStart = 1;
  $sStart += $sLast_item if($sName eq $sLast_name);
  print "$sName\n"       if($sName ne $sLast_name);
  print "$_ 0\n" for($sStart .. $sItem-1);
  print "$sItem $sValue\n";
  $sLast_name = $sName;
  $sLast_item = $sItem;
}

__DATA__
a 3 20
a 6 50
b 5 60
b 7 30   

评分

参与人数 2信誉积分 +15 收起 理由
xiayuu119 + 5 很给力!
sunzhiguolu + 10 很给力!

查看全部评分

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-04-20 09:46 |显示全部楼层
本帖最后由 sunzhiguolu 于 2016-04-20 11:05 编辑
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use v5.14;

  5. my %hData;
  6. map {my ($a,$b,$c)=(@$_);$hData{$a}{$b}=join (' ',$b,$c)} map {chomp;[split]} <>;
  7. foreach my $sHead (sort keys %hData){
  8.     say $sHead;
  9.     my $sBegin = 1;
  10.     foreach my $sEnd (sort {$a <=> $b} keys %{$hData{$sHead}}){
  11.         say "$_ 0" for $sBegin .. ($sEnd - 1);
  12.         say $hData{$sHead}{$sEnd};
  13.         $sBegin += $sEnd;
  14.     }
  15.     say "";
  16. }
复制代码

评分

参与人数 1信誉积分 +5 收起 理由
xiayuu119 + 5 很给力!

查看全部评分

论坛徽章:
6
15-16赛季CBA联赛之新疆
日期:2016-03-22 22:34:5915-16赛季CBA联赛之山东
日期:2016-04-11 09:08:41程序设计版块每日发帖之星
日期:2016-06-28 06:20:00程序设计版块每日发帖之星
日期:2016-07-19 06:20:00每日论坛发贴之星
日期:2016-07-19 06:20:0015-16赛季CBA联赛之青岛
日期:2016-07-20 22:44:17
发表于 2016-04-20 10:51 |显示全部楼层
本帖最后由 RE_HASH 于 2016-04-20 10:57 编辑

cat aa|perl -ne '$a->{$1}->{$2}=$3 if (/(\w) +(\d+) +(\d+)/); END{ foreach (sort keys %$a) { print "$_\n"; my $i;  while (keys %{$a->{$_}} ) { printf "%d %d\n",++$i, delete $a->{$_}->{$i} ; }}}'

评分

参与人数 2信誉积分 +20 收起 理由
xiayuu119 + 10 赞一个!
sunzhiguolu + 10 神马都是浮云

查看全部评分

论坛徽章:
0
发表于 2016-04-20 17:19 |显示全部楼层
回复 1# xiayuu119
  1. use Data::Dumper;

  2. while(<DATA>){
  3.         my ($cat,$line,$value,) = split;
  4.         $hash->{$cat}{$line} = $value;
  5. }

  6. print Dumper $hash;

  7. foreach my $k (sort keys %$hash){
  8.         print $k;
  9.         print "\n";
  10.         my @lines = sort keys %{$hash->{$k}};
  11.         foreach my $c (1 .. $lines[-1]){
  12.                 print $c;
  13.                 print "\t";
  14.                 $hash->{$k}{$c} = 0 if not exists $hash->{$k}{$c};
  15.                 print $hash->{$k}{$c};
  16.                 print "\n";
  17.         }
  18. }

  19. __DATA__
  20. a 3 20
  21. a 6 50
  22. b 5 60
  23. b 7 30

  24. output ---->

  25. $VAR1 = {
  26.           'b' => {
  27.                    '7' => '30',
  28.                    '5' => '60'
  29.                  },
  30.           'a' => {
  31.                    '6' => '50',
  32.                    '3' => '20'
  33.                  }
  34.         };
  35. a
  36. 1        0
  37. 2        0
  38. 3        20
  39. 4        0
  40. 5        0
  41. 6        50
  42. b
  43. 1        0
  44. 2        0
  45. 3        0
  46. 4        0
  47. 5        60
  48. 6        0
  49. 7        30
复制代码

评分

参与人数 2信誉积分 +15 收起 理由
sunzhiguolu + 10 赞一个!
xiayuu119 + 5 很给力!

查看全部评分

论坛徽章:
0
发表于 2016-04-21 01:07 |显示全部楼层
献上我的膝盖!! ~~~各位太强大了~!!~!lollol

太感谢了~~~!!~~
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP