Brauche Tipps zum arbeiten mit der PERL Doku ?

[M. K. (kohlmaenzen)]

Moin Moin,

ich brauche mal ein paar Tipps von euch alten Hasen oder euch jungen 
Überfliegern.

Ich arbeite mit folgendem PERL Modul Win32::SerialPort
http://search.cpan.org/~bbirth/Win32-SerialPort-0.22/lib/Win32/SerialPort.pm

Ich will jetzt die Methode im mir vorliegenden Code verstehen:

$PortObj->are_match( chr(0x03) );

In der Doku nachgesehen:

$PortObj->are_match("text", "\n");    # possible end strings

... ok bring mich nicht wirklich weiter.


Im lib Ornder auf der Festplatte SerialPort.pm gefunden.

Hier die Sub gefunden

sub are_match {
    my $self = shift;
    my $pat;
    my $re_next = 0;
    if (@_) {
  @{ $self->{"_MATCH"} } = @_;
  @{ $self->{"_CMATCH"} } = ();
  while ($pat = shift) {
      if ($re_next) {
    $re_next = 0;
          eval 'push (@{ $self->{"_CMATCH"} }, qr/$pat/)';
     } else {
          push (@{ $self->{"_CMATCH"} }, $pat);
     }
     if ($pat eq "-re") {
    $re_next++;
      }
  }
    }
    return @{ $self->{"_MATCH"} };
}

Ab hier ist jetzt der Knoten im Hirn festgezogen worden.