blob: 5ad2514a42d46d0cf32754279e04d602b0e385fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/env perl
use warnings;
use strict;
my $argv=join(" ",@ARGV);
$argv =~ s/ +/ /g;
my $newargv="";
while ($argv =~ s/(.*?\-[a-z][0-9a-z\-]* )(.*?)( \-+[a-z][0-9a-z\-]*?|$)/$3/i){my $tmp1=$1;; my $tmp2=$2; $tmp2=~ s/^ */"/; $tmp2 =~ s/ *$/"/; $tmp2 =~ s/ +/|/g; $newargv=$newargv." ".$tmp1.$tmp2; }
$newargv.=" $argv";
$argv=$newargv;
#$argv =~ s/\|/ /g;
$argv =~ s/\"//g;
print STDOUT "$argv\n";
|