Dateinamen ändern

[Alexander Foken]

Moin Moin !

Hallo,

mein Kunde hat mit eine CD mit PDF-Dokumenten gegeben, die ins Netz gestellt und die über eine DB-Suche gefunden werden sollen.

Entgegen der Absprache, dass die Namen der Dateien, die immer den selben Aufbau haben (abc-def-123.pdf), die einzelnen "Bereiche" mit "-" getrennt werden, haben die nun "_" verwendet (abc_def_123.pdf).

... und sind somit ISO-Konform

Kennt jemand ein Tool, mit dem man 530 Dateien in zig Unterverzeichnissen mit einem Schlag umbenennen kann?

Sowas ?

#!/usr/bin/perl

use File::Find;

find(sub {
  local $_=$_;
  return unless -f $_;
  my $newfn=$_;
  $newfn=~s/_/-/g;
  rename $_,$newfn;
  print "$_ => $newfn\n";
},'/path/to/a/copy/of/the/cdrom');

finito

Danke für Hindeise.

Matthias

Alexander