最大的目的, 是除了看王建民先發外, 也關心那些和王建民在爭投王的投手, 以及電玩人投手的情形.
- #!/bin/sh
- mymatch()
- {
- name=`echo $1 | perl -ne '$_ =~ /^(.*)\|.*/; print $1;'`
- team=`echo $1 | perl -ne '$_ =~ /^.*\|(.*)/; print $1;'`
- if grep -e ">$name," $pp_html; then
- echo " $team, $name" >> $pp_txt
- fi
- #grep -e "$1," $pp_html | perl -ne '$_ =~ m/b>([a-zA-Z-.]*\s\w*,\s[A-Z]*)/; print $1 . "\n";' >> $pp_txt
- }
- pp_html=ProbablePitchers.html
- pp_txt=ProbablePitchers.txt
- echo "" > $pp_txt
- days="-1d#+0d#+1d#+2d#+3d"
- pitchers="Chien-Ming Wang|NYY#Andy Pettitte|NYY#Mike Mussina|NYY#Darrell Rasner|NYY#Kei Igawa|NYY#Phil Hughes|NYY#Ian Kennedy|NYY#Ervin Santana|LAA#Joe aunders|LAA#Cliff Lee|CLE#C.C. Sabathia|CLE#Daisuke Matsuzaka|BOS#Josh Beckett|BOS#Johan Santana|NYM#Brandon Webb|ARI#Roy Halladay|TOR"
- IFS=#
- for day in $days; do
- d=`date -v $day "+%Y%m%d"`
- fetch -o $pp_html 'http://mlb.mlb.com/news/probable_pitchers.jsp?c_id=mb&ymd='$d
- echo "$d" >> $pp_txt
- for pitcher in $pitchers; do
- mymatch $pitcher
- done
- echo "" >> $pp_txt
- done
- echo "Tracing Pitchers" >> $pp_txt
- for pitcher in $pitchers; do
- echo " $pitcher" >> $pp_txt
- done
- today=`date "+%Y/%m/%d"`
- tail -n100 $pp_txt | mail -s "[MLB]Probable Pitchers ($today)" "yourmail@gmail.com"
- rm $pp_html $pp_txt
