egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-03-05T07:10:00-04:00 https://forum.eggheads.org/app.php/feed/topic/1181 2002-03-05T07:10:00-04:00 2002-03-05T07:10:00-04:00 https://forum.eggheads.org/viewtopic.php?p=5063#p5063 <![CDATA[Date [censored].]]>
set x [regexp {^([0-9]+)/([0-9]+)/([0-9]+)} $line total day month year]

Then if x is 0, it didn't match; otherwise, it did, and the parts are already in $day, $month, and $year. $total is the entire thing that matches (i.e. 03/04/90).

Then, you can use:
set day [string trimleft $day 0]
etc

to get rid of leading 0's (this may be screwing up your math, since Tcl will treat the numbers as octal instead of decimal).

Also... are you aware of the "clock scan" command? You can give it a date, and it will return a number (seconds from jan 1 1970 to that date).

% clock scan "03/02/90"
636354000

% clock scan "03/03/90"
636440400

The difference in each day is 86400 seconds. So to check if it's 5 days or whatever, see if they're within 5*86400 seconds of each other.

Oh, btw, the "clock scan" date format is "mm/dd/yy(yy)".

Statistics: Posted by stdragon — Tue Mar 05, 2002 7:10 am

]]> 2002-03-04T19:30:00-04:00 2002-03-04T19:30:00-04:00 https://forum.eggheads.org/viewtopic.php?p=5051#p5051 <![CDATA[Date [censored].]]>
I'm working on a tcl script which should clear all lines older as 5 days from a file.
The lines ar timestamped in format: DD/MM/YY hh:mm:ss <line>

i got this now:

Code: 

  foreach line [split $file "n"] {    if { $line != "n" || $line != " n" || $line != " " } {      set fdate [lindex [split $line " "] 0]      set fday [lindex [split $fdate "/"] 0]      set fmonth [lindex [split $fdate "/"] 1]      set fyear [lindex [split $fdate "/"] 2]      set day3 [checkdate $fday $fmonth $fyear $day $month $year]      putserv "PRIVMSG $chn :$day3 test"      if { $day3 == 1 } { putserv "PRIVMSG $chn : 1" }      if { $day3 != 1 } { puts $file1 $line }    }  }
the function checkdate checks if linedate ($fday, $fmonth and $fyear, splitted earlier (checked them, they work correctly)) is 5 ore more days older as the current date. If so, it returns 1, if not, it returns 0.
It works with if's and switches (all with " before and after the values, the var's are strings).
This won't work (correctly).
I also created a proc toint, this converts a string to an int (it's a switch that returns 01 if string is "01", 02 if string is "02" and so on), and checked with simple if's (if { [toint $fday] < [expr [toint $day] +5] } { ...} and sort of xtra checks fore month and year), but it won't work.

Can someone help me plz?? :smile:

I know it's kinda hard, but i dunno why it won't work.

Greejtz, Zygo.

Statistics: Posted by Guest — Mon Mar 04, 2002 7:30 pm

]]>