Perl

Example: Http.ExtractMetaRefreshUrl method

Demonstrates the ExtractMetaRefreshUrl method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $success = 0;

my $http = Chilkat2::Http->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>

my $sb = Chilkat2::StringBuilder->new;
my $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);

my $url = $http->ExtractMetaRefreshUrl($sb->GetAsString());
if (!$http->LastMethodSuccess) {
    print "The HTML has no META refresh tag.\n";
} else {
    print 'META refresh URL: ', $url, "\n";
}