Upload folder using huggingface_hub

41f6dd8 verified almost 2 years ago

218 Bytes

#!/usr/bin/env perl

# strip text file of any XML markup

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

use strict;

while(<STDIN>) {
  s/<\S[^>]*>/ /g;
  chomp;
  s/ +/ /g;
  s/^ //;
  print $_;
  print "\n";
}

	#!/usr/bin/env perl

	# strip text file of any XML markup

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

	use strict;

	while(<STDIN>) {
	s/<\S[^>]*>/ /g;
	chomp;
	s/ +/ /g;
	s/^ //;
	print $_;
	print "\n";
	}