Rc: Difference between revisions
Content added Content deleted
m (Fixed wiki formatting) |
(Avoid embedding wiki code (even 'nowiki') in language code.) |
||
| Line 4: | Line 4: | ||
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]) |
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 new york, say' >[1=2] |
|||
| ⚫ | |||
exit usage |
|||
} |
|||
switch($#*){ |
|||
case 0 |
|||
arg=$DEFAULT |
|||
| ⚫ | |||
if(~ $#weather 1) |
|||
| ⚫ | |||
case 1 |
|||
arg=$1 |
|||
case * |
|||
usage |
|||
} |
|||
switch($arg){ |
|||
case [a-zA-Z][a-zA-Z][a-zA-Z] |
|||
script=('' '' 'C' '4' '1' '1' $arg '' '' '' '' 'X') |
|||
case [a-zA-Z][a-zA-Z] |
|||
script=('' '' 'C' '4' '1' '3' $arg '' '' '' '' 'X') |
|||
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 '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> |
|||