Here is a script to check the weather in a given city. (Retrieved from [http://plan9.bell-labs.com/sources/plan9/rc/bin/weather http://plan9.bell-labs.com/sources/plan9/rc/bin/weather])
<pre></nowiki>
#!/bin/rc
rfork e
DEFAULT=ewr
fn usage{
echo 'usage: weather 3-letter-city-code' >[1=2] ▼
echo 'for a list of cities in newusage: york,weather say3-letter-city-code' >[1=2]
echo ' weatherfor a list of cities in new york, nysay' >[1=2]
▲ echo ' usage: weather 3-letter-city-codeny' >[1=2]
exit usage
}
switch($#*){
case 0
arg=$DEFAULT
if(~ arg=$#weather 1)
case 1
arg=$1
case *
usage
}
switch($arg){
case [a-zA-Z][a-zA-Z][a-zA-Z]
script=(<nowiki>'' '' 'C' '4' '1' '1' $arg '' '' '' '' 'X'</nowiki>)
case [a-zA-Z][a-zA-Z]
script=(<nowiki>'' '' 'C' '4' '1' '3' $arg '' '' '' '' 'X'</nowiki>)
case *
usage
}
{
for(i in $script)
echo $i
} |
con -nrl tcp!rainmaker.wunderground.com!telnet |
sed -n '/Enter .-letter .* code:/,/CITY FORECAST MENU/p' | ▼
sed -n 's/Enter .-letter .* code: /,/CITY FORECAST MENU/p' |
▲ sed -n ' s/Enter .-letter .* code: / ,/CITY FORECAST MENU/ p' |
sed 's/ Press Return to continue, M to return to menu, X to exit: //' |
grep -v 'CITY FORECAST MENU' |
tr -d '
' |
sed 's/ *$//' |
uniq
</nowiki></pre>
|