diff options
author | skyload <skyload@1f5c12ca-751b-0410-a591-d2e778427230> | 2010-04-29 23:08:19 +0400 |
---|---|---|
committer | skyload <skyload@1f5c12ca-751b-0410-a591-d2e778427230> | 2010-04-29 23:08:19 +0400 |
commit | a886634ec0053c0f4798f52f05f752b22a3056fa (patch) | |
tree | a62086005aa4f4831a3ce8ba18fd24e7d350b001 | |
parent | 0c7f8ccafa1d1394e22a47343fc2882e1a12f23b (diff) |
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/branches/DPR_MOSES@3213 1f5c12ca-751b-0410-a591-d2e778427230DPR_MOSES
-rw-r--r-- | delDots.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/delDots.pl b/delDots.pl new file mode 100644 index 000000000..3c53736d2 --- /dev/null +++ b/delDots.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl
+
+$INFILE_name=$ARGV[0];
+$OUTFILE_name=$ARGV[1];
+
+open(INFILE,"<$INFILE_name") or die "No input files!";
+open(OUTFILE,">$OUTFILE_name") or die "No output files!";
+
+while (<INFILE>) {
+ s/\s+$//;
+# s/\,|\[|\]//g;
+ print OUTFILE $_;
+ print OUTFILE "\n";
+}
+
+close INFILE;
+
+
|