note
poolpi
<p>See <a href="http://search.cpan.org/~abigail/Regexp-Common-2010010201/lib/Regexp/Common/URI/http.pm">Regexp::Common::URI::http</a><br></p>
<c>
#!/usr/bin/perl
use strict;
use warnings;
use Regexp::Common qw /URI/;
while(<DATA>){
chomp;
/$RE{URI}{HTTP}{-keep}/
and print "Contains an HTTP URI.\nHost=$3\n";
}
__DATA__
http://192.168.1.10/index.html
http://www.delicious.com/search?p=perl&chk=&context=main|&fr=del_icio_us&lc=
</c>
<p>Output:<br>
Contains an HTTP URI.<br>
Host=192.168.1.10<br>
Contains an HTTP URI.<br>
Host=www.delicious.com
</p>
<p><br>hth,<br>PooLpi<br><br></p>
<div class="pmsig"><div class="pmsig-630083">
<small>'Ebry haffa hoe hab im tik a bush'. <a href='
http://hjem.get2net.dk/sbn/gladi/proverbial.htm#stick' target='_parent'>
Jamaican proverb</a></small>
</div></div>
869331
869331