But that just plays back the input URI.use strict; use feature ':5.10'; use LWP::UserAgent; my $uri = 'https://t.co/O4qjsxuCsV'; my $browser = new LWP::UserAgent(); $browser->max_redirect(5); $browser->agent("Mozilla/5.0 (Windows NT 6.1)"); my $response = $browser->get($uri); my $request = $response->request(); my @redirects = $response->redirects(); foreach my $res (@redirects) { print $res->request->uri }
In reply to Unshortening t.co links by cormanaz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |