3

YouTube アカウントに接続する Perl スクリプトを作成しようとしていますが、うまくいきません。基本的には自分のアカウントに接続したいだけですが、明らかに機能していません。これをどのようにデバッグできるかさえわかりません! 多分それはhttpsプロトコルに関連するものですか？

教えてください！前もって感謝します。

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

my $login="test";
my $pass = "test";
my $res = "";
my $ua = "";

# Create user agent, make it look like FireFox and store cookies
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.12) Gecko/20051213 Firefox/1.0.7");
$ua->cookie_jar ( {} );

# Request login page 
$res = $ua->request(GET "https://www.google.com/accounts/ServiceLogin?service=youtube&hl=en_US&passive=true&ltmpl=sso&uilel=3&continue=http%3A//www.youtube.com/signup%3Fhl%3Den_US%26warned%3D%26nomobiletemp%3D1%26next%3D/index");
die("ERROR1: GET http://www.youtube.com/login\n") unless ($res->is_success);


# Now we login with our user/pass
$res = $ua->request(
        POST "https://www.google.com/accounts/ServiceLoginAuth?service=youtube",
        Referer => "http://www.youtube.com/login",
        Content_Type => "application/x-www-form-urlencoded",
        Content => [
                currentform     => "login",
                next            => "/index",
                username        => $login,
                password        => $pass,
                action_login    => "Log+In"
        ]
        );

# YouTube redirects (302) to a new page when login is success
# and returns OK (200) if the login failed.
#die("ERROR: Login Failed\n") unless ($res->is_redirect());


print $res->content;

私がやっていることは、perl の Web 機能を学習することなので、wwwlib または機械化以外のライブラリを使用して仕事を終わらせたくありません。perl スクリプトを使用して自分のアカウントに接続するにはどうすればよいですか? これが今の私の目的です。誰かがスクリプトを投稿したり、私のものを修正したりできることを願っています。助けてくれてありがとう。私は今Webscarabをテストしています..

4

4 に答える 4

9

どのようなデータを取得しようとしていますか? のような既存の実装を使用しないのはなぜですかWebService::YouTube

あなたのコードに関するいくつかのコメント: 私は常にと の使用のみを許可$ua->request(GET/POST)するよりも柔軟性が必要になるため、ショートカット メソッドを常に避けました。コードもそのようにきれいだといつも感じていました。HTTP::RequestHTTP::Response

コードが機能しないのはなぜですか? 知るか。cookiejar が Cookie を発信に追加していることを確認してくださいHTTP::Request。ブラウザで行う場合はすべてのヘッダーをダンプし、libwww送信しているヘッダーとデータと比較することをお勧めします。ヒットごとに異なるチェック対象の追加フィールドがいくつかある場合があります。彼らはあなたの文字列をチェックしているかもしれませんUserAgent。libwww学習したいだけの場合は、別のサイトをターゲットとして使用することをお勧めします。YouTube にはあらゆる種類のスクリプト対策が強化されていると確信しているためです。

于 2009-04-29T19:46:39.637 に答える
5

YouTube の安定した文書化された APIを使用していますか?

WebScarabなどの HTTP プロキシを使用して、データ フローを監視します。

機構に他の誰かの CPAN パッケージを使用するという Trey の提案も良い考えです。

于 2009-04-29T19:56:58.833 に答える
1

概して、リダイレクト ログインを使用するこれらの Web サイトのほとんどに対して cookiejar を定義する必要があります。これは、パッケージが行ったことです。また、このパッケージは、YouTube の仕様に基づいて多くのルックアップとスクレイプを調整します。

たとえば、スクレイピング時に存在しないため、Ajaxコンテンツはラフになります

開始するのにやや大雑把なページを選んだだけです。

楽しみ

于 2009-04-30T06:25:16.763 に答える
1

私は実際にこの問題に自分自身で取り組んでいます。その前に、このGoogleのAPI ガイドを参照することをお勧めします。私が正しく読んでいれば、REST インターフェイスを介してユーザー資格情報を渡し、認証トークンを取得することから始めます。それを処理するために、私は以下を使用しています：

sub getToken {
  my %parms = @_;
  my $response    = LWP::UserAgent->new->post(
                   'https://www.google.com/youtube/accounts/ClientLogin',
                   [
                         Email   => $parms{'username'},
                         Passwd  => $parms{'password'},
                         service => "youtube",
                         source  => "<<Your Value Here>>",                            
                   ]
    );


    my $content = $response->content;


    my ($auth) = $content =~ /^Auth=(.*)YouTubeUser(.*)$/msg
           or die "Unable to authenticate?\n";
    my ($user) = $content =~ /YouTubeUser=(.*)$/msg
            or die "Could not extract user name from response string. ";

    return ($auth, $user);
}

そして、私はそれをプログラムの主要部分から次のように呼び出します。

## Get $AuthToken
my ($AuthToken, $GoogleUserName) = getToken((
                          username => $email, password => $password
                          ));

$AuthToken と $GoogleUserName の 2 つを取得したら、LWP 投稿のテストを続けます。私はまだこのユニットを書いています：

sub test {

my %parms = @_;

## Copy file contents. Use, foy's three param open method. 
my $fileSize = -s $parms{'File'};
open(VideoFile, '<', "$parms{'File'}") or die "Can't open $parms{'File'}.";
binmode VideoFile;
read(VideoFile, my $fileContents, $fileSize) or die "Can't read $parms{'File'}";
close VideoFile;




my $r = LWP::UserAgent->new->post(
    "http://uploads.gdata.youtube.com/feeds/api/users/$parms{'user'}/uploads",
    [
        Host              => "uploads.gdata.youtube.com",
        'Authorization'     => "AuthSub token=\"$parms{'auth'}\"",
        'GData-Version'     => "2",
        'X-GData-Key'       => "key=$YouTubeDeveloperKey",
        'Slug'              => "$parms{'File'}",
        'Content-Type'      => "multipart/related; boundary=\"<boundary_string>\"",
        'Content-Length'    => "<content_length>",
        'video_content_type'=> "video/wmv",
        'Connection'        => "close",
        'Content'           => $fileContents
    ]

);


print Dumper(\$r->content)
}

そして、それは次のように呼ばれます

&test((auth=>$Auth, user=>$user, File=>'test.wmv'));
于 2009-09-28T19:18:18.670 に答える