Work has a web-based phone book but ... it's web-based. Gotta load up the page, enter the last name, hit 'go' ... all for a four-digit number.
Had a bash script for years; wget, grep-fu and voila. Good problem-space to try out new language on, like newLISP.
Doesn't spit back the actual data, yet, but getting this done up after a man-hour of study-time tickles me.
Had a bash script for years; wget, grep-fu and voila. Good problem-space to try out new language on, like newLISP.
Doesn't spit back the actual data, yet, but getting this done up after a man-hour of study-time tickles me.
(print "Last name?")
(set 'lastname (read-line))
(println "Looking for " lastname)
(set 'phone (parse (read-file "/Users/bdunbar/foo/phone/phone.cfm") {\W} 0))
(set 'loc (find lastname phone 0))
(if loc
(println "Found name " (phone loc) " in directory.")
(println "Found nothing. Do you have the right spelling?"))
(println "finished.")
