script zum umbenennen von dateinamen

gcc -c -g -O2 table.c
gcc -c -g -O2 parse_table.c
gcc -c -g -O2 config_file_l.c
gcc -c -g -O2 config_file_y.c
gcc -c -g -O2 parse_options_getopt.c
gcc -c -g -O2 parse_options_generic.c
gcc -o detox detox.o clean_string.o file.o table.o parse_table.o config_file_l.o config_file_y.o parse_options_getopt.o parse_options_generic.o
config_file_l.o: In function `yylex':
/home/jollyroger/Desktop/tmp/detox/detox-1.2.0-rc1/lex.yy.c:915: undefined reference to `yywrap'
collect2: ld returned 1 exit status
make: *** [detox] Error 1

#!/usr/bin/perl

use File::Find;
use strict;
use utf8;
use vars qw/ %opt /;

sub convert;
sub init;
sub usage;

init;
for (@ARGV) {
	finddepth {wanted => \&convert, no_chdir => 0}, $_ if $opt{r};
	convert $_
}

##################################################
sub convert {
	my $newfilename = (my $filename = $_);
	my %subst = ('Ä' => 'Ae', 'Ö' => 'Oe', 'Ü' => 'Ue', 'ä' => 'ae',
		'ö' => 'oe', 'ü' => 'ue', 'ß' => 'ss', '\s' => '_', '\.(?=.*\.)' => '_');
	for (keys %subst){
		$newfilename =~ s/$_/$subst{$_}/g
	}
	$newfilename =~ s/[^\w\-\.\/]//g;
	$newfilename = lc $newfilename if $opt{l};
	if ((-e $filename) && (!-f $newfilename) && ($filename ne $newfilename)) {
		print "$filename -> $newfilename\n";
		my $yesno;
		if (! $opt{f}) {
			do {
				print "[y/n]: ";
				chomp($yesno = <STDIN>)
			} while ($yesno !~ /^y|n$/i)
		}
		rename "$filename", "$newfilename" if ($opt{f} || ($yesno =~ /y/i))
	} elsif ($opt{v}) {
		print "no conversion: $filename\n"
	}
}

##################################################
sub init {
	use Getopt::Std;
	my $opt_string = 'fhlrv';
	getopts ("$opt_string", \%opt) or usage;
	usage() if $opt{h};
}

##################################################
sub usage {
	(my $program = $0) =~ s!.*?/!!g;
	print STDERR << "EOF";

This program converts file/dir names.

usage: $program [-fhlrv] files/dirs

	-f        : force
	-h        : this (help) message
	-l        : convert to lower case
	-r        : recursive
	-v        : verbose

EOF
	exit
}

#!/usr/bin/perl -w

use strict;
use warnings;

my $dirname = '/home/foo/bar';
my $max_length = 8;

my $file;

opendir(DIR, $dirname) or die "can't opendir $dirname: $!\n";

while(defined($file = readdir(DIR)))
{
	next if $file =~ /^\.\.?$/;
	my $oldname = $file;
	$file =~ s/[^\w\.]//g;
	if(length($file) > $max_length)
	{
		my $ext;
		if($file =~ /\.\w+$/)
		{
			$ext = $&;
		}
		($max_length - length($ext) > 0) ? ($file = substr($file, 0, $max_length - length($ext)).$ext) : 
											($file = substr($file, 0, $max_length));
	}
	rename($dirname."/".$oldname, $dirname."/".$file) or warn "couldn't rename $oldname to $file: $!\n" 
		unless (-e $dirname."/".$file);
}


closedir(DIR);

print "all done... exiting\n";