Re: [Debian]:Perl und Dateien umbenennen
On Thu, Jun 22, 2000 at 08:47:24PM +0200, Eduard Bloch wrote:
> Moin Ulrich!
> Ulrich Wiederhold schrieb am Donnerstag, den 22. Juni 2000:
>
> > ich bin Perl- und Programmieranfänger, möchte aber das Umbennen vieler
> 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`
>
Hallo!
Also das Zeug da oben (mag es auch hoch elegant sein) würde mich
als Programmieranfänger stark abschrecken - wenn dem nicht so
ist Ulrich, dann vergiss den Rest hier...
Schau dir doch mal das Packet "mmv" aus der util-Sektion an,
vieleicht kann das was du willst.
Vieleicht kannst du auch die ganzen Dateinamen mit:
find -type f > x
in einer Datei sammeln und wenn Du einen tollen Texteditor hast,
dann kannst du dir mit ein bischen copy und paste etwas in der
Art basteln
mv oldname newname
mv oldname newname
mv oldname newname
mv oldname newname
mv oldname newname
mv oldname newname
..
und dann die Datei mit "sh x" ausführen.
Wenn Du Dein Problem allerdings nicht nur einfach schnell
lösen willst sonder es als Anregung sehen willst um Dich in der
Perlwelt einzufinden, dann solltest du den Ratschläge meines
Vorredners folgen..
viel Spaß dabei!
Andreas.
--
\ /
- O - Andreas Müller * /
/ \ now Dorfstraße 9 ( *
| at:H 49504 Lotte Wersen * )
¤ | ¤ O Tel: 05404/951473 / *
\|/ M Email: andrmuel@uos.de
V E IRC: stromper,#hausboot
--qkke----------------------------------
------------------------------------------------
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: