user-tools/args2env

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 args2env - Turns command arguments into environment variables and executes command with the remained arguments
   8
   9 =head1 SYNOPSIS
  10
  11 args2env [I<OPTIONS>] I<COMMAND> I<ARG_1> I<ARG_2> ... I<ARG_R2> I<ARG_R1>
  12
  13 =head1 DESCRIPTION
  14
  15 =head1 OPTIONS
  16
  17 =over 4
  18
  19 =item -a, --arg I<NUM>
  20
  21 Move the I<NUM>th argument to the environment by the name B<< ARG_I<NUM> >>
  22 (may be overridden by B<--template> option).
  23 Counting starts from 1.
  24 I<NUM> may be negative number, in which case it's counted from the end backwards.
  25
  26 =item -r, --right-arg I<NUM>
  27
  28 Same as B<< --arg -I<NUM> >>.
  29
  30 =item -A, --all
  31
  32 Move all arguments to environment.
  33
  34 =item -k, --keep I<NUM>
  35
  36 Keep the first I<NUM> arguments as arguments, and move the rest of them to environment.
  37
  38 =item -t, --template I<TEMPLATE>
  39
  40 How to name environment variables?
  41 Must contain a B<%d> macro.
  42 Default is B<ARG_%d>.
  43 So the value of argument given by B<--arg 1> goes to B<ARG_1> variable.
  44
  45 =item -nt, --negative-template I<TEMPLATE>
  46
  47 How to name environment variables for arguments specified by negative number?
  48 Must contain a B<%d> macro.
  49 Default is B<ARG_R%d>, B<R> is for "right", because this arg is counted from the right.
  50 So the value of argument given by B<--arg -1> goes to B<ARG_R1> variable.
  51
  52 =back
  53
  54 =head1 SEE ALSO
  55
  56 =cut
  57
  58
  59 use Data::Dumper;
  60 use Errno qw/:POSIX/;
  61 use Getopt::Long qw/:config no_ignore_case no_bundling no_getopt_compat no_auto_abbrev require_order/;
  62 use Pod::Usage;
  63 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  64
  65 @args_to_move = ();
  66 $envname_template = 'ARG_%d';
  67 $negative_envname_template = 'ARG_R%d';
  68
  69 GetOptions(
  70         'a|arg=i@' => \@args_to_move,
  71         'A|all' => sub { @args_to_move = (1 .. $#ARGV); },
  72         'k|keep=i' => sub { @args_to_move = (($_[1]+1) .. $#ARGV); },
  73         'r|right-arg=i@' => sub {
  74                 my ($getopt, $param) = @_;
  75                 push @args_to_move, -$param;
  76         },
  77         't|template=s' => \$envname_template,
  78         'nt|negative-template=s' => \$negative_envname_template,
  79         'help' => sub { pod2usage(-exitval=>0, -verbose=>99); },
  80 ) or pod2usage(-exitval=>2, -verbose=>99);
  81
  82 if(grep {$_ == 0} @args_to_move)
  83 {
  84         warn "The 0th argument is the command itself, better not to remove.\n";
  85         pod2usage(-exitval=>2, -verbose=>99);
  86 }
  87
  88 for my $arg_num (@args_to_move)
  89 {
  90         my $envname;
  91         if($arg_num > 0) { $envname = sprintf $envname_template,          abs $arg_num; }
  92         else             { $envname = sprintf $negative_envname_template, abs $arg_num; }
  93         $ENV{$envname} = $ARGV[$arg_num];
  94         $ARGV[$arg_num] = undef;
  95 }
  96 @ARGV = grep {defined} @ARGV;
  97
  98 exec {$ARGV[0]} @ARGV;
  99 ($errno, $errstr) = (int $!, $!);
 100 warn "$0: ${ARGV[0]}: $errstr\n";
 101 exit 125+$errno;