Help for this page

Select Code to Download


  1. or download this
    if ($url_text =~ m/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/ )
{
  $url_sub = sprintf( "%%%02X", ord( $1 ) );
  $url_text =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$url_sub/;
}
  2. or download this
    $url_text =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/sprintf( "%%%02X",
+ ord( $1 ) )/ge;