Opened by Gast at 2004-03-02 10:00
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=kabel,02.03.2004, 10:16]ich muss mich korrigieren:
da sollte natürlich stehen:
Wenn Du Havis Array mit dem Pipesymbol zusammenjoinst, dann fehlt außen drum ja noch der eigentliche RE-Teil "m~...~".
Ich kannte qr bisher nicht, in meiner Tabelle in Perl 5 kurz und gut steht:
Üblich: ""
Generisch: qr//
Bedeutung: Regulärer Ausdruck
Ich versteh irgendwie nicht, wie Dein if-Aufruf weiß, dass dort m// verwendet werden soll.
Irgendwie steh ich gerade auf dem Schlauch.
Ich hätte das wahrscheinlich in einen String gepackt mit RE-Rahmen und den dann mit eval ausgeführt, aber wenn man eval vermeiden kann, ist das eigentlich immer von Vorteil. Und hier schaut mich gerade ein Puzzelsteinchen an, das mir zu meinem mosaikartigen Perlwissen fehlt ;)
Code: (dl
)
1
2
3
my $re_as_str = join "|", @havis_array;
my $re = qw/$re_as_str/;
if ($blankname =~ $re) { ... }
da sollte natürlich stehen:
Quote[/quote]my $re = qr/$re_as_str/;
Wenn Du Havis Array mit dem Pipesymbol zusammenjoinst, dann fehlt außen drum ja noch der eigentliche RE-Teil "m~...~".
Ich kannte qr bisher nicht, in meiner Tabelle in Perl 5 kurz und gut steht:
Üblich: ""
Generisch: qr//
Bedeutung: Regulärer Ausdruck
Ich versteh irgendwie nicht, wie Dein if-Aufruf weiß, dass dort m// verwendet werden soll.
Irgendwie steh ich gerade auf dem Schlauch.
Ich hätte das wahrscheinlich in einen String gepackt mit RE-Rahmen und den dann mit eval ausgeführt, aber wenn man eval vermeiden kann, ist das eigentlich immer von Vorteil. Und hier schaut mich gerade ein Puzzelsteinchen an, das mir zu meinem mosaikartigen Perlwissen fehlt ;)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite