Version 9 of WJR

Updated 2003-11-16 15:32:05

Stands for W. Jeffrey Rankin [L1 ]

Some sites of interest:

• O'Neil & Associates, Inc. [L2 ]: This is where I work, using open source tools like Tcl/Tk, perl, and many others.
• My personal web site [L3 ]: Some of the software I maintain for Solaris and whatever else I'm interested in.

---

Here's a little script that determines the link to the current Astronomy Picture of the Day [L4 ]:

 #!/bin/sh
 # -*- tcl -*-
 # The next line is executed by /bin/sh, but not tcl \
 exec tclsh "$0" ${1+"$@"} 

 package require http

 set base_url http://antwrp.gsfc.nasa.gov/apod
 set site [http::geturl $base_url/astropix.html]
 set html [http::data $site]

 regexp -nocase -linestop {(src="(.*)")} $html match src image

 puts $base_url/$image

---

I've begun writing a Tcl package to aid in generating accessible HTML. The driver behind this is the lack of packages that have the capability to output this kind of HTML.

---

Category Person | Category Home Page