mosesdecoder/scripts/tokenizer/lowercase.perl

11 lines
120 B
Plaintext
Raw Normal View History

#!/usr/bin/perl -w
use strict;
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
while(<STDIN>) {
print lc($_);
}