Lines Matching refs:toks
362 my @toks = split( /(%l?[dx]|%c|%(?:\.\d+)?s)/, $header );
363 if (@toks > 1) {
365 for my $i (0..$#toks){
367 if( $toks[$i] eq '%c' ){
368 $toks[$i] = '.';
369 } elsif( $toks[$i] eq '%d' ){
370 $toks[$i] = '\d+';
371 } elsif( $toks[$i] eq '%s' ){
372 $toks[$i] = $i == $#toks ? '.*' : '.*?';
373 } elsif( $toks[$i] =~ '%.(\d+)s' ){
374 $toks[$i] = ".{$1}";
375 } elsif( $toks[$i] =~ '^%l*x$' ){
376 $toks[$i] = '[\da-f]+';
378 } elsif( length( $toks[$i] ) ){
379 $toks[$i] =~ s/^.*$/\Q$&\E/;
380 $conlen += length( $toks[$i] );
383 my $lhs = join( '', @toks );