32 lines
548 B
Plaintext
32 lines
548 B
Plaintext
|
#!/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/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/;
|
|||
|
|
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 ***
|
|||
|
|
#
|