convert-video

   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     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  18
  19 if(!@ARGV)
  20 {
  21     require MyPlace::Usage;
  22     MyPlace::Usage::PrintHelp();
  23     exit 0;
  24 }
  25
  26
  27
  28
  29 __END__
  30
  31 =pod
  32
  33 =head1  NAME
  34
  35 convert-video - PERL script
  36
  37 =head1  SYNOPSIS
  38
  39 convert-video [options] ...
  40
  41 =head1  OPTIONS
  42
  43 =over 12
  44
  45 =item B<--version>
  46
  47 Print version infomation.
  48
  49 =item B<-h>,B<--help>
  50
  51 Print a brief help message and exits.
  52
  53 =item B<--manual>,B<--man>
  54
  55 View application manual
  56
  57 =item B<--edit-me>
  58
  59 Invoke 'editor' against the source
  60
  61 =back
  62
  63 =head1  DESCRIPTION
  64
  65 ___DESC___
  66
  67 =head1  CHANGELOG
  68
  69     2010-09-19  xiaoranzzz  <xiaoranzzz@myplace.hell>
  70
  71         * file created.
  72
  73 =head1  AUTHOR
  74
  75 xiaoranzzz <xiaoranzzz@myplace.hell>
  76
  77 =cut
  78
  79 #       vim:filetype=perl