fileurl

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     our $PROGRAM_DIR = $ENV{XR_PERL_SOURCE_DIR};
  10     unless($PROGRAM_DIR) {
  11         $PROGRAM_DIR = $0;
  12         $PROGRAM_DIR =~ s/[^\/\\]+$//;
  13         $PROGRAM_DIR =~ s/\/+$//;
  14         $PROGRAM_DIR = "." unless($PROGRAM_DIR);
  15     }
  16     unshift @INC,
  17         map "$PROGRAM_DIR/$_",qw{modules lib ../modules ..lib};
  18 }
  19
  20 my %OPTS;
  21 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  22
  23 if(@ARGV)
  24 {
  25     require Getopt::Long;
  26     require MyPlace::Usage;
  27     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  28     MyPlace::Usage::Process(\%OPTS,$VERSION);
  29 }
  30 else
  31 {
  32     require MyPlace::Usage;
  33     MyPlace::Usage::PrintHelp();
  34     exit 0;
  35 }
  36 use Cwd qw/getcwd/;
  37 my $cwd = getcwd;
  38 my @r;
  39 foreach(@ARGV) {
  40     if(m/:\/\//) {
  41         push @r,$_;
  42     }
  43     elsif(m/^\//) {
  44         push @r,"file://" . $_;
  45     }
  46     else {
  47         push @r,"file://" . $cwd . '/' . $_;
  48     }
  49 }
  50 if(@r) {
  51     print join(" ",@r),"\n";
  52 }
  53
  54
  55
  56 __END__
  57
  58 =pod
  59
  60 =head1  NAME
  61
  62 fileurl - PERL script
  63
  64 =head1  SYNOPSIS
  65
  66 fileurl [options] ...
  67
  68 =head1  OPTIONS
  69
  70 =over 12
  71
  72 =item B<--version>
  73
  74 Print version infomation.
  75
  76 =item B<-h>,B<--help>
  77
  78 Print a brief help message and exits.
  79
  80 =item B<--manual>,B<--man>
  81
  82 View application manual
  83
  84 =item B<--edit-me>
  85
  86 Invoke 'editor' against the source
  87
  88 =back
  89
  90 =head1  DESCRIPTION
  91
  92 ___DESC___
  93
  94 =head1  CHANGELOG
  95
  96     2010-11-21 00:52  xiaoranzzz  <xiaoranzzz@myplace.hell>
  97
  98         * file created.
  99
 100 =head1  AUTHOR
 101
 102 xiaoranzzz <xiaoranzzz@myplace.hell>
 103
 104 =cut
 105
 106 #       vim:filetype=perl