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

ChinaUnix.net

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

如何去掉重复的行 [复制链接]

论坛徽章:
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
发表于 2017-09-06 18:35 |显示全部楼层
回复 20# rubyish
谢谢您的指导
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my @aData = ();
  5. while(<DATA>){
  6.     my ($t) = /\A(\S{2})/;
  7.     my ($pos) = grep {$t eq $aData[$_][0]} 0 .. $#aData;
  8.     defined($pos) ? push(@{$aData[$pos][-1]}, $_) : push(@aData, [$t,[$_]]);
  9. }

  10. foreach (grep {@{$_->[-1]} == 1} @aData){
  11.     print($_->[-1][0]);
  12. }

  13. __DATA__
  14. sdfsdfxxx
  15. sdfsdcccc
  16. sfv
  17. vb
  18. delA
  19. cb
  20. delB
  21. cbb
  22. delC
  23. zxc
  24. cvbn
  25. againA
  26. cbEND
  27. break
  28. againB
复制代码
my @aData = ();
my ($pos) = grep {$t eq $aData[$_][0]} 0 .. $#aData;

VS

my @aData = [];
my ($pos) = grep {$t eq $aData[$_][0]} 0 .. $#aData;

Running ... err
Use of uninitialized value in string eq ...

两种赋值方式,引用时有何区别?


论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-09-06 23:27 |显示全部楼层
本帖最后由 rubyish 于 2017-09-06 19:33 编辑

回复 21# sunzhiguolu

有何区别?
  1. my $t = 'x';
  2. my @A = ();
  3. my ($pos1) = grep { $t eq $A[$_][0] } 0 .. $#A;

  4. # 0 .. $#A EQ  0 .. -1 => SKIP
复制代码

  1. my @B = [];
  2. my ($pos2) = grep { $t eq $B[$_][0] } 0 .. $#B;

  3. # $B[0]     => []
  4. # $B[0][0]  => uninitialized value
复制代码



  1. my @B = ['x'];
  2. my ($pos2) = grep { $t eq $B[$_][0] } 0 .. $#B;

  3. # $B[0]     => ['x']
  4. # $B[0][0]  => 'x'
  5. say $pos2;    # 0

  6. my @B = ['z'];
  7. my ($pos2) = grep { $t eq $B[$_][0] } 0 .. $#B;
  8. say $pos2;    # Use of uninitialized value $pos2
复制代码



my @A = ();
EQ my @A;
say $#A;      # -1, length == 0

my @B = [];
EQ my @B = ( [] );    # 1 elem, a empty arrayref
say $#B;              # 0, length == 1

@B = ( () );                    # empty
@B = ( ( () ) );                # empty
@B = ( ( ( ( ( () ) ) ) ) );    # empty
say( ( ( ( ( ( ( ("HELP!!") ) ) ) ) ) ) );
EQ say "HELP!!";

my @b = 1;
EQ my @b = (1);

my @a = 1, 2, 3;
EQ my @a = 1;                   # discard 2, 3

my $a = 1, 2, 3;
EQ my $a = 1;                   # discard 2, 3

my $a = ( 11, 22, 33 );
EQ my $a = 33;                  # last

my $C = ( print("A"), print("B"), 'C' );

leisi:

print('A');  # eval print('A'), discard return value
print('B');
my $C = 'C';

leisi:

my $C = do {
    print 'A';
    print 'B';
    'C';
};

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-09-06 23:28 |显示全部楼层
本帖最后由 rubyish 于 2017-09-06 19:29 编辑

d   e  l  ~  ~

评分

参与人数 1信誉积分 +10 收起 理由
sunzhiguolu + 10 脑洞打开

查看全部评分

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

本版积分规则

10张SACC2017门票等你来拿~

在数字化转型时代,云已成为万物智能的数字化大脑。而随着大数据应用、人工智能、移动互联网等技术的飞速发展,“智慧 +” 的概念正在深入到各行各业,提升企业效率,释放商业潜能,创造全新机遇。作为国内顶级技术盛会之一,2017 中国系统架构师大会(SACC2017)将于 10 月 19-21 日在北京新云南皇冠假日酒店震撼来袭。今年,大会以 “云智未来” 为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置 2 大主会场,18 个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100 余位技术专家及行业领袖来分享他们的经验;并将吸引 4000 + 人次的系统运维、架构师及 IT 决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年10月19日前

活动链接>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP