Guest User

Untitled

a guest
Dec 16th, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. my $resp = await Cro::HTTP::Client.post: "http://www.sedar.com/FindCompanyDocuments.do", headers => [ User-agent => 'Mozilla/5.0 (X11; Fedora; Linux x86_64)'], content-type => 'application/x-www-form-urlencoded', body => %formdata;
  2.  
  3.  
  4. my $content = await $resp.body;
  5. my $dom = DOM::Tiny.parse($content);
  6. my $table = $dom.at('table');
  7. say $table.all-text;
Add Comment
Please, Sign In to add comment