use Perl

• Will this do? (Score:1)

  by claes (1758)

  $"=", ",print"$_: @$_\n"for grep{!$d{$_}&&do{$d{$_}=1}}map{/(\w+):(\w+)/&&push@$2=>$1;$2; };
  
  just pipe the input to the program.... I assume someone has a shorter way.
  • Re:Will this do? ( got lost in HTML hell) (Score:1)

    by claes (1758)

    $"=", ",print"$_: @$_\n"for grep{!$d{$_}&&do{$d{$_}=1}}map{/(\w+):(\w+)/&&push@$2=>$1;$2; }<>;
    • An even shorter one (84 chars) (Score:1)

      by claes (1758)

      $"=", ",print"$_: @$_\n"for grep{!$$_&($$_=1)}map{/(\w+):(\w+)/&&push@$2,$1;$2;}<>;
      • Re:An even shorter one (84 chars) (Score:1)

        by cog (4665)

        You haven't beaten me yet ;-)
        
        I'm thinking about proposing a talk for YAPC::Europe on this subject :-)
        • Re:An even shorter one (84 chars) (Score:1)

          by claes (1758)

          print "admins: root, administrator\nusers: me\n";
          
          That is shorter and still a valid solution. However, if it should handle any number of <user>:<group> lines it wouldn't count.. right?
          
          Care to post your solution?
          • 65 chars (Score:1)

            by cog (4665)

            #!/usr/bin/perl -l0n
            /:/;$_{$'.$&}.=" $`,"}{map{s/,$/
            /;print}%_
            
            Maybe I could propose a talk about this for YAPC::Europe (a talk on the several stuff I use here, that is)... I think I will...
            
            Oh, but I'm sure some of the guys can work out a way of saving some more characters ;-)
            • Re:65 chars (I'm now at 72) (Score:1)

              by claes (1758)

              That's a nice one. To make it trickier, make it preserve the order of the group it finds.

              $"=", ";print"$_: @$_\n"for grep{$$_++<1}map{/:(.+)/&push@$1,$`;$1;}<>;
              • Re:65 chars (I'm now at 67) (Score:1)

                by claes (1758)

                $"=", ";!$$_++&&print"$_: @$_\n"for map{/:(.+)/&push@$1,$`;$1;}<>;