Help for this page

Select Code to Download

Select or download this
```
sub ParseURL
{
...
}
```
Select or download this
```
$url=~ /^(\w+):\/*([^\/]+)\/(.*)$/;
```
Select or download this
```
$url=~ /^(\w+):\/*([^\/]+),(.*)$/;
```