如何获得网络视频文件的真实地址？

[罗非鱼]

请问，如何可以获得网络视频文件的真实地址？
http://hd.openv.com/tv_play-hddoc_20100111_7155035.html
以这个网络视频为例，如何使用命令行工具？

[delectate]

http://118.125.243.198/4/flv10/programm ... 11.460.mp4

[eexpress]

你这么不搜索 flash-down.pl

[hasee.wu]

你这么不搜索 flash-down.pl

https://www.google.com/search?hl=en&sou ... =&gs_rfai=




google的搜索真的很精准。

[jxhow]

有在线转换的

[黄美姬]

看完不要关浏览器，文件就在/tmp里，是flash,真实地址是MP4文件

http://hd.openv.com/tv_play-hdmv_20090603_7049409.html
用flashgot可以下MP4

Screenshot-36.png (28.34 KiB) 查看 1137 次

[罗非鱼]

知道了，学会了，我想可否使用shell命令行做到这点？

[delectate]

https://www.deleak.com/blog/2010/06/10/ ... deo-files/

[eexpress]

你这么不搜索 flash-down.pl

https://www.google.com/search?hl=en&sou ... =&gs_rfai=




google的搜索真的很精准。

oops。我说的搜索，可都是论坛上面的那搜索。

[罗非鱼]

● cat bin/flash-down.pl
#!/usr/bin/perl -w

use utf8;
use strict;
use WWW::Mechanize;
use Net::DBus;

$_=$ARGV[0];
chomp; s/\//%2F/g; s/:/%3A/g;
$_="http://www.flvcd.com/parse.php?flag=&fo ... CA%BCGO%21";

my $bus = Net::DBus->session->get_service('org.freedesktop.Notifications')->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
my $mech = WWW::Mechanize->new();
$mech -> get($_);
if ($mech->success()) {
# print $mech->title()."==================\n";
$_=$mech->content();
/当前解析视频.*/; $_=$&; s/^.*?strong>//; s/<strong.*//;
print "\e[31m\e[1m".$_."\e[0m==================\n";
mkdir $_; chdir $_;
my $name=$_;
my @link=$mech->find_all_links(text_regex => qr/http:\/\/.*[0-9a-fA-F]*/,);
my $size=@link;
$bus->Notify("fetch_flash", 0, "sunny", "$name", "共获取 $size 个地址。", [], { }, -1);
print map "=> \e[32m".$_->url()."\e[0m\n",@link;
my $cnt=1; my $proc="-"x$size;
foreach(@link){
my $add=$_->url();
print "\e[31m下载\e[0m => \e[32m$add\e[0m\n";
`wget -nc --user-agent='Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.3) Gecko/2008092416 Firefox/3.0.3' $add`;
$_=$?==0?"V":"x";$proc=~s/-/$_/;
$bus->Notify("fetch_flash", 0, ($?==0?"sunny":"error"), "$name", "已经完成下载 $cnt / $size ，wget返回：$? 。进度：$proc。", [], { }, -1);
print "\e[31m\e[1m已经完成下载 $cnt / $size\e[0m ，wget返回：$? 。进度：\e[31m\e[1m$proc\e[0m。\n";
$cnt++;
}
`echo "$ARGV[0]\t《$_》 已经执行下载。结果：$proc">>$ENV{HOME}/flash-down.log`;
chdir '..';
} else {
$bus->Notify("fetch_flash", 0, "error", 'flash 解析失败，无效地址？', ':(', [], { }, -1);
}
#======================
你那个程序是perl调用flvcd的结果，我想知道，可否自己用shell，不借用flvcd，获得结果。

[link_01]

firefox adblock或者看源码：

代码： 全选

http://119.167.224.146/3/flv10/programme/dvdprogramme/20100111/hd/20100111_dvdprogramme_Programme_153717987_0.000_311.460.mp4

大多数视频下载时会有个地址在接受数据，搜索一下