Hash: Deleting 1/2 of old (first added) data value - 09/06/08 09:13 PM
Will this work to delete 1/2 of the old (first added) data values in an item?
original:
item data1 data2 data3 data4 data5 data6
result:
item data4 data5 data6
original:
item data1 data2 data3 data4 data5 data6
Code:
alias adjust { if ($1) { set %hash $1 } else { set %hash $$?1="Hash?" set %item $$?2="Item?" } set %itemdata $hget(%hash,%item) set %totnumtok $numtok(%itemdata,32) set %half $calc(%totnumtok / 2) set %a %half echo -s In %hash %item originally had %totnumtok data values: %itemdata while (%half) { set %itemdata $deltok(%itemdata,1,32) dec %half } .hadd %hash %item %itemdata echo -a In %hash %item deleted %a of %totnumtok data values: %itemdata }
result:
item data4 data5 data6