home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / awk / awk320.zip / NUMBER.AWK < prev    next >
Text File  |  1990-02-08  |  289b  |  13 lines

  1. # determine whether the input is a number
  2. # print it if it is
  3. # AKW p40
  4.  
  5. BEGIN {
  6.     sign = "[+-]?"
  7.     decimal = "[0-9]+[.]?[0-9]*"
  8.     fraction = "[.][0-9]+"
  9.     exponent = "([eE]" sign "[0-9]+)?"
  10.     number = "^" sign "(" decimal "|" fraction ")" exponent "$"
  11. }
  12. $0 ~ number
  13.