Re^2: Find Prefix if regex didn't match

[demoralizer]

Hi greengaroo,

show working code will be little bit hard because I'm listening to sockets... but here is sth. that should at least show what I'm trying to do:

# $term is the socket
# $text contains all received and unscanned text
# $scanned contains all scanned text

my $rec;

my $time = gettimeofday();
while(1)
{
# sth. to read?
  if (read($term, $rec, 0xFFFF))
  {
    # collect what have been read
    $text .= $rec;
  
    # expression found?
    if ($text =~ s/(.*)($expect)//s)
    {
      $scanned .= $1;
      $scanned .= "MATCH";
      $scanned .= $2;
      return 0;
    }
    # shorten string for speed up
    elsif (length($text) >= 20)
    {
      $scanned .= "CUTTED";
      $scanned .= substr($text, 0, length($text) - 20 + 1);
      $text = substr($text, length($text) - 20 + 1);
    }
  }
  
  # timeout?
  if (gettimeofday() - $time > $timeout)
  {
    $scanned .= "TIMEOUT";
    return 1;
  }
}

It seems that the "elsif (length($text) >= 20)" makes things faster but doesn't do exactly what I want because in this way I can lose possible matchings :(