merlyn@iwarp.intel.com (Randal Schwartz) (02/02/90)
In article <1990Feb1.163539.10576@iwarp.intel.com>, I said: | sub byfield14to20 { substr($a, 13, 7) > substr($b, 13, 7); } Acck! Make that: sub byfield14to20 { substr($a,13,7) < substr($b,13,7) ? -1 : 1; } and likewise: | sub byfourthfield { $f4[$a] > $f4[$b]; } sub byfourthfield { $f4[$a] < $f4[$b] ? -1 : 1; } Accck pthptpth! That'll teach me to write code this early in the morning! Special thanks to Bart Schaefer <schaefer@cse.ogi.edu> for reading his news as quick as it comes in, and sending me a nice nastygram pointing out the error of my ways. I am so ashamed. :-) Just another (former) Perl hacker, :-) -- /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\ | on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | | merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | \=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/