Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

From: ťÔ Íő <[EMAIL PROTECTED]> > my $text; > for my $left_index (1..WIDTH) { >last if $start_index < $left_index; > $text .= $texts_arr[$start_index - $left_index] . ' '; > } > $text .= join(" ", @texts_arr[$start_index..$end_index]) . ' '; >for my $right_index (1..WIDTH) { >

RE: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

Hui Wang wrote: : Can anybody tell me how to improve the running speed of this : program? Thanks. I don't know if this is faster, but it is a more accurate solution. Your submitted code failed under some untested circumstances. I created another page similar to the

Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

On Sunday 12 November 2006 13:17, 辉 王 wrote: > I can make my program do its job at last, but it runs slowly. > Can anybody tell me how to improve the running speed of this   > program? Thanks. Have you had a look with the Perl profiler to see which bits are going slow. That way you know to look at