Re: [OT] Perl Frage

[Norbert Preining <preining@logic.at>]

On Sam, 23 Jul 2005, Christoph Haas wrote:
> Ohne meinen Perl-Interpreter vorgeglüht zu haben... kennst du das Tool
> "rename"? Vielleicht reicht das für deine Zwecke schon.

Kenn ich, reicht aber nicht.

> >         if ($f =~ m|texmf-doc/man/man(.*)/(.*)$|) {
> >                 copy ($f, "$newdest/man/man$1/$2");
> >         }
> > möchte ich mit einem Eintrag im config file:
> >         texmf-doc/man/man(.*)/(.*):$newdest/man/man$1/$2
> > erreichen. Also im neuen Dateinamen sollten
> > - Variablen expandiert werden
> > - Referenzen auf regexp auch erweitert werden

Ich habe nach langem herumbasteln endlich selber eine Lösung gefunden:

$maplines='texmf.*/doc/man/man(.*)/(.*):$rundest/man/man$1/$2';
local ($pat, $dest) = ($maplines =~ m/(.*):(.*)/);
if ($f =~ m|$pat$|) {
   $foo="\$newdest = \"$dest\"";
   eval $foo;
   print "REMAP HIT: newdest=$newdest, pat=$pat, dest=$dest\n";
}

Das funktioniert, jucheeeeee.

Herzliche Grüße

Norbert

-------------------------------------------------------------------------------
Dr. Norbert Preining <preining AT logic DOT at>             Università di Siena
sip:preining@at43.tuwien.ac.at                             +43 (0) 59966-690018
gpg DSA: 0x09C5B094      fp: 14DF 2E6C 0307 BE6D AD76  A9C0 D2BF 4AA3 09C5 B094
-------------------------------------------------------------------------------
RUNCORN (n.)
A peeble (q.v.) which is larger that a belper (q.v.)
			--- Douglas Adams, The Meaning of Liff