On Sam, 23 Jul 2005, Thomas Jahns wrote:
> Das ist eigentlich eine Frage für de.comp.lang.perl.misc.
Deswegen das [OT].
> Normalerweise sollte folgendes funktionieren:
Danke!
> my $pats='texmf-doc/man/man(.*)/(.*)';
> my $pat=eval { qr/$pats/ } || die ;
Da muss ich drüber nachsinnen! Meine Variante war ähnlich, das ist aber
eleganter.
> while(my $f = <DATA>)
> {
> chomp($f);
> my $temp=$f;
> if( $temp =~ s/$pat/$replacement/ee )
> {
> print(join(' to ', $f, $temp), "\n");
> }
> }
Auch das ist eine nette Variante, muss mir ansehen ob ich das machen
kann in der Art (ist ja in wirklichkeit viel komplizierter, leider).
Danke nochmal
Herzliche Grüße
Norbert
-------------------------------------------------------------------------------
Dr. Norbert Preining <preining AT logic DOT at> Università di Siena
sip:[EMAIL PROTECTED] +43 (0) 59966-690018
gpg DSA: 0x09C5B094 fp: 14DF 2E6C 0307 BE6D AD76 A9C0 D2BF 4AA3 09C5 B094
-------------------------------------------------------------------------------
GLOADBY MARWOOD (n.)
Someone who stops Jon Cleese on the street and demands that he does a
funny walk.
--- Douglas Adams, The Meaning of Liff
--
Haeufig gestellte Fragen und Antworten (FAQ):
http://www.de.debian.org/debian-user-german-FAQ/
Zum AUSTRAGEN schicken Sie eine Mail an [EMAIL PROTECTED]
mit dem Subject "unsubscribe". Probleme? Mail an [EMAIL PROTECTED] (engl)
