Freesoft Archive

taRgreyの導入によりかなりスパムは減ってきたが、やはりすり抜けてくるスパムはある。
その中でも特にしつこいものはやはりblacklistに登録して排除したい。

ということで、Thunderbirdのmboxからヘッダ情報の一覧を作成するスクリプトを作成した。
迷惑メールフォルダに対してこのスクリプトをかけ、出力をExcelにでも読み込ませて、大量に送りつけてくるネットワークを遮断できれば、精神的負荷が軽減されることが期待できる。

hat-09030901.pl

ネットワークアドレスやドメインの確認に使えそうなページ。

• IP-DOMAIN-SEARCH.COM
• 迷惑メールデータベース ／ SPAM Database HomePage

Yahoo動画をBackGroundvideoとして、ランダムに再生するPerlスクリプトをバージョンアップ。

今回のバージョンアップポイントは、優先度の指定。
3カラム目に、一桁の数字が書いてあると、それが優先度になる。

使い方
1. 目的の動画の「動画を見る」ボタンがあるページのURLを見つける。
ブラウザを使って自力で探します。

2. タイトルとURLを定義ファイルyvplay.datに登録する。
エディタで開いて、記入する。
タイトルとURLをタブで区切って記入する。
(1.1とは順番が逆になります)
もちろん、複数のURLを指定することができます。その場合は1行1URLで指定します。

J-HITSミュージックビデオ	http://streaming.yahoo.co.jp/p/t/00117/v00261/
ANN（テレビ朝日系）主要ニュース	http://streaming.yahoo.co.jp/newsflash/list/ann/imp/photo/	1

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

> perl yvplay.pl

ソース

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

ypplay.pl

#!/usr/bin/perl
# yvplay.pl Rev.1.3
# Copyright (c) YAMAGISHI Norimasa nor@rally.or.jp
# http://rally.jp/comp/

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, $_);
}

for ($i = 1; $i < 10; $i++) {
    @tmp_list = grep(/\t$i$/, @URLS);
    while ( @tmp_list ) {
        push(@play_list, splice(@tmp_list , rand @tmp_list , 1));
    }
}

@play_list = (@play_list, grep(!/\t\d$/, @URLS));

while(@play_list) {
    $item =  shift(@play_list);
    if ($item =~ /^$/) {next;};
    if ($item =~ /^#.*/) {next;};
    ($item_title, $item_url, $priority) = split /\t/, $item, 3;
    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) {
	$line =~ s/\\//g;
        if ($line =~ /document\.write\([\'\"]<a href=\"#\"/) {
	    chop;
            $line =~ s/^.*onClick="wo\('//;
            $line =~ s/'.*$//;
	    $play_url = $line;
	    last;
	}
    }
    return $play_url;
}

Yahoo動画をBackGroundvideoとして、ランダムに再生するPerlスクリプトをバージョンアップ。

といっても、YahooのHTMLデータにちょっと違うものが見つかったので対応しただけ。

使い方
1. 目的の動画の「動画を見る」ボタンがあるページのURLを見つける。
ブラウザを使って自力で探します。

2. タイトルとURLを定義ファイルyvplay.datに登録する。
エディタで開いて、記入する。
タイトルとURLをタブで区切って記入する。
(1.1とは順番が逆になります)
もちろん、複数のURLを指定することができます。その場合は1行1URLで指定します。

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

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

> perl yvplay.pl

ソース

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

ypplay.pl

#!/usr/bin/perl
# yvplay.pl Rev.1.2
# Copyright (c) YAMAGISHI Norimasa nor@rally.or.jp
#		http://rally.jp/comp/archives/

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;};
    if ($item =~ /^#.*/) {next;};
    ($item_title, $item_url) = split /\t/, $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) {
	$line =~ s/\\//g;
        if ($line =~ /document\.write\([\'\"]<a href=\"#\"/) {
	    chop;
            $line =~ s/^.*onClick="wo\('//;
            $line =~ s/'.*$//;
	    $play_url = $line;
	    last;
	}
    }
    return $play_url;
}

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;
}