eprints-dev: /home/dpavlin/unaccent-file.pl [commit]

diff --git a/unaccent-file.pl b/unaccent-file.pl
new file mode 100755 (executable)
index 0000000..5409159
--- /dev/null
+++ b/unaccent-file.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Text::Unaccent;
+
+my $what = shift @ARGV || '.+';
+
+while(<>) {
+       s{($what)}{unac_string('utf8',$1)}ges;
+       print;
+}