use Inline C => <<'END_OF_C_CODE';
void p_process_2(SV *svv) {
char prev = 0;
long count = 0;
long i=0;
long len = SvCUR(svv);
AV *array;
AV *list;
char *s = SvPV(svv, len);
Inline_Stack_Vars;
Inline_Stack_Reset;
list = newAV();
av_extend(list, 500);
prev = *s;
for (i=0; i<len; i++) {
if (prev == *s) {
count++;
} else {
array = newAV();
av_push(array,newSVpvn(&prev,1));
av_push(array,newSViv(i-count));
av_push(array,newSViv(count));
av_push(list,newRV_inc(array));
prev = *s;
count=1;
}
s++;
}
Inline_Stack_Push(newRV_inc(list));
Inline_Stack_Done;
}
END_OF_C_CODE
Featuring no problems with null chars (binary clean), array pre-extension and the fastest performance so far :)
Its kinda like golf with benchmarks.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|