extract string - #162035 (Allgemeines zu Perl)

topeg

2012-09-25 18:16

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Man muss nur ein neues Scheme für URI erzeugen:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;
use URI;

my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts");
print $uri->host;

# erzeuge neues URI Scheme
package URI::dvb;
use parent "URI::http";
1;

Last edited: 2012-09-25 18:20:21 +0200 (CEST)