PERL   41

url pl

Guest on 21st July 2022 01:18:56 AM

  1. #
  2. # $Id: url.pl 10125  rothe $
  3. #
  4.  
  5. use bytes;
  6.  
  7.  
  8. sub url_encode
  9.   {
  10.   my ($text) = shift;
  11.  
  12.   $text =~ s/([^a-z0-9_.!~*'()-])/sprintf "%%%02X", ord($1)/gei;
  13.   $text =~ tr/ /+/;
  14.  
  15.   return $text;
  16.   }
  17.  
  18.  
  19. sub url_decode
  20.   {
  21.   my ($text) = shift;
  22.  
  23.   $text =~ tr/\+/ /;
  24.   $text =~ s/%([a-f0-9][a-f0-9])/chr( hex( $1 ) )/gei;
  25.   $text =~ s/\&/\&/g;
  26.  
  27.   return $text;
  28.   }
  29.  
  30.  
  31. sub url_module_exists
  32.   {
  33.   my ($module) = @_;
  34.  
  35.   $module =~ s#::#/#g;
  36.  
  37.   for (@INC)
  38.     {
  39.     if (-s "$_/$module.pm")
  40.       {
  41.       return 1;
  42.       }
  43.     }
  44.  
  45.   return;
  46.   }
  47.  
  48. 1;

Raw Paste


Login or Register to edit or fork this paste. It's free.