challenge-001/abigail/awk/ch-1.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/awk

#
# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
#

#
# Run as: awk -f ch-1.awk < input-file
#

{
    count = gsub ("e", "E")
    print $0
    print count
}