Upload folder using huggingface_hub

41f6dd8 verified almost 2 years ago

383 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;

while (@ARGV) {
    $_ = shift;
    /^-b$/ && ($| = 1, next); # not buffered (flush each line)
}

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");

while(<STDIN>) {
  print lc($_);
}

	#!/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;

	while (@ARGV) {
	$_ = shift;
	/^-b$/ && ($\| = 1, next); # not buffered (flush each line)
	}

	binmode(STDIN, ":utf8");
	binmode(STDOUT, ":utf8");

	while(<STDIN>) {
	print lc($_);
	}