egghelp/eggheads community

Arrays and differences

2003-08-02T05:13:57-04:00

hm... maybe you have some function for me, too

i've got the following arrays

Code:

array(chan1,1,var1) "var1"array(chan1,1,var2) "var2"array(chan1,2,var1) "var3"array(chan1,2,var2) "var4"array(chan1,3,var1) "var5"array(chan1,3,var2) "var6"...

and so on.

i unset all arrays chan1,2 using

Code:

array unset array chan1,2,*

now i'd need a proc that "refills" the array. means, array(chan1,3,var1)
should become array(chan1,2,var1), array(chan1,4,var1) should become
array(chan1,3,var1). hope you see my point.

guess i'd just have to change some code in the array_push proc of ppslim,
but, however, i don't know what it does exactly.

Statistics: Posted by arcane — Sat Aug 02, 2003 5:13 am

Arrays and differences

2003-07-24T14:11:42-04:00

seams noone has an idea what i am talking about

I think I do. Tcl's "arrays" are not suited for this kind of task. Use a list.

To add one element to the start of a list and keep the number of elements below a given value, use something like this:

Code:

set list [concat [list $new] [lrange $list 0 2]]

Code:

set list [lrange [concat [list $new] $list] 0 3]

Statistics: Posted by user — Thu Jul 24, 2003 2:11 pm

Arrays and differences

2003-07-24T13:38:55-04:00

seams noone has an idea what i am talking about

Statistics: Posted by GodOfSuicide — Thu Jul 24, 2003 1:38 pm

Arrays and differences

2003-07-22T13:08:24-04:00

i was meaning an other thing

The old parsed data (lets say 4 arrayelements) is compared to the new parsed data (also 4 elements).

old :

news 123 (url : 123)
news 234 (url : 234)
news 345 (url : 345)
news 456 (url : 456)

new :

news abc (url : abc)
news bcd (url : bcd)
news 123 (url : 123)
news 234 (url : 234)

right now there were 2 new data sets in NEW that haven't been in OLD befor. Now i want to output these 2 new entrys and then write the content of NEW -> OLD so i can check again the next time if there have been new sets.

Statistics: Posted by GodOfSuicide — Tue Jul 22, 2003 1:08 pm

Arrays and differences

2003-07-22T05:58:31-04:00

This would require two small function to perform this. One to push the array, and another to trim it again.

First note: Tcl claims these are arrays. This is not true, they are actualy "Hash tables".

The code below will push an ellement onto the start of the array.

Code:

proc array_push {name data} {  array set temp [list]  upvar 1 $name this  foreach idx [array names this] {    set temp([expr $idx + 1]) $this($idx)  }  set temp(0) $data  array set this [array get temp]}

Use it like this

Code:

set array(0) "test value"set array(1) "another value"set array(2) "More data"array_push array "some more data again"

The code below, will trim the array down to X elements

Code:

proc array_trim {name X} {  upvar 1 $name this  set list [lsort -integer [array names this]]  set limit [expr [llength $list] - ( $X + 1 )]  if {$limit < 0} { return }  foreach a [lrange $list "end-${limit}" end] {    array unset this $a  }}

Test it with the following

Code:

set array(0) "test value"set array(1) "another value"set array(2) "More data"set array(3) "More data 123"set array(4) "More data 456"set array(5) "More data 789"set array(6) "More data 741"set array(7) "More data 852"array_trim array 5

Here is the results of the tests above, using this small snippet.

Code:

foreach {a b} [array get array] {  puts stdout "${a}: ${b}"}

array_push

0: some more data again
1: test value
2: another value
3: More data

array_trim

4: More data 456
0: test value
1: another value
2: More data
3: More data 123

Note: The order of output is not important. As ntoed, they are hash lists, and will never be in order. To get ordered info, use a sorted foreach loop

Code:

foreach array_idx [lsort -integer [array names array_name]] {

Statistics: Posted by ppslim — Tue Jul 22, 2003 5:58 am

Arrays and differences

2003-07-22T01:58:18-04:00

there is a maximum of y fields in the array (if the page only links the latest y news, etc)

on z new posts the post that was first (0) befor is now on 0+z position, and the last z ones are now gone

Statistics: Posted by GodOfSuicide — Tue Jul 22, 2003 1:58 am

Re: Arrays and differences

2003-07-21T20:01:17-04:00

if there have been x new entrys on the page the array shifts down by x entrys
but : how do i check for this data and make a loop for the output ?

What do you mean by "the array SHIFTS down by x entrys"?

If you store the last post and have a list of current posts, just check how many elements are before/after (depending on the order) the element matching the 'last post' value.

Statistics: Posted by user — Mon Jul 21, 2003 8:01 pm

Arrays and differences

2003-07-21T14:04:32-04:00

I'm currently rewriting all of my newstickers

until now i used some kinda code like this (written just to show what i mean):

Code:

if {$site_data(0) != $site_newdata(0)} {putserv "PRIVMSG #chan :$site_newdata(0)" set site_data(0) $site_newdata(0)}

Now i would like to do it another way :
if there have been x new entrys on the page the array shifts down by x entrys
but : how do i check for this data and make a loop for the output ?

Statistics: Posted by GodOfSuicide — Mon Jul 21, 2003 2:04 pm