Listing 1: The script--originally published in the August 1993 ``Answers to Unix'' column--that converts numbers to English words.

1 if echo $1 | grep -v '^[0-9]*\.[0-9]*$' > /dev/null
2 then
3 echo "argument must contain only numbers and a period"
4 exit 1
5 fi
6 echo "$1" |
7 awk '{dlrs = int($0)
8 cents = int(($0 - dlrs) * 100 + .5)
9 nbrs[0] = ""
10 nbrs[1] = "one"
11 nbrs[2] = "two"
12 nbrs[3] = "three"
13 nbrs[4] = "four"
14 nbrs[5] = "five"
15 nbrs[6] = "six"
16 nbrs[7] = "seven"
17 nbrs[8] = "eight"
18 nbrs[9] = "nine"
19 nbrs[10] = "ten"
20 nbrs[11] = "eleven"
21 nbrs[12] = "twelve"
22 nbrs[13] = "thirteen"
23 nbrs[14] = "fourteen"
24 nbrs[15] = "fiveteen"
25 nbrs[16] = "sixteen"
26 nbrs[17] = "seventeen"
27 nbrs[18] = "eighteen"
28 nbrs[19] = "nineteen"
29 nbrs[20] = "twenty"
30 nbrs[30] = "thirty"
31 nbrs[40] = "fourty"
32 nbrs[50] = "fifty"
33 nbrs[60] = "sixty"
34 nbrs[70] = "seventy"
35 nbrs[80] = "eighty"
36 nbrs[90] = "ninety"
37 if (dlrs > 1000000) {
38 print "Number greater than one million, too big"
39 exit
40 }
41 if (dlrs == 0)
42 nbrstr = "no"
43 if (dlrs >= 100000) {
44 nbrstr = nbrs[int(dlrs / 100000)] " hundred "
45 dlrs = dlrs % 100000
46 thousflag++ # should thousand be put in nbrstr
47 }
48 if (dlrs >= 1000) {
49 nbr = int(dlrs / 1000)
50 if (nbr > 20)
51 tens = int(nbr / 10) * 10
52 else
53 tens = nbr
54 if (ones = nbr - tens)
55 dash = "-" # dash in twenty-one to ninety-nine
56 nbrstr = nbrstr nbrs[tens] dash nbrs[ones]
57 dlrs = dlrs % 1000
58 dash = ""
59 thousflag++
60 }
61 if (thousflag)
62 nbrstr = nbrstr " thousand "
63 if (dlrs >= 100) {
64 nbrstr = nbrstr nbrs[int(dlrs / 100)] " hundred "
65 dlrs = dlrs % 100
66 }
67 if (dlrs > 20)
68 tens = int(dlrs / 10) * 10
69 else
70 tens = dlrs
71 if (ones = dlrs - tens)
72 dash = "-"
73 nbrstr = nbrstr nbrs[tens] dash nbrs[ones]
74 printf "%s %2d/00\n", nbrstr, cents
75 }'

Listing 2. The find.new.files script keeps a list of every file on the system and the day it was created.

A. The source code for find.new.files:

1 trap 'rm -f /tmp/$$ 2>/dev/null' 1 2 3 15
2 today=`date "+%m/%d/%y"`
3 newfilemask="Created on 99/99/99" # used to mark new files
4 STARTDIR=/
5 FILELISTDIR=/usr/local/data
6 if [ ! -f $FILELISTDIR/file.list ]; then # no file list, create one
7 find $STARTDIR -fstype 4.2 -print |
8 awk '{print "Created on '"$today"'\t" $0}' > $FILELISTDIR/file.list
9 else
10 cp $FILELISTDIR/file.list $FILELISTDIR/file.list.old
11 (find $STARTDIR -fstype 4.2 -print |
12 awk '{print "'"$newfilemask"'\t" $0}'; \
13 cat $FILELISTDIR/file.list) | # combine find and data file together
14 sort -t' ' +1 | # sort file by path name
15 uniq -c -3 | # count number of entries for each file name
16 egrep '^[ ]*2|^[ ]*1 '"$newfilemask"' ' | # ignore deleted files
17 sed 's/^.*Created/Created/
18 s.99/99/99.'$today. > /tmp/$$
19 mv /tmp/$$ $FILELISTDIR/file.list # create new data file
20 fi

B. A cron-table entry that runs find.new.files every night at 11:30 pm:

30 23 * * * /usr/local/bin/find.new.files

Listing 3: The g2j shell script that doesn't work properly.

# Convert GIF files to JPG format:
if ( $#argv == 0 ) then
echo "syntax: g2j file1 [file2 ...]"
exit 1
endif 
foreach i (`ls $1`)
echo -n "Converting " $i " ... "
cjpeg $i > $i.JPG
if ( $status ) then
echo "GIF file error. Not removed."
rm $i.JPG
else
echo "GIF to JPG successful."
rm $i
endif
end