Lines Matching refs:chunks
157 my @chunks = split /${st}${osc}/, $reply;
158 printf "\n" if ( $#chunks > 0 );
159 for my $c ( 0 .. $#chunks ) {
160 $chunks[$c] =~ s/^${osc}// if ( $c == 0 );
161 $chunks[$c] =~ s/${st}$// if ( $c == $#chunks );
162 my $param = $chunks[$c];
165 $chunks[$c] =~ s/^\d+;//;
166 printf "\t%d: ", $param if ( $#chunks > 0 );
167 &show_reply( $chunks[$c] );
171 printf "\n" if ( $c < $#chunks );