Help for this page

Select Code to Download

Select or download this

while (1) {
    my $idxSummary = index($string, "SUMMARY", $offset);
...
    my $idxDescription = index ($string, "DESCRIPTION", $offset);
    my $result2= "";
    print "idxSum:$idxSummary, idxDesc:$idxDescriptioni, offs:$offset\
+n";

Select or download this

idxSum:47, idxDesc: 62, offs:0
idxSum:122, idxDesc: 143, offs:73
idxSum:-1, idxDesc:-1, offs:10
idxSum:-1, idxDesc:-1, offs:10
.....