Filter Non Ascii Lines

I dearly do hate text-editors that change the character encoding without asking in a fashion not to be mistaken or overlooked. Kill all mules. They suck suck suck.

 #!/usr/local/bin/scsh \
 -e main -s


 ÜSAGE
 filterunamericani.scm < INFILE > OUTFILE

 SYNOPSIS:  Prints all lines from stdin (INFILE) that contain non-ascii
 characters to stdout (OUTFILE), in order.
 !#

 (define (main args)
   (awk (read-line) (line) ()
     ((~ ascii) (display line) (newline))))

FilterNonAsciiLines - raw wiki source | code snippets archive