Re: [Debian]:Perl und Dateien umbenennen
Moin Ulrich!
Ulrich Wiederhold schrieb am Donnerstag, den 22. Juni 2000:
> ich bin Perl- und Programmieranfänger, möchte aber das Umbennen vieler
Perl ist relativ einfach... Nimm einfach ein Paar Beispiele, einen
Editor mit Syntaxhighliting (z.B. gvim) und arbeite dich ein.
perl-Manpage bietet eine gute Übersicht, "perldoc -f" ist auch
hilfreich.
> Die Dateien liegen im Verzeichnis mit Namen "(artist)_-_albumtitle" und
> haben bisher den Dateinamen "(artist)_-_tracknumber_-_songname.mp3",
> teilweise auch mit spaces anstatt _.
> Ich möchte nun
> 1. alle spaces durch _ ersetzen
Machbar. Verzeichniss öffnen (opendir), Dateinamen einlesen (readdir),
Zeichenketten ersetzen ("man perlre")...
> 2. den Dateinamen in
> "(artist)_-_albumtitle_-_tracknumber_-_songname.mp3" ändern.
... und mir rename umbennen.
Spontan fällt folgendes ein:
perl -e '$ARGV[0]=~/-_(.*)/; $alb=$1;opendir(hier,".");while($old = readdir(hier)){$new=$old; $new=~/(.*)\)(.*)/$1)_-_$alb$2/ ; rename($old,$new)}' `basename $PWD`
Allerdings ungetested.
MfG,
Eduard.
--
=====================================================================
Eduard Bloch <eb@zombie.inka.de>; HP: http://eduard.bloch.com/edecosi
0xEDF008C5(GnuPG): E6EB 98E2 B885 8FF0 6C04 5C1D E106 481E EDF0 08C5
**
The early bird gets the worm. If you want something else for
breakfast, get up later.
------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie
bitte eine E-Mail an majordomo@jfl.de die im Body
"unsubscribe debian-user-de <deine emailadresse>"
enthaelt.
Bei Problemen bitte eine Mail an: Jan.Otto@jfl.de
------------------------------------------------
Anzahl der eingetragenen Mitglieder: 731
Reply to: