Regexp::Common::URI::tv - Returns a pattern for tv URIs.


Regexp-Common documentation Contained in the Regexp-Common distribution.

Index


Code Index:

NAME

Top

Regexp::Common::URI::tv -- Returns a pattern for tv URIs.

SYNOPSIS

Top

    use Regexp::Common qw /URI/;

    while (<>) {
        /$RE{URI}{tv}/       and  print "Contains a tv URI.\n";
    }

DESCRIPTION

Top

$RE{URI}{tv}

Returns a pattern that recognizes TV uris as per an Internet draft [DRAFT-URI-TV].

Under {-keep}, the following are returned:

$1

The entire URI.

$2

The scheme.

$3

The host.

REFERENCES

Top

[DRAFT-URI-TV]

Zigmond, D. and Vickers, M: Uniform Resource Identifiers for Television Broadcasts. December 2000.

[RFC 2396]

Berners-Lee, Tim, Fielding, R., and Masinter, L.: Uniform Resource Identifiers (URI): Generic Syntax. August 1998.

SEE ALSO

Top

Regexp::Common::URI for other supported URIs.

AUTHOR

Top

Damian Conway (damian@conway.org)

MAINTAINANCE

Top

This package is maintained by Abigail (regexp-common@abigail.be).

BUGS AND IRRITATIONS

Top

Bound to be plenty.

LICENSE and COPYRIGHT

Top


Regexp-Common documentation Contained in the Regexp-Common distribution.

# TV URLs. 
# Internet draft: draft-zigmond-tv-url-03.txt

package Regexp::Common::URI::tv;

use Regexp::Common               qw /pattern clean no_defaults/;
use Regexp::Common::URI          qw /register_uri/;
use Regexp::Common::URI::RFC2396 qw /$hostname/;

use strict;
use warnings;

use vars qw /$VERSION/;
$VERSION = '2010010201';


my $tv_scheme = 'tv';
my $tv_url    = "(?k:(?k:$tv_scheme):(?k:$hostname)?)";

register_uri $tv_scheme => $tv_url;

pattern name    => [qw (URI tv)],
        create  => $tv_url,
        ;

1;

__END__