Hi all. I am trying to expand some links found in twitter. They are all t.co links. I have been able to do it with those with a cheat:
use LWP::UserAgent;
our $ua = LWP::UserAgent->new;
$ua->max_redirect(10);
my $twitter = ' https://t.co/NqACDPYdD9';
my $tiny = 'https://tinyurl.com/69rmnakp';
expand($twitter);
sub expand {
my ($short) = @_;
my $response = $ua->get($short);
if ($response->is_success) {
my $long = my $long = my $long = $response->header('refres
+h');
$long =~ s/0\;URL\=//;
return $long;
}
else {
say $response->status_line;
}
}
But there is no
$response->{_headers}->{refresh}; element for the tinyurl link. In fact, browsing through $response with my debugger I can't find anything that looks like the expanded link. I know it's a valid link because my browser expands it.
What is the proper way to get the penultimate redirected-to link from the $response object?