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

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 脑洞打开

查看全部评分

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

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP