yvplay 1.1

Yahoo動画をBackGroundvideoとして、ランダムに再生するPerlスクリプトを作った。 使い方 1. 目的の動画の「動画を見る」ボタンがあるページのURLを見つける。 ブラウザを使って自力で探します。 2. URLを定義ファイルyvplay.datに登録する。 エディタで開いて、記入する。 もし、注釈をつけたいなら、タブで区切ってその後に注釈をつける。 もちろん、複数のURLを指定することができます。その場合は1行1URLで指定します。

http://streaming.yahoo.co.jp/p/t/00039/v00575/	夕刊フジTV

3. 動画をランダム再生する >> yvplay.pl

ソース

たいしたものではないので、そのまま載せる。

ypplay.pl

#!/usr/bin/perl
# yvplay.pl Rev.1.1

use LWP::Simple;

$IE='"C:\Program Files\Internet Explorer\IEXPLORE.EXE"';

$SRC_FILE='yvplay.dat';

open SRC_FILE, "<$SRC_FILE";
while(<SRC_FILE>) {
    chop;
    push(@URLS, $_);
}

while ( @URLS ) {
    push( @play_list, splice(@URLS , rand @URLS , 1) );
}

while(@play_list) {
    $item =  shift(@play_list);
    if ($item =~ /^$/) {next;};
    ($item_url, $item_title) = split /\s/, $item, 2;
    print STDERR "Now playing ";
    if (!($item_title =~ /^$/)) {
	print STDERR $item_title . " ";
	}
    print STDERR $item_url . "\n";
    $play_url = &get_play_url($item_url);
    print STDERR "player url = " . $play_url . "\n\n";
    $cmd_line = $IE . " \"" . $play_url . "\"";
    system $cmd_line;
}
print STDERR "## All list up items are END ##\n";

sub get_play_url {
    my($item_url)=@_;
    my $src_html, @lines_html, $line, $play_url;

    $src_html=get($item_url);
    @lines_html = split(/\n/,$src_html);

    foreach $line (@lines_html) {
        if ($line =~ /document\.write\(\'&lt;a href=\"\#\"/) {
	    chop;
            $line =~ s/^.*onClick="wo\(\\'//;
            $line =~ s/\\'.*$//;
	    $play_url = $line;
            last;
	}
    }
    return $play_url;
}