wiki-cased / tools /mosesdecoder /scripts /generic /reverse-alignment.perl

Upload folder using huggingface_hub

41f6dd8 verified almost 2 years ago

507 Bytes

#!/usr/bin/env perl
#
# This file is part of moses.  Its use is licensed under the GNU Lesser General
# Public License version 2.1 or, at your option, any later version.

use warnings;
use strict;

my $line;
while ($line = <STDIN>)
{
  chomp($line);
  my @toks = split(/ /, $line);

  foreach (my $i = 0; $i < @toks; ++$i)
  {
    my $tok = $toks[$i];
    my @alignPair = split(/-/, $tok);
    (@alignPair == 2) or die("Something wrong");
    print $alignPair[1]."-".$alignPair[0]." ";
  }
  print "\n";
}

	#!/usr/bin/env perl
	#
	# This file is part of moses. Its use is licensed under the GNU Lesser General
	# Public License version 2.1 or, at your option, any later version.

	use warnings;
	use strict;

	my $line;
	while ($line = <STDIN>)
	{
	chomp($line);
	my @toks = split(/ /, $line);

	foreach (my $i = 0; $i < @toks; ++$i)
	{
	my $tok = $toks[$i];
	my @alignPair = split(/-/, $tok);
	(@alignPair == 2) or die("Something wrong");
	print $alignPair[1]."-".$alignPair[0]." ";
	}
	print "\n";
	}