Arrays vergleichen - #161338 (Allgemeines zu Perl)

betterworld

2012-08-25 23:23

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Also, Du möchtest herausfinden, ob eine Sequenz am Ende von @a mit einer Sequenz am Anfang von @b übereinstimmt?

Dazu würde ich alle Indices von @a durchlaufen und herausfinden, ob die Sequenz ab diesem Index bis zum Ende passt.

Code (perl): (dl )

for my $i (0..$#a) { # ueber alle Indices von @a

  my @ende = @a[$i..$#a]; # die End-Sequenz (ein sog. Array-Slice)
  my @anfang = @b[0..$#a-$i];

  if (@ende ~~ @anfang) { # ab 5.10 kann man auf diese Weise 2 Arrays vergleichen
     print "Uebereinstimmung ab Index $i\n";
     last;
  }
}

Dazu musst Du vermutlich noch ein paar Checks für Sonderfälle machen, wie z.B. wenn @a länger als @b ist (dann würde der obige Code nicht richtig arbeiten).

Am sichersten kannst Du die Chatnachrichten aber vergleichen, wenn Du Timestamps zur Verfügung hast.

Edit: so, jetzt funktioniert es und ist getestet
Last edited: 2012-08-25 23:30:46 +0200 (CEST)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class