Question

I’m creating a ladder system for some games and I’ve encountered a problem regarding the clan base system. You see, every player who joins are parsed and put into a players table. Like this:

chelsea | gordon  chelsea | jim chelsea | brad 

OR…

CLANTAG|> jenna CLANTAG|> jackson CLANTAG|> irene  

So, what I want: I wanna grab the CLANTAG, which is at the same place and identical in every players name, which are on that team. But, the separator could be anything from whitespace to nothing (clan player1, clan player2 OR clanplayer1, clanplayer2).

Any ideas on how to do this?

Thanks in advance.

Answer 1

Here’s a shot:

use strict; use warnings;  my($strip) = shift || 0;  print FindTeamName('TEAMJimBob', 'TEAMJoeBob', 'TEAMBillyBob'), '\n'; print FindTeamName('TEAM|JimBob', 'TEAM|JoeBob', 'TEAM|BillyBob'), '\n'; print FindTeamName('TEAM | JimBob', 'TEAM | JoeBob', 'TEAM | BillyBob'), '\n'; print FindTeamName('TEAMJimBob', 'TEAM|JoeBob', 'TEAM - BillyBob'), '\n';  sub FindTeamName {     my(@players) = @_;      my($team) = shift;     foreach my $player (@players) {         $team = FindCommonString($team, $player);     }      $team =~ s{\W+$}{} if $strip;      $team; }  sub FindCommonString {     my($str1, $str2) = @_;      my(@arr1) = split(//, $str1);     my(@arr2) = split(//, $str2);      my($common) = '';      while (@arr1 && @arr2) {         my($letter1) = shift(@arr1);         my($letter2) = shift(@arr2);          if ($letter1 eq $letter2) {             $common .= $letter1;         }         else {             last;         }     }      $common; } 

which gives the following:

C:\temp>perl test.pl TEAM TEAM| TEAM | TEAM  C:\temp>perl test.pl 1 TEAM TEAM TEAM TEAM  C:\temp>