Yusukebe::Tech

YouTubeの映像をembedで埋め込みたいけど、映像によってはembedを許可してないビデオもある。 ビデオIDをキーにしてそれをPerlで判定するメソッド。_fetch_xmlはレスポンスをXML::Simpleで変換したハッシュを返す。

sub check_embed_status {
  my ( $video_id ) = @_;
  my $youtube_url = "http://www.youtube.com/api2_rest?method=youtube.videos.get_details&dev_id=xxxxxxxxx&video_id=$video_id";
  my $youtube_xml = _fetch_xml($youtube_url);
  if($youtube_xml->{video_details}->{embed_status} eq 'ok'){
    return 1;
  }else{
    return 0;
  }
}