[PERL] Basic auth

Discussion in 'PHP' started by Sharky, 13 Jul 2008.

  1. Sharky

    Sharky Elder - Старейшина

    Joined:
    1 May 2006
    Messages:
    487
    Likes Received:
    312
    Reputations:
    46
    Подскажите как залогиниться испольльзуя перл если на сайте стоть бэйсик авторизация
     
    #1 Sharky, 13 Jul 2008
  2. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    809
    Reputations:
    231
    Короче
    Code:
    use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  $req = HTTP::Request->new(GET => 'http://www.linpro.no/secret/');
  $req->authorization_basic('aas', 'mypassword');
  print $ua->request($req)->as_string;
    http://search.cpan.org/dist/libwww-perl/lwpcook.pod
     
    _________________________
    #2 Kaimi, 13 Jul 2008
    2 people like this.
  3. BlackSun

    BlackSun Banned

    Joined:
    1 Apr 2007
    Messages:
    989
    Likes Received:
    1,168
    Reputations:
    446
    #3 BlackSun, 13 Jul 2008
  4. Sharky

    Sharky Elder - Старейшина

    Joined:
    1 May 2006
    Messages:
    487
    Likes Received:
    312
    Reputations:
    46
    всё спасибо..проблема решина...можно клозед
     
    #4 Sharky, 13 Jul 2008
(You must log in or sign up to post here.)