Posted to tcl by superlinux-hp at Mon Feb 23 08:36:06 GMT 2015view pretty
#!/usr/bin/tclsh package require http package require json set youtube_playlist_url {https://www.youtube.com/playlist?list=PLsAEIIjTPIo_Ja5sHIb6H-Fpnh2-LAwmv} set playlist_id [ lindex [ split $youtube_playlist_url "=" ] 1 ] set http_token [ ::http::geturl "http://gdata.youtube.com/feeds/api/playlists/$playlist_id/?v=2&alt=json&feature=plcp" -method GET ] set youtube_dictionary [ ::json::json2dict [ ::http::data $http_token ] ] puts output: set video_entries [ dict get [ dict get $youtube_dictionary feed] entry] puts [ lsearch -inline -regexp {http://www\.youtube\.com/v/.*version} $video_entries]