hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

*** empty log message ***

This commit is contained in:
hjp 2002-10-27 12:28:59 +00:00
parent 300b4fbd25
commit 4b3a42c2fa
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
sanitize_umlauts/sanitize_umlauts Executable file
View File

@ -0,0 +1,31 @@
#!/usr/bin/perl -w
#
# $Id: sanitize_umlauts,v 1.1 2002-10-27 12:28:59 hjp Exp $
#
use strict;
use File::Find;
sub wanted {
if (/[\204\224\201\216\231\232\341\202]/) {
my $new = $_;
$new =~ tr/\204\224\201\216\231\232\341\202/äöüÄÖÜßé/;
print $File::Find::dir, ": $_ -> $new\n";
rename $_, $new or die "cannot rename $_ to $new: $!";
}
}
if (@ARGV == 0) { push (@ARGV, "."); }
finddepth(\&wanted, @ARGV);
print "\n\n";
# $Log: sanitize_umlauts,v $
# Revision 1.1 2002-10-27 12:28:59 hjp
# *** empty log message ***
#