bin/id3fs

   1 #!/usr/bin/perl -w
   2 # Ian Beckwith <ianb@erislabs.net>
   3 #
   4
   5 use strict;
   6 use Getopt::Long qw(Configure);
   7 use vars qw($me);
   8 $me=($0=~/(?:.*\/)?(.*)/)[0];
   9
  10 my $verbose=0;
  11 my $help=0;
  12
  13 Configure(qw(bundling no_ignore_case));
  14 my $optret=GetOptions(
  15     "verbose|v"  => \$verbose,
  16     "quiet|q"    => sub { $verbose=0; },
  17     "help|h"     => \$help,
  18     );
  19
  20 usage() if(!@ARGV || !$optret || $help);
  21
  22 sub usage
  23 {
  24     die("Usage: $me [-v] [-q] [-h] [--] file...\n".
  25         " -v\tVerbose\n".
  26         " -q\tQuiet (default)\n".
  27         " -h\tThis help\n".
  28         " --\tEnd of options\n");
  29 }
  30
  31 __END__
  32
  33
  34 =head1 NAME
  35
  36 program - description
  37
  38 =head1 SYNOPSIS
  39
  40 B<> [I<-v>] [I<-q>] [I<-h>] [I<file>...]
  41
  42 =head1 DESCRIPTION
  43
  44 =head1 OPTIONS
  45
  46 =over 4
  47
  48 =item B<-v>
  49
  50 Enable verbose operation.
  51
  52 =item B<-q>
  53
  54 Quiet (no output). This is the default.
  55
  56 =item B<-h>
  57
  58 Show a short help message.
  59
  60 =item B<-->
  61
  62 End of options.
  63
  64 =back
  65
  66 =head1 FILES
  67
  68 =head1 ENVIRONMENT
  69
  70 =head1 DIAGNOSTICS
  71
  72 =head1 BUGS
  73
  74 None known. Please report any found to ianb@erislabs.net
  75
  76 =head1 SEE ALSO
  77
  78 =head1 AUTHOR
  79
  80 Ian Beckwith <ianb@erislabs.net>
  81
  82 =head1 AVAILABILITY
  83
  84 The latest version can be found at:
  85
  86 B<http://erislabs.net/ianb/projects/id3fs/>
  87
  88 =head1 COPYRIGHT
  89
  90 Copyright 2010 Ian Beckwith <ianb@erislabs.net>
  91
  92 This program is free software: you can redistribute it and/or modify
  93 it under the terms of the GNU General Public License as published by
  94 the Free Software Foundation; either version 3 of the License, or
  95 (at your option) any later version.
  96
  97 This program is distributed in the hope that it will be useful,
  98 but WITHOUT ANY WARRANTY; without even the implied warranty of
  99 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 100 GNU General Public License for more details.
 101
 102 You should have received a copy of the GNU General Public License
 103 along with this program.  If not, see <http://www.gnu.org/licenses/>.
 104
 105 =cut