Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$ua->get($uri);

print Dumper "$uri\n";
  2. or download this
    #!/usr/bin/env perl

...
print "FORMED: $uri\n\n";

print $uri eq $wanted ? "<<perfect match!>>\n" : "<<they're different!
+>>\n";
  3. or download this
    WANTED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=
+XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%
+2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW
FORMED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=
+XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%253
+A%252F%252Ftestchandan.com%253A5001&state=1234&nonce=UBGW

<<they're different!>>
  4. or download this
    #!/usr/bin/env perl

...
print "FORMED: $uri\n\n";

print $uri eq $wanted ? "<<perfect match!>>\n" : "<<they're different!
+>>\n";
  5. or download this
    WANTED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=
+XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%
+2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW
FORMED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=
+XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%
+2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW

<<perfect match!>>