Help for this page

Select Code to Download

Select or download this

sub fix_URL {
    use URI;
...
    print "input is: $in\n";
    print "fixed url is: $url\n";
}

Select or download this

perl> fix_URL 'tp://www.cnn.com'
input is: tp://www.cnn.com
fixed url is: http://www.cnn.com
perl>