Request strings (Allgemeines zu Perl)

[thread]19665[/thread]

Request strings

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
Kuerbis

2015-05-21 12:08
User since
2011-03-20
947 Artikel
BenutzerIn
Wie kann ich am besten herausfinden, welche Anfrage-Strings diese zwei Beispiele zum Server schicken?
Code (perl): (dl )

1 2 3 4 5 6 7

my $ua = LWP::UserAgent->new( agent => $useragent ); open my $fh, '>:raw', $file or die $!; my $res = $ua->get( $url, ':content_cb' => _return_callback( $fh ), ); #close $fh;
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $ua = Mojo::UserAgent->new(); $ua->transactor->name( $useragent ); my $tx = $ua->build_tx( GET => $url ); #$tx->res->max_message_size( 0 ); #open my $fh, '>:raw', $file or die $!; #$tx->res->content->on( read => _return_callback( $fh ) ); #$ua->start( $tx ); #close $fh;
- pq
  
  2015-05-21 14:19
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  LWP::UserAgent benutzt HTTP::Request, da müsstest du wohl statt $ua->get einen kleinen umweg gehen. ein HTTP::Request hat die methode as_string.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- GwenDragon
  
  2015-05-21 14:30
  User since
  2005-01-17
  14747 Artikel
  Admin1
  Bei LWP:
  Der Request befindet sich in $res->request; das ist ein HTTP::Response-Objekt.
  So gehts nach dem get(...)
  
  Code (perl): (dl )
  
  my $req_string = $res->request->as_string;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2015-05-21 14:40
  
  User since
  2005-01-17
  14747 Artikel
  Admin1
  
  Bei Mojo befindet sich der Request in $tx->req;
  Schau dir mal die Methoden da an: http://mojolicio.us/perldoc/Mojolicious/Controller...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Kuerbis
  
  2015-05-21 15:48
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  Kann ich annehmen, dass die beide das gleiche abholen?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my $ua = LWP::UserAgent->new( agent => $useragent ); open my $fh, '>:raw', $file or die $!; my $res = $ua->get( $url, ':content_cb' => _return_callback( $fh ), ); my $str = $res->request->as_string; say $str; # GET http://hostname.com/videoplayback?... # User-Agent: Mozilla/5.0
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my $ua = Mojo::UserAgent->new(); $ua->transactor->name( $useragent ); my $tx = $ua->build_tx( GET => $url ); my $str = $tx->req->to_string; say $str; #GET /videoplayback?... HTTP/1.1 #Content-Length: 0 #User-Agent: Mozilla/5.0 #Accept-Encoding: gzip #Host: hostname.com

View all threads created 2015-05-21 12:08.