« 2007年10月 | メイン | 2007年12月 »

2007年11月 アーカイブ

2007年11月 4日

iPod用h264を作るときのdebian(?)等のffmpegのオプションは -vlevel じゃなくて -level

iPod toch 向けにffmpegを使用しH.264の映像作って、転送しようと思ったら、全部 iTunes に怒られてどうしたもんだなと思ったら、同じように悩んでいる人がいた。

なるほど、-coder 0 -vlevel 13 というオプションが必要なんだな。 ところが、debian-multimedia経由で入れたdebianのFFmpegでは vlevel というオプションがないといわれる。 で、いろいろ調べた結果。-vlevel じゃなくて -level でいいらしい。

 -coder 0 -level 13 

これで、無事 iPod touch でH264見れました。

2007年11月 6日

YAML.pmはマージがきかない

YAML.pm は Merge Key に対応してない。 おそらく、YAML1.0 spec だからだと思われる。 YAML の Merge Key については以下を参照。

2007年11月27日

VeohのFLVをダウンロードするPerlスクリプト

Veohって動画共有サイトのビデオ、FLVファイルをダウンロードするスクリプト書いた。 「google videoやyoutubeとかの動画を落として保存。」ってサイトがソース公開という神なことをしてくれていたので、解析する手間が省けた。どうもです。 これからPlaggerのFilter-FindEnclosuresのassetsを書く予定。

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;

my $url = $ARGV[0];
my ( $id, $flv_url, $file_name );
$id = $1 if $url =~ m|videos/(.*)|;
$id = $1 if $id  =~ /(.*)\?/;
die unless $id;

my $ua       = LWP::UserAgent->new( keep_alive => 1 );
my $rest_url = "http://www.veoh.com/rest/video/$id/details";
my $content  = $ua->get($rest_url)->content;
$flv_url = $1 if $content =~ /fullPreviewHashPath="(.*?)"/;
return unless $flv_url;
warn "$url => $id.flv\n";
$ua->request( HTTP::Request->new( GET => $flv_url ), "$id.flv" );

Filter-FindEnclosures/veoh.pl

さっき書いたスクリプトを参考にVeohのURLからFLVのパスをEnclosureにセットするPlaggerのassets。CodeReposにうpした→ /lang/perl/plagger/assets/plugins/Filter-FindEnclosures/veoh.pl - CodeRepos::Share - Trac

# author: yusukebe

sub handle {
    my ($self, $url) = @_;
    $url =~ qr!http://www.veoh.com/videos/.*!;
}

sub find {
    my ($self, $args) = @_;
    my $id = $args->{url} =~ qr!videos/(.*)! ? $1 : "";
    $id = $1 if $id  =~ /(.*)\?/;
    return unless $id;
    my $ua = Plagger::UserAgent->new;
    my $url = "http://www.veoh.com/rest/video/$id/details";
    my $res = $ua->fetch($url);
    return if $res->is_error;
    my $content = $res->content;
    $content =~ /fullPreviewHashPath="(.*?)"/;
    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url($1);
    $enclosure->type('video/flv');
    $enclosure->filename("$id.flv");
    return $enclosure;
}

2007年11月29日

はてなグループの管理画面参加者一覧から参加人数を数えるJavaScript

born1981のユーザー数がやたら増えてきて目で数えられないので書いた。

var num = 0; var elements = document.getElementsByTagName("input"); for(var i=0;i<elements.length;i++){ if(elements[i].getAttribute('type') == 'submit'){ num++} }; alert(num);

About 2007年11月

2007年11月にブログ「Yusukebe::Tech」に投稿されたすべてのエントリーです。過去のものから新しいものへ順番に並んでいます。

前のアーカイブは2007年10月です。

次のアーカイブは2007年12月です。

他にも多くのエントリーがあります。メインページアーカイブページも見てください。


ブログSEO対策:track word seo