(Perl) Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method.

Chilkat Perl Downloads

Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

$http = chilkat::CkHttp->new();

# Sample HTML with a META refresh.

# <!DOCTYPE html>
# <html lang="en">
# <head>
#   <meta charset="utf-8" />
#   <meta http-equiv="refresh" content="5; url=https://example.com" />
#   <title>Meta Refresh Redirect</title>
# </head>
# <body>
#   <p>Redirecting to example.com in 5 seconds�</p>
# </body>
# </html>

$sb = chilkat::CkStringBuilder->new();
$bCrlf = 1;
$sb->AppendLine("<!DOCTYPE html>",$bCrlf);
$sb->AppendLine("<html lang=\"en\">",$bCrlf);
$sb->AppendLine("<head>",$bCrlf);
$sb->AppendLine("  <meta charset=\"utf-8\" />",$bCrlf);
$sb->AppendLine("  <meta http-equiv=\"refresh\" content=\"5; url=https://example.com\" />",$bCrlf);
$sb->AppendLine("  <title>Meta Refresh Redirect</title>",$bCrlf);
$sb->AppendLine("</head>",$bCrlf);
$sb->AppendLine("<body>",$bCrlf);
$sb->AppendLine("  <p>Redirecting to example.com in 5 seconds�</p>",$bCrlf);
$sb->AppendLine("</body>",$bCrlf);
$sb->AppendLine("</html>",$bCrlf);

$url = $http->extractMetaRefreshUrl($sb->getAsString());
if ($http->get_LastMethodSuccess() == 0) {
    print "The HTML has no META refresh tag." . "\r\n";
}
else {
    print "META refresh URL: " . $url . "\r\n";
}