[plamo:25880] mplayer

[早間]

早間です。
mplayer でコンテンツを見ることが出来ないので(手が掛かるので)
つぎのプログラムを作りました。今は自分の $HOME においています。
moilla で video/x-ms-asf タイプだから処理できないと言うときに
次で開く として $HOME/asx
を指定します。
問題点は、コンテンツは見ることが出来るのですが、 mplyer が終わって
くれません。「どくろマーク」を使用して消さなければなりません。
そこで
(1) こんな perl を使わなくても見る方法があるのでしょうか
(2) mplayer を終わらせる方法はあるのでしょうか。

---------------------------- ここから ---------------------------
#! /usr/bin/perl
$ENV{"PATH"}="/usr/local/bin:/bin:/usr/bin:/bin:";
if ($ARGV[0] =~ /^http:/i) {
    open (DWN,"wget $ARGV[0] -O- |");
} else {
    open (DWN,"cat $ARGV[0]|");
}
while (<DWN>) {
    if ($_ !~ /href\s*=/i) {next;}
    ($href)=/href\s*=\"*([\w\:\/\_\-\_\.]+)/i;
    if ($href =~ /^mms/) {
        system(" mplayer $href");
    } else {
        system ("\$HOME/asx $href wget");
    }
}
close (DWN);
---------------------------- ここまで ---------------------------

-- 早間 義博