home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d065 / bawk.lha / Bawk / example2 < prev    next >
Encoding:
Text File  |  1987-04-05  |  138 b   |  10 lines
  1. BEGIN
  2. {
  3.     RS = '.';  # set record seperator to a period
  4. }
  5. {
  6.     if ( match( $1, @^[a-z]@ ) )
  7.         *$1 = toupper( *$1 );
  8.     printf( "%s\n", $0 );
  9. }
  10.