user-tools/g_filename_to_uri

   1 #!/bin/bash
   2
   3 true <<EOF
   4 =pod
   5
   6 =head1 NAME
   7
   8 g_filename_to_uri - Mimic g_filename_to_uri() GLib function creating a file:// url from path string
   9
  10 =cut
  11
  12 EOF
  13
  14
  15 echo -n file://$1 | \
  16 perl -pe 's{[^a-z0-9_!$~\x26-\x2E:@=+/]}{sprintf "%%%02X", ord$&}egi'