mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-12-30 23:42:30 +03:00
d4083b1119
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@2557 1f5c12ca-751b-0410-a591-d2e778427230
18 lines
395 B
Perl
Executable File
18 lines
395 B
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
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";
|
|
|