memo
perl get.pl
blogid : cache
: cache-> call fetch_youtube.pl
- cache -> call filter_word_spliter.pl
- : -> call filter_youtube_url.pl
- : : * url
- : url<-
- :
- wait url
- url -> call fetch_youtube_watch.pl
- : -> call wget
- : * source<-
- wait source...
- source<-
- source-> call filter_youtube_redirect.pl
- : * url
- wait url
- url<-
- source : (make path)title->filename + add dir => filepath
- * filepath<-
- UR = url : filepath
- <-* (return UR: no wait)
:
: UR->call wget -O filepath.tmp url
: rename filepath.tmp filepath
:
make pls