WHAT'S NEW?

Mar 01: Michael Sanders demos an X-windows GUI for AWK.

Mar 01: Awk100#24: A. Lahm and E. de Rinaldis' patent search, in AWK

Feb 28: Tim Menzies asks this community to write an AWK cookbook.

Feb 28: Arnold Robbins announces a new debugger for GAWK.

Feb 28: Awk100#23: Premysl Janouch offers a IRC bot, In AWK

Feb 28: Updated: the AWK FAQ

Feb 28: Tim Menzies offers a tiny content management system, in Awk.

Jan 31: Comment system added to awk.info. For example, see discussion bottom of ?keys2awk

Jan 31: Martin Cohen shows that Gawk can handle massively long strings (300 million characters).

Jan 31: The AWK FAQ is being updated. For comments/ corrections/ extensions, please mail tim@menzies.us

Jan 31: Martin Cohen finds Awk on the Android platform.

Jan 31: Aleksey Cheusov released a new version of runawk.

Jan 31: Hirofumi Saito contributes a candidate Awk mascot.

Jan 31: Michael Sanders shows how to quickly build an AWK GUI for windows.

Jan 31: Hyung-Hwan Chung offers QSE, an embeddable Awk Interpreter.

[More ...]

categories: Jan,2010,MichealS

Rot-13 in Awk

The following ROT13 is a slight modifcation of the example found at http://www.miranda.org/~jkominek/rot13/awk/.

#!/bin/awk -f 
BEGIN { 
  from = "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm0987654321" 
  to   = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" 
  for (i = 1; i <= length(from); i++) { 
      letter[substr(from, i, 1)] = substr(to, i, 1) 
  } 
} 
{ 
  for (i = 1; i <= length($0); i++) { 
      char = substr($0, i, 1) 
      if (match(char, "[a-zA-Z]|[0-9]") != 0) { 
	  printf("%c", letter[char]) 
      } else { 
	  printf("%c", char) 
      } 
  } 
  printf("\n") 
} 

Author

Michael Sanders.