Count, delete multiple LSD values by pattern

lsd_count_delete_found.lsl

default {
    state_entry() {
        // Add some LSD values starting with "foo" and some that don't
        llLinksetDataWrite("foobar", "a");
        llLinksetDataWrite("foobaz", "a");
        llLinksetDataWrite("foobaa", "a");
        llLinksetDataWrite("woofie", "100");
        llLinksetDataWrite("fungus", "500");
        
        integer fooCount = llLinksetDataCountFound("^foo");
        integer count = llLinksetDataCountKeys();
        llOwnerSay("Added " + (string)count + " keys, " + (string)fooCount + " start with 'foo'");
    }
    
    touch_start(integer count) {
        if (llDetectedKey(0) != llGetOwner()) { return; }
        
        // Delete keys starting with "foo"...
        list res = llLinksetDataDeleteFound("^foo", "");
        integer deleteCount = llList2Integer(res, 0);
        llOwnerSay("Deleted " + (string)deleteCount + " value(s) starting with foo");
    }
}