Naritakaのはてな日記

livetubeに大量にコメント送信

14:57

ということをやってるけど、そろそろ飽きてきたなー

１０００個ほどのプロキシリストを用意して、

３秒タイムアウトでプロキシリストから毎回ランダムにプロキシ選んでlivetubeにコメント送信するスクリプトを、

120個スレッド用意して実行してやれば大量にコメントを送信できる

これをニコ生でやるには、大量にアカウントが必要になるんだろうな・・・

CentOSのApache2モジュールでH264をストリーミング配信する

Apache | 11:34

CentOSにはデフォルトじゃapxsがインストールされてないからインストールする。

yum install httpd-devel

次にH264をストリーミングするためにh264_streaming_moduleをインストール

# wget http://h264.code-shop.com/download/apache_mod_h264_streaming-2.2.7.tar.gz
# tar xvfz apache_mod_h264_streaming-2.2.7.tar.gz
# cd mod_h264_streaming-2.2.7 ; pwd
# ./configure --with-apxs=/usr/sbin/apxs && make && make install

.htaccessやapacheのconfに

LoadModule h264_streaming_module /usr/lib64/httpd/modules/mod_h264_streaming.so
AddHandler h264-streaming.extensions .mp4

と入力すればH264でストリーミング配信ができます。

これから作っていくサイトのメモ

メモ | 20:16

・ffmpegを使ったサイト

・スカイプちゃんねるの会員登録型掲示板

今のところこんだけ

Perlとffmpegを使ったYouTubeの動画をmp3に変換

19:17

Perlとffmpegを使ってYouTubeの動画をダウンロードした後mp3に変換するソースコード

use strict;
use warnings;
use URI::Escape;
use LWP::UserAgent;
use HTTP::Request;
use IO::File;
use URI;
use Getopt::Long;

print "http://www.youtube.com/watch?v=動画ID\n";
print "YouTubeの動画ID:";
my $id = <STDIN>;
chomp $id;

print "タイトル(スペースは入れないでください):";
my $title = <STDIN>;
chomp $title;

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new("GET", "http://www.youtube.com/watch?v=$id");
my $res = $ua->request($req);
my $code = $res->content();
$code =~ /stream_map=url%3D(.+?)%3D/;
my $unescaped = uri_unescape( $1 );
$unescaped =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/ego;

$ua->request( HTTP::Request->new( GET => $unescaped ), "$title.webm" );

# 起動オプション
my $inDir = "./";
my $outDir = "./";

  my $fname = "$title.webm";  #ファイル名取得

  my $name = "$title";

  my $video_option = "";
  my $audio_option = "";

    if($fname=~/.mp4/i){
      $audio_option .= " -acodec libmp3lame"    # 音声コーデック
      ." -ac 2"                                # 音声チャネル数
      ." -ar 44100"                            # 音声サンプリングレート
      ." -ab 160k";                            # 音声ビットレート
    }elsif($fname =~ ".WebM" or $fname =~ ".webm") {
      $audio_option .= " -acodec libmp3lame"    # 音声コーデック
      ." -ac 2"                                # 音声チャネル数
      ." -ar 44100"                            # 音声サンプリングレート
      ." -ab 160k";                            # 音声ビットレート
    }else{
      $audio_option .= " -acodec copy";        # 元音声をコピー
    }
  
  my $command = "ffmpeg -y -i $inDir$fname"
    ." -copyts"                                # ソースのタイムスタンプ維持
    .$audio_option
    ." -f mp3 $outDir$name.mp3";
#  print "$command\n";
#=pod
  `$command`;
#=cut
unlink("$title.webm");
print "完了";
exit;

はてな

17:58

はてなダイアリープラスに登録しようかなー

そんなこんなで

18:13

1年半程度放置してたわけですが

そろそろはてなも使っていこうかなーと。。。