14 lines
283 B
Awk
14 lines
283 B
Awk
|
#!/usr/bin/awk -f
|
||
|
|
|
||
|
|
# Downloadable example 5 for GNU Awk Part 15
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
cmd = "wget -q http://hackerpublicradio.org/stats.php -O -"
|
||
|
|
while ((cmd | getline) > 0) {
|
||
|
|
if ($0 ~ /^Shows in Queue:/)
|
||
|
|
printf "Queued shows on HPR: %d\n", $4
|
||
|
|
}
|
||
|
|
close(cmd)
|
||
|
|
}
|
||
|
|
|